Rp

1. !/usr/bin/perl

1. kill currently running instances of peerd

for ( split /\n/, qx( ps x|egrep \"husk[.]bin$\" ) ) { # damn " never work :-(

       qx( kill $1 ) if /^\s*([0-9]+).+?\d+:\d\d\s*(.+)/;
       }

$wiki = "http://www.organicdesign.co.nz/wiki/index.php";

print "Parsing fileSync list\n"; $fileSync = qx(curl -s "$wiki?title=Bender/fileSync&xpath:view:"); $fileSync =~ s/<\/ul>.+$//ms;

%articles = $fileSync =~ /

.+?title="(.+?)">(.+?)<\/a>/g; for my $article (keys %articles) { print "Retrieving $article\n"; if ( open FH, '>', $articles{$article} ) { binmode FH; print FH qx(curl -s "$wiki?title=$article&action=raw"); close FH; } }

1. compile husk logging output
2. qx( date >> /home/peerd/peerd.log );
3. qx( gcc -o /home/peerd/husk.bin /home/peerd/husk.c 2>> /home/peerd/peerd.log );
4. exec '/home/peerd/husk.bin >> /home/peerd/peerd.log 2>&1 &';