代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/165151/10074429
c cgi.c
/*
* cgi.c -- CGI processing (for the GoAhead Web server
*
* Copyright (c) GoAhead Software Inc., 1995-2000. All Rights Reserved.
*
* See the file "license.txt" for usage and redistribution
www.eeworm.com/read/360506/10089700
cgi test.cgi
#! /usr/bin/perl -w
#
#
#
use CGI;
print "Content-type: text/html\n\n";
$c = new CGI;
$ta = $c->param('ta');
print
www.eeworm.com/read/163491/10157204
cgi astrocam.cgi
#!/bin/sh
# this is the astrocam webinterface
# written and copyright (c) 2001,2002,2003 by Steffen Wendzel
# Steffen Wendzel:
#
# LICENSE: GPL
echo 'Content-type: text
www.eeworm.com/read/280804/10291474
cgi trade.cgi
# Sub Set Port #
sub set_port {
my $AreaFile = new Nfile("$datadir/$area\.dat",'save');
@arealine = $AreaFile->read;
my ($ch_port) = split(//,$_[0]);
foreach (0 .. $#arealine) {
($num) =
www.eeworm.com/read/280804/10291480
cgi sys.cgi
# Sub Get Me #
sub get_me {
return if $getmeflag;
my $save = $_[1] ? 'read' : 'save';
$Myfile = new Nfile("$usrdir\/$_[0]\.dat",$save);
@ilines = $Myfile->read;
if (!@ilines) { &error("I
www.eeworm.com/read/280804/10291486
cgi rank.cgi
# Sub Ranking #
sub ranking {
my @mlabel = ('資金王','大富豪','富豪');
my @alabel = ('冒險王','大冒險家','冒險家');
my @plabel = ('海賊王','大海賊','海賊');
my @tlabel = ('交易王','大商人','商人');
my @rlabel = ('新人冒險家','新人
www.eeworm.com/read/280804/10291493
cgi mail.cgi
# Sub Mail Form #
sub mail_form {
&get_me($F{'id'},'read');
&header;
&title;
&table('up','95%',1);
&label('傳遞訊息');
print qq|訊息已傳送至$uname\n| if $uname;
@friend = split(/△/,$frien