📄 cgienv.cgi

📁 网络硬盘_支持1GB文件上传和续传_无错版

💻 CGI

字号:

#!/usr/bin/perl
##
##  printenv -- demo CGI program which just prints its environment
##
use CGI;
use Fcntl qw(:DEFAULT :flock);
use File::Temp qw/ tempfile tempdir /;
use CGI::Carp qw/fatalsToBrowser/;

print "Content-type: text/html; charset=iso-8859-1\n\n";
print qq _
<html>
<head>
<title>Mega File Hosting Script</title>
<META NAME="description" CONTENT="Mega File Hosting Script">
<META NAME="keywords" CONTENT="">                 
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"><!---->
<META NAME="robots" CONTENT="INDEX, FOLLOW">
</head>
<style>
body {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 14px;
}
.style1 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
}
</style>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center><h3>CGI-BIN Requirement Detecting</h3></center>
<table width=60% class="style1" align=center><tr><td>
_;

for('LWP', 'CGI','Fcntl','File::Temp')
{
	eval "require $_";
	if($@)
	{
		print	  "\nThe <b>$_ module</b> is <font color=red>required</font>, but could not be found!<br>";
			
	
	}
       else
       {
             print	  "\nThe <b>$_ module</b>".($_ eq 'CGI'?'(v'.$CGI::VERSION.')':'')." is <font color=blue>installed</font>!<br>";


       }
}
print qq _
</td></tr></table>
</body></html>
_;

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -