代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/100018/15888099
cgi flushq.cgi
#!/usr/local/bin/perl
# flushq.cgi
# Run sendmail -vq and display the output
require './sendmail-lib.pl';
$| = 1;
&header($text{'flushq_title'}, "");
print "\n";
$cmd = "$config{'sendmail_pat
www.eeworm.com/read/100018/15888132
cgi start.cgi
#!/usr/local/bin/perl
# start.cgi
# Start sendmail
require './sendmail-lib.pl';
$access{'stop'} || &error("You are not allowed to start sendmail");
$whatfailed = "Failed to start sendmail";
$out = `$
www.eeworm.com/read/100018/15888133
cgi detach.cgi
#!/usr/local/bin/perl
# detach.cgi
# View one attachment from a message
require './sendmail-lib.pl';
require './boxes-lib.pl';
&ReadParse();
@mail = &list_mails($in{'user'}, $in{'idx'}, $in{'idx'});
www.eeworm.com/read/100018/15888186
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Display icons for various things that can be configured in sendmail
require './sendmail-lib.pl';
&header($text{'index_title'}, "", "intro", 1, 1);
print "\n";
www.eeworm.com/read/100018/15888190
cgi qdetach.cgi
#!/usr/local/bin/perl
# detach.cgi
# View one attachment from a message
require './sendmail-lib.pl';
require './boxes-lib.pl';
&ReadParse();
$access{'mailq'} || &error($text{'mailq_ecannot'});
$in{'
www.eeworm.com/read/100018/15888201
cgi run.cgi
#!/usr/local/bin/perl
# run.cgi
# Run a command, and maybe display it's output
require './proc-lib.pl';
&ReadParse();
&switch_acl_uid();
$in{'input'} =~ s/\r//g;
if ($in{'mode'}) {
# fork and run..
www.eeworm.com/read/100018/15888253
cgi index.cgi
#!/usr/local/bin/perl
# index.cgi
# Redirect to default index
require './proc-lib.pl';
if ($config{'default_mode'} ne "last") {
$idx = "index_$config{'default_mode'}.cgi";
}
elsif (open(INDEX, "$mo
www.eeworm.com/read/100018/15888282
cgi list.cgi
#!/usr/local/bin/perl
# list.cgi
# Return a list of files in some directory
require './file-lib.pl';
&ReadParse();
&switch_acl_uid();
print "Content-type: text/plain\n\n";
$d = $in{'dir'} eq "/" ? ""
www.eeworm.com/read/100018/15888284
cgi mkdir.cgi
#!/usr/local/bin/perl
# mkdir.cgi
# Create a directory
require './file-lib.pl';
&ReadParse();
&switch_acl_uid();
print "Content-type: text/plain\n\n";
if (!&can_access($in{'dir'})) {
print &text('mk
www.eeworm.com/read/100018/15888285
cgi lang.cgi
#!/usr/local/bin/perl
# lang.cgi
# Return language translation values
require './file-lib.pl';
print "Content-type: text/plain\n\n";
foreach $k (keys %text) {
print $k,"=",$text{$k},"\n";
}