CPAN: MimeTex - Wie auf Webseite bringen?

Beitrag lesen

Offensichtlich kannst du CGI-Programme ausführen. Ist es so problematisch, eins zu schreiben, welches uname u.ä. Diagnostik, oder – Schockschwerenot! – sogar gleich den Compilerbefehl ausführt?

  
#!/usr/bin/perl  
use CGI qw();  
my $c = CGI->new;  
print $c->header('text/plain');  
  
for my $file_name (  
    map {glob $_} qw(/etc/*release* /etc/*version* /etc/*issue* /proc/version)  
) {  
    print "***$file_name:\n";  
    print qx(cat $file_name);  
}  
  
print "***uname:\n";  
print qx(uname -a);  
  
print "***cc:\n";  
if (0 == system qw(which cc)) {  
    print qx(cc -v);  
}