#!C:\Perl\bin\perl.exe -w #!/usr/bin/perl -w ################################################################ print "Content-type: text/html\n\n"; if ($ENV{QUERY_STRING}) { @pairs = split(/&/, $ENV{QUERY_STRING}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $post_in{$name} = $value; } } unless ($ENV{'REQUEST_METHOD'}) { $ENV{'REQUEST_METHOD'} = 1;} my $method = $ENV{'REQUEST_METHOD'}; if ($method eq "POST") { read(STDIN, $post_buffer_comments, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $post_buffer_comments); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $post_in{$name} = $value; if ($name eq 'cron_minute') { $cron_minutes = $cron_minutes . $value . ','; } if ($name eq 'cron_hour') { $cron_hours = $cron_hours . $value . ','; } if ($name eq 'cron_day') { $cron_days = $cron_days . $value . ','; } if ($name eq 'cron_month') { $cron_months = $cron_months . $value . ','; } if ($name eq 'cron_week') { $cron_weeks = $cron_weeks . $value . ','; } } chop($cron_minutes); chop($cron_hours); chop($cron_days); chop($cron_months); chop($cron_weeks); print "$cron_minutes $cron_hours $cron_days $cron_months $cron_weeks $post_in{'cron_command'}\n"; } else { print < Cron Compiler
Command:



END }