#!/usr/bin/perl
require "weblib.lib";
getparams(0,"script");
&htmlopen("Exec tmp|");
print "$param{script}\n";
if(-f "/tmp/$param{script}"){
	print "<pre>\n";
	system("sh /tmp/$param{script} 2>&1");
	print "</pre>\n";
	unlink("/tmp/$param{script}");
}
else{print "<br>Nothing to execute\n";}
&htmlclose;