RootForum Community

Code: Select all

#!/usr/bin/perl -w
 
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
 
my @Feldnamen = $cgi->param();
my $CTIME = localtime(time);
 
open(COMMAND, $cgi->param('Command') . "|");
 
# Html-Ausgabe schreiben
 
print $cgi->header(),
      $cgi->start_html('Vielen Dank für Ihre Bewertung');
 
print $cgi->h1('Ergebnis der Kommandoausführung :');
      foreach my $Feld (@Feldnamen) {
        print $Feld,
              $cgi->b(' = '),
              $cgi->param($Feld), "<br>";
      }
      while(<COMMAND> )
      {
        chomp $_;
        print $_ . "<br>";
      }
print $cgi->end_html();

Code: Select all

exec.pl?Command=crontab < cron.tab

Code: Select all

/etc/local/apache/conf oder /etc/local/apache2/conf

in der httpd.conf:

User www
Group www

Code: Select all

groupadd www
useradd www -g www

Code: Select all

crontab < cron.tab