Wanting to ping our server to retrieve the status [PERL]

[patelxxx]

Guy's,

On my homepage website I want to display the current status of our server. The idea I have is to ping (or send my ip address) to our server every 5 mins and the result I get back should result (and display on my homepage) in a success or failure of the server.

Can someone please help me with the coding [PERL] for this or just start me off?

Many Thanks in advance.

Regards

Ravi

[miller]

Greetings Ravi,

This seems like a strange goal. You want to display the network status of a server on a webpage located on the server? It seems apparant to me that if you can reach the webpage then you already know the server is up.

Anyway, putting aside my possible misunderstanding of your goal, it sounds like all you need is a perl daemon and a database.

The daemon/script simply pings some external location and updates the result to a database. The webpage then pulls the data from the database to display the status for whatever time period you wish to report. The only module that is really required for this is

cpan Net::Ping

Otherwise, all you need is use of the sleep function and know how to update a database.

- Miller

[patelxxx]

The task given to me is from work, they require a 'status' for the two servers they look after. This status of the servers will be displayed on the Content Management System, so that clients can see the update to date status of the servers.

Miller I'm a trainee Perl developer and you have so far truely helped me many times. Many many thanks mate.

Cheers

Ravi

[miller]

Ok. Well given that, what I described to you should work.

- Miller

[patelxxx]

Guy's,

If I was using a CSV file as apposed to a database how would that work? Do I just constantly update the CSV file or create a new one each time.

Many Thanks

[patelxxx]

Merged Thread: How to create a CSV file once I have pinged the server?

Hi Guy's,

Firstly I'm going to ping (Net::Ping) two servers, then I want to create a CSV file to store the server status.

How can I go about generating a csv file [in PERL] and then using that CSV to update our website homepage with the Current Server Status.

Many Thanks in advance.

[miller]

I would be tempted to append to one CSV file, but setup an automatic log rotating by naming the file according to the current year and month. Something like this would work:

# Giant Loop
for (;;) {
    # Code for Server Checking Here.
 
 
 
    # Output Data
    if ($csv->combine(time, $status)) {
        my $outfile = OUTDIR . OUTPREFIX . strftime("%Y%m",localtime) . '.csv';
        open (OUT, ">> $outfile") or die "Can't open $outfile: $!";
        print OUT $csv->string, "\n";
        close OUT;
    } else {
        die "combine() failed on argument: ", $csv->error_input, "\n";
    }
 
    sleep SLEEP_TIME;
}
 
1;
 
__END__
 

And to find the current file for parsing, the following code would work:

use constant OUT_DIR => '/this/is/your/datadir/';
 
my $file = (sort glob(OUT_DIR . "*"))[-1];
 

If you update every 5 minutes, then you can expect the monthly log file size to reach 8640 times the size of the line for each status. So probably a max size of 200k conservatively.

- Miller

[miller]

Hi Guy's,

Firstly I'm going to ping (Net::Ping) two servers, then I want to create a CSV file to store the server status.

How can I go about generating a csv file [in PERL] and then using that CSV to update our website homepage with the Current Server Status.

Many Thanks in advance.

I've already answered this question in the other thread. I will now merge those threads.

- Miller