Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.88 KB	-rw-r--r--
cgi_args.pl	124 B	-rwxr-xr-x
config	153 B	-rw-r--r--
config-solaris	202 B	-rw-r--r--
config.info	442 B	-rw-r--r--
config.info.ca	526 B	-rw-r--r--
config.info.ca.UTF-8	539 B	-rw-r--r--
config.info.cz	474 B	-rw-r--r--
config.info.cz.UTF-8	494 B	-rw-r--r--
config.info.de	560 B	-rw-r--r--
config.info.de.UTF-8	560 B	-rw-r--r--
config.info.es	426 B	-rw-r--r--
config.info.es.UTF-8	383 B	-rw-r--r--
config.info.fr	457 B	-rw-r--r--
config.info.fr.UTF-8	457 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	70 B	-rw-r--r--
config.info.hu.UTF-8	72 B	-rw-r--r--
config.info.it	517 B	-rw-r--r--
config.info.it.UTF-8	517 B	-rw-r--r--
config.info.ja_JP.UTF-8	611 B	-rw-r--r--
config.info.ja_JP.euc	472 B	-rw-r--r--
config.info.ko_KR.UTF-8	457 B	-rw-r--r--
config.info.ko_KR.euc	367 B	-rw-r--r--
config.info.ms	267 B	-rw-r--r--
config.info.ms.UTF-8	267 B	-rw-r--r--
config.info.ms_MY	473 B	-rw-r--r--
config.info.ms_MY.UTF-8	473 B	-rw-r--r--
config.info.nl	476 B	-rw-r--r--
config.info.nl.UTF-8	476 B	-rw-r--r--
config.info.no	459 B	-rw-r--r--
config.info.no.UTF-8	459 B	-rw-r--r--
config.info.pl	479 B	-rw-r--r--
config.info.pl.UTF-8	505 B	-rw-r--r--
config.info.ru.UTF-8	292 B	-rw-r--r--
config.info.ru_RU	192 B	-rw-r--r--
config.info.ru_RU.UTF-8	292 B	-rw-r--r--
config.info.ru_SU	192 B	-rw-r--r--
config.info.sv	74 B	-rw-r--r--
config.info.sv.UTF-8	76 B	-rw-r--r--
config.info.uk_UA	204 B	-rw-r--r--
config.info.uk_UA.UTF-8	300 B	-rw-r--r--
config.info.zh_CN	198 B	-rw-r--r--
config.info.zh_CN.UTF-8	244 B	-rw-r--r--
config.info.zh_TW.Big5	182 B	-rw-r--r--
config.info.zh_TW.UTF-8	224 B	-rw-r--r--
cpan-lib.pl	11.02 KB	-rwxr-xr-x
cpan.cgi	3.36 KB	-rwxr-xr-x
delete_file.cgi	312 B	-rwxr-xr-x
download.cgi	10.52 KB	-rwxr-xr-x
edit_mod.cgi	2.35 KB	-rwxr-xr-x
index.cgi	4.28 KB	-rwxr-xr-x
install.cgi	3.61 KB	-rwxr-xr-x
module.info	160 B	-rw-r--r--
module.info.ca	120 B	-rw-r--r--
module.info.ca.UTF-8	136 B	-rw-r--r--
module.info.cz	21 B	-rw-r--r--
module.info.cz.UTF-8	27 B	-rw-r--r--
module.info.de	126 B	-rw-r--r--
module.info.de.UTF-8	138 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.UTF-8	42 B	-rw-r--r--
module.info.fr	28 B	-rw-r--r--
module.info.fr.UTF-8	34 B	-rw-r--r--
module.info.hu	21 B	-rw-r--r--
module.info.hu.UTF-8	27 B	-rw-r--r--
module.info.it	20 B	-rw-r--r--
module.info.it.UTF-8	26 B	-rw-r--r--
module.info.ja_JP.UTF-8	38 B	-rw-r--r--
module.info.ja_JP.euc	31 B	-rw-r--r--
module.info.ko_KR.UTF-8	29 B	-rw-r--r--
module.info.ko_KR.euc	25 B	-rw-r--r--
module.info.ms_MY	115 B	-rw-r--r--
module.info.ms_MY.UTF-8	127 B	-rw-r--r--
module.info.nl	28 B	-rw-r--r--
module.info.nl.UTF-8	34 B	-rw-r--r--
module.info.no	21 B	-rw-r--r--
module.info.no.UTF-8	27 B	-rw-r--r--
module.info.pl	106 B	-rw-r--r--
module.info.pl.UTF-8	123 B	-rw-r--r--
module.info.ru.UTF-8	32 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	35 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
module.info.sv	21 B	-rw-r--r--
module.info.sv.UTF-8	27 B	-rw-r--r--
module.info.zh_CN	21 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
postinstall.pl	239 B	-rwxr-xr-x
uninstall.cgi	1.16 KB	-rwxr-xr-x
uninstall_mods.cgi	1.33 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display installed perl modules and a form for installing new ones

require './cpan-lib.pl';
$ver = &get_nice_perl_version();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		 undef, undef, undef, &text('index_pversion', $ver));
&ReadParse();

# Check if Perl is installed from a global zone
if (&shared_perl_root()) {
	print "$text{'index_ezone'}\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}
$formno = 0;

# Start tabs
@mods = &list_perl_modules();
@tabs = (
	  [ 'install', $text{'index_tabinstall'}, 'index.cgi?mode=install' ],
	  [ 'mods', $text{'index_tabmods'}, 'index.cgi?mode=mods' ],
	  [ 'suggest', $text{'index_tabsuggest'}, 'index.cgi?mode=suggest' ],
	);
$in{'mode'} ||= 'install';
print &ui_tabs_start(\@tabs, 'mode', $in{'mode'}, 1);

# Display install form
print &ui_tabs_start_tab('mode', 'install');
print "$text{'index_installmsg'}\n";
print &ui_form_start("download.cgi", "form-data");

# Work out of packages should be refreshed
@st = stat($packages_file);
if (@st) {
	$now = time();
	$refreshopt = " ".&ui_checkbox("refresh", 1, $text{'index_refresh'},
			$st[9]+$config{'refresh_days'}*24*60*60 < $now);
	}
if ($config{'incyum'} && &can_list_packaged_modules()) {
	$cpanopt = " ".&ui_checkbox("forcecpan", 1,
				 $text{'index_forcecpan'}, 0);
	}

@opts = ( [ 3, $text{'index_cpan'},
	    &ui_textbox("cpan", undef, 50)." ".
	    &ui_button("...", undef, 0, "onClick='window.ifield = document.forms[$formno].cpan; chooser = window.open(\"cpan.cgi\", \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=800,height=500\"); chooser.ifield = window.ifield;'").
	    $refreshopt.$cpanopt ],
	  [ 0, $text{'index_local'},
	    &ui_textbox("local", undef, 50)." ".
	    &file_chooser_button("local", 0) ],
	  [ 1, $text{'index_uploaded'},
	    &ui_upload("upload", 50) ],
	  [ 2, $text{'index_ftp'},
	    &ui_textbox("url", undef, 50) ]
	 );
print &ui_radio_table("source", 3, \@opts);
print &ui_form_end([ [ undef, $text{'index_installok'} ] ]);
print &ui_tabs_end_tab();

# Display perl modules
print &ui_tabs_start_tab('mode', 'mods');
if (@mods) {
	print &ui_form_start("uninstall_mods.cgi", "post");
	print &select_all_link("d", 1),"\n";
	print &select_invert_link("d", 1)," \n";
	@tds = ( "width=5", undef, undef, undef, undef, "nowrap" );
	print &ui_columns_start([ "",
				 $text{'index_name'},
				 $text{'index_sub'},
				 $text{'index_desc'},
				 $text{'index_ver'},
				 $text{'index_date'} ], 100, 0, \@tds);
	foreach $m (sort { lc($a->{'mods'}->[$a->{'master'}]) cmp
			 lc($b->{'mods'}->[$b->{'master'}]) } @mods) {
		local $mi = $m->{'master'};
		local @cols;
		local $master = $m->{'mods'}->[$mi];
		local $name = &html_escape($master);
		if ($m->{'pkg'}) {
			$name = "$name";
			}
		push(@cols, "<a href='edit_mod.cgi?idx=$m->{'index'}&".
			 "midx=$mi&name=$mod->{'name'}'>$name</a>");
		push(@cols, @{$m->{'mods'}} - 1);
		local ($desc, $ver) = &module_desc($m, $mi);
		push(@cols, &html_escape($desc));
		push(@cols, $ver);
		push(@cols, &make_date($m->{'time'}));
		print &ui_checked_columns_row(\@cols, \@tds, "d", $m->{'name'});
		}
	print &ui_columns_end();
	print &select_all_link("d", 1),"\n";
	print &select_invert_link("d", 1)," \n";
	print &ui_form_end([ [ "delete", $text{'index_delete'} ],
			 [ "upgrade", $text{'index_upgrade'} ] ]);
	$formno++;
	}
else {
	print "$text{'index_none'}\n";
	}
print &ui_tabs_end_tab();

# Show button to install recommended Perl modules
print &ui_tabs_start_tab('mode', 'suggest');
@allrecs = &get_recommended_modules();
@recs = grep { eval "use $_->[0]"; $@ } @allrecs;
if (@recs) {
	print &ui_form_start("download.cgi");
	print &ui_hidden("source", 3),"\n";
	print "$text{'index_recs'}\n";
	print &ui_multi_select("cpan",
		 [ map { [ $_->[0],
			 &text('index_user', $_->[0], $_->[1]->{'desc'}) ] }
		 @recs ],
		 [ map { [ $_->[0],
			 &text('index_user', $_->[0], $_->[1]->{'desc'}) ] }
		 @recs ],
		 20, 1, 0,
		 $text{'index_allmods2'}, $text{'index_wantmods'}, 300)," \n";
	print &ui_submit($text{'index_recsok'});
	print &ui_form_end();
	}
elsif (@allrecs) {
	print &text('index_recsgot',"<tt>".join(" ", map { $_->[0] } @allrecs)."</tt>"),"\n";
	}
print &ui_tabs_end_tab();

print &ui_tabs_end(1);

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi