list users public gists

get-gist.sh

perl -e 'print "add user and <Enter> and <Ctrl-D>:";
$url=q|https://gist.github.com|;
while(<>){ $g = $url . q|/| . $_ }; open( my $GS,"-|","curl -#ksL $g");
while(<$GS>){
  if( m|tr.+ate| ){
    s/(.*?)(\=\")(.*?)(\".*?\>)(.*?\>)(.*?)(\<.*)/$3$6/;
    $gist->{$6} = $3;
}};
for(keys %$gist){ print $_ . " -\> " . $url . $gist->{$_} . "\n" };
'

theos.sh

# theos enviroment
MYHOST=$(uname -a | cut -d' ' -f2);
export THEOS=/var/theos
export PATH=$THEOS/bin:$PATH
export THEOS_DEVICE_IP=$MYHOST THEOS_DEVICE_PORT=22