Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	971 B	-rw-r--r--
cancel.cgi	850 B	-rwxr-xr-x
config	53 B	-rw-r--r--
config.info	376 B	-rw-r--r--
config.info.ca	383 B	-rwxr-xr-x
config.info.de	128 B	-rw-r--r--
config.info.nl	404 B	-rwxr-xr-x
config.info.no	397 B	-rw-r--r--
defaultuconfig	13 B	-rw-r--r--
download.cgi	4.58 KB	-rwxr-xr-x
download.pl	1.39 KB	-rwxr-xr-x
fetch.cgi	3.1 KB	-rwxr-xr-x
index.cgi	7.04 KB	-rwxr-xr-x
log_parser.pl	986 B	-rwxr-xr-x
module.info	184 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	133 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	205 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	244 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	259 B	-rw-r--r--
module.info.ca	35 B	-rw-r--r--
module.info.ca.auto	125 B	-rw-r--r--
module.info.cs	0 B	-rw-r--r--
module.info.cs.auto	155 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	133 B	-rw-r--r--
module.info.de	174 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	295 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	142 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	156 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	249 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	143 B	-rw-r--r--
module.info.fr	38 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	193 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	141 B	-rw-r--r--
module.info.hu	32 B	-rw-r--r--
module.info.hu.auto	139 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	125 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	218 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	177 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	175 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	182 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	137 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	149 B	-rw-r--r--
module.info.nl	31 B	-rw-r--r--
module.info.no	27 B	-rw-r--r--
module.info.no.auto	120 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	155 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	149 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	158 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	187 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	274 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	148 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	143 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	149 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	291 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	158 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	289 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	245 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	176 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	125 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	134 B	-rw-r--r--
updown-lib.pl	7.44 KB	-rwxr-xr-x
upload.cgi	6.42 KB	-rwxr-xr-x

Code Editor : download.cgi

#!/usr/bin/perl
# download.cgi
# Save a download or start it right now

require './updown-lib.pl';
use Time::Local;
&ReadParse();
&error_setup($text{'download_err'});

# Validate and store inputs
$i = 0;
@urls = split(/[\r\n]+/, $in{'urls'});
@urls || &error($text{'download_enone'});
foreach $u (@urls) {
	local ($proto, $host, $port, $page, $ssl);
	if ($u =~ /^http/) {
		($host, $port, $page, $ssl, $user, $pass) = &parse_http_url($u);
		$proto = $ssl ? "https" : "http";
		}
	elsif ($u =~ /^ftp:\/\/([^\/]+)(:21)?(\/.*)$/) {
		$proto = "ftp";
		$host = $1; $page = $3;
		}
	else {
		&error(&text('download_eurl', $u));
		}
	if ($host =~ /^([^:\@]+):([^:\@]+)\@(\S+)/) {
		$user = $1;
		$pass = $2;
		$host = $3;
		}
	$download{"url_$i"} = $u;
	$download{"proto_$i"} = $proto;
	$download{"host_$i"} = $host;
	$download{"user_$i"} = $user;
	$download{"pass_$i"} = $pass;
	$download{"port_$i"} = $port;
	$download{"page_$i"} = $page;
	$download{"ssl_$i"} = $ssl;
	$i++;
	}
$in{'dir'} || &error($text{'upload_edir'});
&can_write_file($in{'dir'}) ||
	&error(&text('download_eaccess', "<tt>$in{'dir'}</tt>", $!));
$download{'dir'} = $in{'dir'};
if ($can_mode != 3) {
	# User can be entered
	scalar(@uinfo = getpwnam($in{'user'})) || &error($text{'upload_euser'});
	&can_as_user($in{'user'}) ||
		&error(&text('download_eucannot', $in{'user'}));
	$download{'uid'} = $uinfo[2];
	$in{'group_def'} || scalar(@ginfo = getgrnam($in{'group'})) ||
		&error($text{'upload_egroup'});
	$can_mode == 0 || $in{'group_def'} || &in_group(\@uinfo, \@ginfo) ||
		&error($text{'download_egcannot'});
	$download{'gid'} = scalar(@ginfo) ? $ginfo[2] : $uinfo[3];
	}
else {
	# User is fixed
	if (&supports_users()) {
		@uinfo = getpwnam($remote_user);
		$download{'uid'} = $uinfo[2];
		$download{'gid'} = $uinfo[3];
		}
	}
if ($in{'bg'} && $can_schedule) {
	# Validate time
	$in{'hour'} =~ /^\d+$/ && $in{'min'} =~ /^\d+$/ &&
		$in{'day'} =~ /^\d+$/ && $in{'year'} =~ /^\d+$/ ||
			&error($text{'download_edate'});
	eval { $download{'time'} = timelocal(0, $in{'min'}, $in{'hour'},
			 $in{'day'}, $in{'month'}, $in{'year'}-1900) };
	$@ && &error($text{'download_edate2'});
	}
if (defined($in{'email_def'}) && !$in{'email_def'}) {
	# Validate email
	$in{'email'} =~ /\S/ || &error($text{'upload_eemail'});
	$download{'email'} = $in{'email'};
	}

# Create the directory if needed
if (!-d $download{'dir'} && $in{'mkdir'}) {
	&switch_uid_to($download{'uid'}, $download{'gid'});
	mkdir($download{'dir'}, 0755) || &error(&text('upload_emkdir', $!));
	&switch_uid_back();
	}

# Save the settings
if ($module_info{'usermin'}) {
	&lock_file("$user_module_config_directory/config");
	$userconfig{'ddir'} = $in{'dir'};
	&write_file("$user_module_config_directory/config", \%userconfig);
	&unlock_file("$user_module_config_directory/config");
	}
else {
	&lock_file("$module_config_directory/config");
	$config{'ddir_'.$remote_user} = $in{'dir'};
	$config{'duser_'.$remote_user} = $in{'user'};
	$config{'dgroup_'.$remote_user} = $in{'group_def'} ? undef
							   : $in{'group'};
	&write_file("$module_config_directory/config", \%config);
	&unlock_file("$module_config_directory/config");
	}

if ($in{'bg'} && $can_background) {
	# Create a script to be called by At
	&foreign_require("cron", "cron-lib.pl");
	&lock_file($atjob_cmd);
	&cron::create_wrapper($atjob_cmd, $module_name, "download.pl");
	&unlock_file($atjob_cmd);
	&save_download(\%download);

if (!$can_schedule) {
		# Just run this script right now
		&execute_command("$atjob_cmd $download{'id'} &");
		}
	else {
		# Create an At job to do the download
		&foreign_require("at", "at-lib.pl");
			{
			local %ENV;
			delete($ENV{'FOREIGN_MODULE_NAME'});
			delete($ENV{'FOREIGN_ROOT_DIRECTORY'});
			&clean_environment();
			$ENV{'REMOTE_USER'} = $remote_user;	# For usermin
			$ENV{'BASE_REMOTE_USER'} = $base_remote_user;
			&at::create_atjob(
				$module_info{'usermin'} ? $remote_user : "root",
				$download{'time'},
				"$atjob_cmd $download{'id'}",
				"/");
			&reset_environment();
			}
		}

&redirect("index.cgi?mode=download");
	}
else {
	# Download it now, and show the results
	&ui_print_unbuffered_header(undef, $text{'download_title'}, "");

$error = &do_download(\%download, \&progress_callback, \@paths);
	@paths = grep { $_ } @paths;
	if (@paths) {
		print "$text{'download_done'}\n";
		foreach $p (@paths) {
			@st = stat($p);
			print "<tt>$p</tt> ($st[7] bytes) \n";
			}
		}
	if ($error) {
		print "",&text('download_failed', $error),"\n";
		}

&ui_print_footer("index.cgi?mode=download", $text{'index_return'});
	}
&webmin_log("download", undef, undef, { 'urls' => \@urls,
					'time' => $download{'time'} });

${this.title}

Code Editor : download.cgi