#!/usr/bin/perl # Sun May 28 18:17:36 PDT 2023 #print "Content-type: Text/Plain\n\n"; #system("bash -c set"); #exit 0; my $fn_target = $ENV{'QUERY_STRING'} || do_menu(); print "Content-type: Text/Plain\n\n"; $fn_target =~ s#[^\.\-a-z]##g; print '(' , $fn_target, ")\n"; if( ! $fn_target =~ m#(.+)\.pb$#) { yikes(); } if( ! -e $fn_target ) { yikes(); } system("/usr/local/bin/dada $fn_target"); exit 0; sub yikes { print "Error encountered. Check logs.\n"; exit 1; } sub do_menu { print "Content-type: Text/html\n\n menu\n"; my @files = `/bin/ls -1 *.pb`; #print "@files"; foreach $f (@files) { chomp($f); print "

\n" ; print "
\n"; } print qq{
h/t to: the Dada Engine
view source of this script

<creon\@creon.earth>
creon.earth \n}; exit 0; }