代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/450298/1671572
cgi connector.cgi
#!/usr/bin/env perl
#####
# FCKeditor - The text editor for internet
# Copyright (C) 2003-2005 Frederico Caldeira Knabben
#
# Licensed under the terms of the GNU Lesser General Public Lic
www.eeworm.com/read/449138/1680262
cgi alphafill.cgi
#!/usr/bin/perl -wT
use strict;
use SWF qw(:ALL);
my $dir = '/home/soheil/src/ming-0.0.9/examples/common/';
print "Content-type: application/x-shockwave-flash\n\n";
my $s = new SWF::Shape();
my $
www.eeworm.com/read/449138/1680263
cgi shape.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(Movie Shape);
SWF::setScale(1.0);
my $s = new SWF::Shape();
$s->setLine(40, 0x7f, 0, 0);
$s->setRigh
www.eeworm.com/read/449138/1680264
cgi jpegfill.cgi
#!/usr/bin/perl
use strict;
use SWF qw(:ALL);
SWF::setScale(1.0);
print "Content-type: application/x-shockwave-flash\n\n";
my $s = new SWF::Shape();
my $b = new SWF::Bitmap('/home/soheil/src/ming-0
www.eeworm.com/read/449138/1680265
cgi animation.cgi
#!/usr/bin/perl -w
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
use SWF qw(:ALL);
$|=1;
SWF::setScale(1);
# where are the fontfiles?
my $dir = '../common/';
my $font= '_sans.fdb';
www.eeworm.com/read/449138/1680266
cgi sound.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(:ALL);
use SWF::Constants qw(SWF_SOUND_22KHZ SWF_SOUND_11KHZ SWF_SOUND_16BITS SWF_SOUND_8BITS SWF_SOUN
www.eeworm.com/read/449138/1680267
cgi video.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(:ALL);
my $file = '../common/test.flv';
my $stream=new SWF::VideoStream($file);
$stream->setDimens
www.eeworm.com/read/449138/1680268
cgi glyph.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(:ALL);
SWF::setScale(1.0);
# Add path to your *.fdb file
my $filename = '../common/_sans.fdb';
my
www.eeworm.com/read/449138/1680269
cgi morph.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(Movie Shape Morph);
SWF::setScale(20);
my $p = new SWF::Morph();
my $s = $p->getShape1();
$s->setLi
www.eeworm.com/read/449138/1680270
cgi sprite.cgi
#!/usr/bin/perl
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
$|=1;
use SWF qw(Movie Shape);
SWF::setScale(1.0);
my $s = new SWF::Shape;
$s->setRightFill($s->addFill(0xff, 0, 0))