Skip to content

Instantly share code, notes, and snippets.

@mimicmod
mimicmod / uhub-mimicmod-install.sh
Last active Dec 29, 2015
uHub MiMic Mod install and config script
View uhub-mimicmod-install.sh
#!/bin/bash
# uHub MiMic Mod install and config script
# Dependencies:
# - bash
# - git
# - all other uhub dependencies
echo -e "\e[1;34mHello, this script will install uhub MiMic Mod on your machine and configure your hub.\e[0m"
@mimicmod
mimicmod / globster-xmlconf.pl
Last active Jan 10, 2016
Hubs configuration in XML format based on globsterctl - script for the Globster direct connect client
View globster-xmlconf.pl
#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
# create xml object
my $xml = new XML::Simple;
# read XML file
@mimicmod
mimicmod / gobster-responder.pl
Last active Jan 10, 2016
Chat responder with multiple responses support - script for the Globster direct connect client
View gobster-responder.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::DBus::Reactor;
use Net::DBus;
use XML::Simple;
# create xml object
my $xml = new XML::Simple;
@mimicmod
mimicmod / globster-usercheck.pl
Created Jan 10, 2016
Userinfo check on login - script for the Globster direct connect client
View globster-usercheck.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::DBus::Reactor;
use Net::DBus;
use Switch;
use XML::Simple;
# create xml object
@mimicmod
mimicmod / globster-releases.pl
Last active Feb 7, 2016
Database of released files - script for the Globster direct connect client
View globster-releases.pl
#!/usr/bin/perl
# Settings
my $dbfile = "/etc/globster/releases.db";
my $dbusaddr = "unix:abstract=/tmp/dbus-X47loh59IQ,guid=d5dcec9511d7062467a016ff0000002e";
my $cmdprefix = "+!-";
# Hubs to link (Globster hub IDs)
my @hubs = (1,3);
@mimicmod
mimicmod / globster-pmnotify.pl
Last active Jan 31, 2016
Notify operators about incomming private message - script for the Globster direct connect client
View globster-pmnotify.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::DBus;
use XML::Simple;
use Net::DBus::Reactor;
# create xml object
my $xml = new XML::Simple;