代码搜索：cgi

找到约 10,000 项符合「cgi」的源代码

代码结果 10,000
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/100018/15888290

cgi upload.cgi

#!/usr/local/bin/perl # upload.cgi # Upload a file require './file-lib.pl'; &header(); &ReadParseMime(); if (!$in{'file'}) { print "$text{'upload_efile'}\n"; } elsif (!-d $in{'dir'})
·
www.eeworm.com/read/100018/15888291

cgi root.cgi

#!/usr/local/bin/perl # root.cgi # Return information about the root directory require './file-lib.pl'; print "Content-type: text/plain\n\n"; print &file_info_line("/"),"\n";
·
www.eeworm.com/read/100018/15888331

cgi upform.cgi

#!/usr/local/bin/perl # upform.cgi # Display the upload form require './file-lib.pl'; &header($text{'upload_title'}); &ReadParse(); print "
·
www.eeworm.com/read/100018/15888339

cgi chmod.cgi

#!/usr/local/bin/perl # chmod.cgi # Change the ownership and permissions on a file require './file-lib.pl'; &ReadParse(); &switch_acl_uid(); print "Content-type: text/plain\n\n"; &can_access($in{'pat
·
www.eeworm.com/read/100018/15888355

cgi save.cgi

#!/usr/local/bin/perl # save.cgi # Write data to a file require './file-lib.pl'; $p = $ENV{'PATH_INFO'}; &switch_acl_uid(); print "Content-type: text/plain\n\n"; read(STDIN, $buf, $ENV{'CONTENT_LENGT
·
www.eeworm.com/read/100018/15888357

cgi rename.cgi

#!/usr/local/bin/perl # rename.cgi # Rename some file require './file-lib.pl'; &switch_acl_uid(); print "Content-type: text/plain\n\n"; &ReadParse(); if (!&can_access($in{'old'})) { print &text('ren
·
www.eeworm.com/read/100018/15888358

cgi show.cgi

#!/usr/local/bin/perl # show.cgi # Output some file for the browser require './file-lib.pl'; &switch_acl_uid(); use POSIX; $p = $ENV{'PATH_INFO'}; if ($p =~ /\.([^\.\/]+)$/) { $ext = $1; &get_minis
·
www.eeworm.com/read/100018/15888359

cgi copy.cgi

#!/usr/local/bin/perl # copy.cgi # Copy some file or directory require './file-lib.pl'; &ReadParse(); &switch_acl_uid(); print "Content-type: text/plain\n\n"; if (!&can_access($in{'from'})) { print
·
www.eeworm.com/read/100018/15888360

cgi index.cgi

#!/usr/local/bin/perl # index.cgi # Output HTML for the file manager applet require './file-lib.pl'; &header($text{'index_title'}); print
·
www.eeworm.com/read/100018/15888361

cgi delete.cgi

#!/usr/local/bin/perl # delete.cgi # Delete some file or directory require './file-lib.pl'; &ReadParse(); &switch_acl_uid(); print "Content-type: text/plain\n\n"; if (!&can_access($in{'file'})) { pr
·