代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/100018/15889296
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a list of known services, built from those handled by inetd and
# from the services file
require './inetd-lib.pl';
&header("Internet Services", "", undef,
www.eeworm.com/read/100018/15889306
cgi openall.cgi
#!/usr/local/bin/perl
# openall.cgi
# Add all classes to the open list
require './software-lib.pl';
open(HEIROPEN, "> $module_config_directory/heiropen");
$n = &list_packages();
for($i=0; $i
www.eeworm.com/read/100018/15889313
cgi search.cgi
#!/usr/local/bin/perl
# search.cgi
# Display a list of packages where the name or description matches some string
require './software-lib.pl';
&ReadParse();
$n = &list_packages();
$s = $in{'search'}
www.eeworm.com/read/100018/15889322
cgi close.cgi
#!/usr/local/bin/perl
# close.cgi
# Remove some class from the open list
require './software-lib.pl';
&ReadParse();
open(HEIROPEN, "$module_config_directory/heiropen");
@heiropen = ;
close(
www.eeworm.com/read/100018/15889326
cgi open.cgi
#!/usr/local/bin/perl
# open.cgi
# Add some class to the open list
require './software-lib.pl';
&ReadParse();
open(HEIROPEN, ">> $module_config_directory/heiropen");
print HEIROPEN "$in{'what'}\n";
c
www.eeworm.com/read/100018/15889353
cgi closeall.cgi
#!/usr/local/bin/perl
# closeall.cgi
# Empty the open list
require './software-lib.pl';
unlink("$module_config_directory/heiropen");
&redirect("");
www.eeworm.com/read/100018/15889355
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Lists all installed packages
require './software-lib.pl';
&header($text{'index_title'}, "", "intro", 1, 1);
print "\n";
$spacer = " "x3;
# work out the p
www.eeworm.com/read/100018/15889391
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a list of all cron jobs, with the username and command for each one
require './cron-lib.pl';
%access = &get_module_acl();
&header($text{'index_title'}, ""
www.eeworm.com/read/100018/15889399
cgi index.cgi
#!/usr/local/bin/perl
require './web-lib.pl';
&init_config();
$hostname = &get_system_hostname();
$ver = &get_webmin_version();
if ($gconfig{'real_os_type'}) {
$ostr = "$gconfig{'real_os_type'} $gco
www.eeworm.com/read/100018/15889432
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display a menu of various network screens
require './net-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1);
print "\n";
@links = ( "list_ifcs.cgi", "li