代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/100018/15888975
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a list of run-levels and the actions that are run at boot and
# shutdown time for each level
require './init-lib.pl';
&header($text{'index_title'}, "", und
www.eeworm.com/read/100018/15889012
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
require './dfs-lib.pl';
&header("NFS Shares", "", "intro", 1, 1);
print "\n";
@shlist = &list_shares();
if (@shlist) {
print "\n";
p
www.eeworm.com/read/100018/15889032
cgi apply.cgi
#!/usr/local/bin/perl
# apply.cgi
# Call lilo to apply the current config
require './lilo-lib.pl';
&foreign_require("proc", "proc-lib.pl");
$| = 1;
&header($text{'apply_title'}, "");
print "\n
www.eeworm.com/read/100018/15889034
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display all the boot partitions
require './lilo-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1);
print "\n";
# Check for non-intel architecture
if (`u
www.eeworm.com/read/100018/15889036
cgi find.cgi
#!/usr/local/bin/perl
# find.cgi
# Broadcast to other webmin servers
require './servers-lib.pl';
use Socket;
foreach $s (&list_servers()) {
$server{gethostbyname($s->{'host'})}++;
}
# create the
www.eeworm.com/read/100018/15889048
cgi link.cgi
#!/usr/local/bin/perl
# link.cgi
# Forward the URL from path_info on to another webmin server
require './servers-lib.pl';
$ENV{'PATH_INFO'} =~ /^\/(\d+)(.*)$/ ||
&error("Bad PATH_INFO : $ENV{'PATH_I
www.eeworm.com/read/100018/15889055
cgi index.cgi
#!/usr/local/bin/perl
# Display a list of other webmin servers
require './servers-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1);
print "\n";
@servers = sort { $a->{'host'} cmp $b->{'ho
www.eeworm.com/read/100018/15889064
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
require './hpuxexports-lib.pl';
&header("NFS Exports", "", undef, 1, 1);
print "\n";
@exp = &list_exports();
if (@exp) {
print "\n";
www.eeworm.com/read/100018/15889069
cgi stop.cgi
#!/usr/local/bin/perl
# stop.cgi
# Stop the running squid process
require './squid-lib.pl';
&ReadParse();
$whatfailed = "Failed to stop squid";
$out = `$config{'squid_path'} -f $config{'squid_conf'}
www.eeworm.com/read/100018/15889073
cgi chown.cgi
#!/usr/local/bin/perl
# chown.cgi
# Change permissions on cache/log/pid files after a user change
require './squid-lib.pl';
$| = 1;
&header("Change Ownership", "");
print "\n";
$conf = &get_confi