代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/100018/15889470
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a list of directories and their client(s)
require './exports-lib.pl';
&header($text{'index_title'}, "", "intro", 1, 1);
print "\n";
@exps = &list_expo
www.eeworm.com/read/100018/15889475
cgi help.cgi
#!/usr/local/bin/perl
# help.cgi
# Displays help HTML for some module, with substitutions
require './web-lib.pl';
&error_setup($text{'help_err'});
$ENV{'PATH_INFO'} =~ /^\/(\S+)\/(\S+)$/ || &error($t
www.eeworm.com/read/100018/15889477
cgi config.cgi
#!/usr/local/bin/perl
# config.cgi
# Display a form for editing the configuration of a module.
# Each module has a number of configurable parameters (stored in the file
# config.txt in the module dire
www.eeworm.com/read/100018/15889479
cgi chooser.cgi
#!/usr/local/bin/perl
# chooser.cgi
# Outputs HTML for a frame-based file chooser
$icon_map = ( "c", "text.gif",
"txt", "text.gif",
"pl", "text.gif",
"cgi", "text.gif",
"html", "text.gif",
www.eeworm.com/read/100018/15889494
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Displays a list of all PAP secrets
require './pap-lib.pl';
&header("PPP Accounts", "", undef, 1, 1);
print "\n";
if (!(-r $config{'pap_file'})) {
print "T
www.eeworm.com/read/100018/15889501
cgi tunefs.cgi
#!/usr/local/bin/perl
# tunefs.cgi
# You can tune a filesystem, but you can't tuna fish
require './format-lib.pl';
&ReadParse();
&can_edit_disk($in{'dev'}) || &error("You are not allowed to tune this
www.eeworm.com/read/100018/15889508
cgi fsck.cgi
#!/usr/local/bin/perl
# fsck.cgi
# Do the actual checking of a filesystem
require './format-lib.pl';
&ReadParse();
&can_edit_disk($in{'dev'}) || &error("You are not allowed to fsck this disk");
&head
www.eeworm.com/read/100018/15889509
cgi newfs.cgi
#!/usr/local/bin/perl
# newfs.cgi
# Create a new filesystem
require './format-lib.pl';
&ReadParse();
&can_edit_disk($in{'dev'}) || &error("You are not allowed to format this disk");
$whatfailed = "F
www.eeworm.com/read/100018/15889514
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a list of known disks and partitions
require './format-lib.pl';
$whatfailed = "Failed to list disks";
&header("Partitions on Local Disks", "", undef, 1, 1)
www.eeworm.com/read/100018/15889519
cgi stop.cgi
#!/usr/local/bin/perl
# stop.cgi
# Stop the print scheduler
require './lpadmin-lib.pl';
&ReadParse();
$access{'stop'} || &error($text{'stop_ecannot'});
&error_setup($text{'stop_err'});
&stop_sched($i