Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	109 B	-rw-r--r--
cluster-cron-lib.pl	4.76 KB	-rwxr-xr-x
cron.pl	658 B	-rwxr-xr-x
delete.cgi	346 B	-rwxr-xr-x
delete_jobs.cgi	409 B	-rwxr-xr-x
edit.cgi	2.25 KB	-rwxr-xr-x
exec.cgi	1.18 KB	-rwxr-xr-x
index.cgi	1.92 KB	-rwxr-xr-x
log_parser.pl	879 B	-rwxr-xr-x
module.info	276 B	-rw-r--r--
module.info.ca	130 B	-rw-r--r--
module.info.ca.UTF-8	145 B	-rw-r--r--
module.info.cz	29 B	-rw-r--r--
module.info.cz.UTF-8	36 B	-rw-r--r--
module.info.de	138 B	-rw-r--r--
module.info.de.UTF-8	150 B	-rw-r--r--
module.info.es	33 B	-rw-r--r--
module.info.es.UTF-8	39 B	-rw-r--r--
module.info.fr	37 B	-rw-r--r--
module.info.fr.UTF-8	44 B	-rw-r--r--
module.info.hu	37 B	-rw-r--r--
module.info.hu.UTF-8	46 B	-rw-r--r--
module.info.ms_MY	118 B	-rw-r--r--
module.info.ms_MY.UTF-8	130 B	-rw-r--r--
module.info.nl	40 B	-rw-r--r--
module.info.nl.UTF-8	46 B	-rw-r--r--
module.info.no	29 B	-rw-r--r--
module.info.no.UTF-8	35 B	-rw-r--r--
module.info.pl	147 B	-rw-r--r--
module.info.pl.UTF-8	165 B	-rw-r--r--
save.cgi	1.82 KB	-rwxr-xr-x
uninstall.pl	233 B	-rwxr-xr-x

Code Editor : save.cgi

#!/usr/bin/perl
# save.cgi
# Save an existing cluster cron job, or create a new one

require './cluster-cron-lib.pl';
&error_setup($text{'save_err'});
&ReadParse();

if ($in{'exec'}) {
	&redirect("exec.cgi?id=".&urlize($in{'id'}));
	return;
	}
elsif ($in{'delete'}) {
	&redirect("delete.cgi?id=".&urlize($in{'id'}));
	return;
	}

@jobs = &list_cluster_jobs();
if ($in{'new'}) {
	$job = { 'type' => 0,
		 'cluster_id' => time()."-".$$ };
	}
else {
	($oldjob) = grep { $_->{'cluster_id'} eq $in{'id'} } @jobs;
	$job->{'cluster_id'} = $oldjob->{'cluster_id'};
	$job->{'type'} = $oldjob->{'type'};
	$job->{'file'} = $oldjob->{'file'};
	$job->{'line'} = $oldjob->{'line'};
	$job->{'nolog'} = $oldjob->{'nolog'};
	}

# Check and parse inputs
if ($in{"cmd"} !~ /\S/) {
	&error($cron::text{'save_ecmd'});
	}
if (!$in{'user'}) {
	&error($cron::text{'save_euser'});
	}
&cron::parse_times_input($job, \%in);
$in{input} =~ s/\r//g; $in{input} =~ s/%/\\%/g;
$in{cmd} =~ s/%/\\%/g;
$job->{'active'} = $in{'active'};
$job->{'cluster_command'} = $in{'cmd'};
if ($in{input} =~ /\S/) {
	@inlines = split(/\n/ , $in{input});
	$job->{'cluster_input'} .= join('%' , @inlines);
	}
$job->{'command'} = "$cluster_cron_cmd $job->{'cluster_id'}";
$job->{'cluster_user'} = $in{'user'};
$job->{'user'} = 'root';
$job->{'cluster_server'} = join(" ", split(/\0/, $in{'server'}));

# Make sure the wrapper script exists
if (!-r $cluster_cron_cmd) {
	&lock_file($cluster_cron_cmd);
	&cron::create_wrapper($cluster_cron_cmd, $module_name, "cron.pl");
	&unlock_file($cluster_cron_cmd);
	}

if (!$in{'new'}) {
	# Editing an existing job
	&modify_cluster_job($job);
	}
else {
	# Creating a new job
	&create_cluster_job($job);
	}

if ($in{'new'}) {
	&webmin_log("create", "cron", $job->{'cluster_user'}, $job);
	}
else {
	&webmin_log("modify", "cron", $job->{'cluster_user'}, $job);
	}
&redirect("");

${this.title}

Code Editor : save.cgi