server online

http://www.bb4.com/

kan ik bruges, søger et bestemt script

point hævet til 60

## Disse tre skal nok rettes til ##
$host = "localhost";
$email = 'root@localhost';
$sendmail = '/usr/bin/sendmail'

$http = 0;
$smtp = 0;

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10, Errmode => "return");
if ($t->open(Host => "$host", Port => 80)) {
        $t->print("GET / HTTP/1.0\n\n");
        $lines = $t->getlines();
        $http = 1 if ($lines =~ /HTTP\/1\.1\ 200\ OK||HTTP\/1\.0\ 200\ OK/);
        $t->close;
}

$t2 = new Net::Telnet (Timeout => 10, Errmode => "return");
if ($t2->open(Host => "$host", Port => 25)) {
        $smtp = 1 if ($t2->waitfor(-match => '/^220/'));
        $t2->close;
}

@errormsg = "Unable to connect to $host on port 25" if ($smtp eq 0);
@errormsg = "Unable to connect to $host on port 80" if ($http eq 0);
@errormsg = "Unable to connect to $host on port 80\nUnable to connect to $host on port 25" if ($http eq 0&&$smtp eq 0);
if (($http eq 0)|($smtp eq 0)) {
        system("echo -e \"Subject: Error in connecting\\n\\n @errormsg \\n\" | $sendmail $email");
}

arj!! Har først nu set der stod port 21.. Læste det som 25..

Så er det fixet..


## Disse tre skal nok rettes til ##
$host = "localhost";
$email = 'root@localhost';
$sendmail = '/usr/bin/sendmail'

$http = 0;
$ftp = 0;

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10, Errmode => "return");
if ($t->open(Host => "$host", Port => 80)) {
        $t->print("GET / HTTP/1.0\n\n");
        $lines = $t->getlines();
        $http = 1 if ($lines =~ /HTTP\/1\.1\ 200\ OK||HTTP\/1\.0\ 200\ OK/);
        $t->close;
}

$t2 = new Net::Telnet (Timeout => 10, Errmode => "return");
if ($t2->open(Host => "$host", Port => 21)) {
        $smtp = 1 if ($t2->waitfor(-match => '/^220/'));
        $t2->close;
}

@errormsg = "Unable to connect to $host on port 21" if ($ftp eq 0);
@errormsg = "Unable to connect to $host on port 80" if ($http eq 0);
@errormsg = "Unable to connect to $host on port 80\nUnable to connect to $host on port 21" if ($http eq 0&&$ftp eq 0);

if (($http eq 0)|($ftp eq 0)) {
        system("echo -e \"Subject: Error in connecting\\n\\n @errormsg \\n\" | $sendmail $email");
}

Som skabslæser: Må jeg spørge hvordan du kalder php-scriptet fra et cron-job?

nææh.. For nu er det jo et prtl script.. :)

php er i en anden gruppe..

Ååh undskyld - tog det fra forsiden, og scriptet lignede jo til forveksling php ...
I rest my case *gg*

angam:

Hvis det sku være en anden dag, så kalder du bare php scriptet via
php /stien/til/dit/script.php

Så skulle det aktiveres... sådan fungere det ihvertfald på min redhat9