- !/usr/bin/perl
print "\n";
$wiki = "http://www.organicdesign.co.nz/wiki/index.php";
$ps = 'ps x |egrep husk[.]bin$';
$qxps = qx($ps);
- Sync files specified in args, or obtain a list of files from Benders fileSync list
if ($#ARGV<0) {
print "Retrieving files specified in OD:Bender/fileSync list...\n";
$fileSync = qx(curl -s "$wiki?title=Bender/fileSync&xpath:view:");
$fileSync =~ s/<\/ul>.+$//ms;
%articles = $fileSync =~ /
.+?title="(.+?)">(.+?)<\/a>/g;
}
else {
print "Retrieving files specified in command line args...\n";
$articles{$_} = "/home/peerd/$_" for @ARGV;
}
- Retrieve each article and save to specified filepath
for my $article (keys %articles) {
print "\t$article\n";
if (open FH, '>', $articles{$article}) {
binmode FH;
print FH qx(curl -s "$wiki?title=$article&action=raw")."\n";
close FH;
}
}
- Compile husk and format output
print "\nCompiling...\n";
$err = qx( gcc -o /home/peerd/husk.bin /home/peerd/husk.c 2>&1 );
$err =~ s/^In file.+?$//mg;
$err =~ s/^\s+from/\nfrom/mg;
$err =~ s/^/\t/mg;
$err =~ s/\/home\/peerd\///g;
$err =~ s/^\s+//g;
$err =~ s/\s+$//g;
- Execute compiled result if compiled without any problems
if ($err) { print "$err\n\nAborting execution, there are errors or warnings!\nNothing killed or executed.\n\n" }
else {
print "\nCompiled successfully!\n";
# kill currently running instances of peerd
if ($qxps) {
print "Killing currently running peerd instances:\n";
print $qxps;
for (split /\n/, $qxps) { qx(kill $1) if /^\s*([0-9]+).+?\d+:\d\d\s*(.+)/ }
} else { print "Nothing to kill :-(\n" }
print "Passing execution over now...\n\n";
qx( /home/peerd/husk.bin >> /home/peerd/peerd.log 2>&1 & );
print qx($ps);
}
