Advanced_Guest
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
упал сервер 
только с Localhost его видно
файлы:
простой:
Код:
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "Perl Works!";
|
Сложный:
Код:
#!/usr/bin/perl
#^^^^^^^^^^^^^^
#
# You may need to edit that line to reflect your path to perl.
##############################################################
#
# Ikonboard Systems Checker
#
#
# Copyright (c) 2001 Matthew Mecham for Ikonboard.com
#
# WE ACCEPT NO LIABILITY FOR USING THIS SCRIPT. THE ONLY THING
# WE GUARANTEE IS THAT IT TAKES UP HARD DRIVE SPACE!!
#
###############################################################
use strict;
my $has_sendmail = 'Cannot Locate it';
my @send_mail = qw(
/usr/sbin/sendmail
/sbin/sendmail
/usr/bin/sendmail
/bin/sendmail
/usr/lib/sendmail
/lib/sendmail
/usr/slib/sendmail
/slib/sendmail
/usr/sendmail
/sendmail
sendmail
/var/qmail/bin/qmail-inject
);
eval { require 5 };
my $has_perl = $@ ? 'No' : 'Yes';
eval { require DB_File };
my $has_dbm = $@ ? 'No' : 'Yes';
eval { require CGI };
my $has_cgi = $@ ? 'No' : 'Yes';
my $cgi_version = $CGI::VERSION;
eval { require DBI };
my $has_dbi = $@ ? 'No' : 'Yes';
my $perl_version = $];
my $script = $0;
$script =~ s/.*\/(.*?)/$1/;
my $path = $ENV{'DOCUMENT_ROOT'};
if ( eval { require Cwd; } ) {
use Cwd;
$path = cwd();
}
#$path =~ s!$script!!;
for (@send_mail) {
$has_sendmail = $_ if (-e $_ );
}
# Lets Print it Out
print "Content-Type: text/html\n\n";
print <<_END_OF_TIME;
<html>
<head>
<title>Ikonboard Perl Checker</title>
</head>
<body bgcolor='#FFFFFF'>
<font face='Verdana, Arial' size='3' color='#000000'>
<b>Ikonboard Perl Checker</b>
<hr>
The following results were returned
<br><br>
Is Perl Version 5 or above installed? <b>$has_perl</b>
<br>
Version of Perl running on this server: <b>$perl_version</b>
<br>
Is the CGI.pm module installed?: <b>$has_cgi</b>
<br>
Version of CGI running on this server: <b>$cgi_version</b>
<br>
Is the DB_File installed on this server to allow DBM's to be used? <b>$has_dbm</b>
<br>
Is the DBI package installed, allowing the use of mySQL? <b>$has_dbi</b>
<br>
Full path to this script: <b>$path</b>
<br>
Sendmail Path: <b>$has_sendmail</b>
<br><br>
That's it, you can run ikonboard if the Perl version is greater than 5!
</body>
</html>
_END_OF_TIME
exit;
|
|
.