Heth at 11:59, 6 October 2009

2009-10-06T11:59:45Z

Tcj at 10:29, 6 October 2009

2009-10-06T10:29:42Z

Tcj: /* Perl løsninger= */

2009-10-06T10:28:51Z

‎Perl løsninger=

Tcj: New page: =Perl løsninger== == Tomas Ping program == === device fil ===

 # Liste over hosts der skal pinges # Tomme linier eller linier der starter med # ignoreres # Felt 1 hostnavn eller ip a...

2009-10-06T10:28:23Z

New page: =Perl løsninger== == Tomas Ping program == === device fil === <pre> # Liste over hosts der skal pinges # Tomme linier eller linier der starter med # ignoreres # Felt 1 hostnavn eller ip a...

New page

=Perl løsninger==
== Tomas Ping program ==
=== device fil ===
<pre>
# Liste over hosts der skal pinges
# Tomme linier eller linier der starter med # ignoreres
# Felt 1 hostnavn eller ip adresse
# Felt 2 protocoltype

www.mitsubishi.co.jp tcp
83.90.47.30 udp
#80.80.12.112 icmp
www.cpan.org syn
83.90.239.188 tcp
vejr.tomas.dk tcp
</pre>
===Crontab===
<pre>
12 */2 * * * /home/tcj/bin/PingHosts.pl
</pre>
===PingHosts.pl===
<source lang=perl line=0>
#!/usr/bin/perl

### INITIERING ###
use strict;
use warnings;
use Net::Ping;

my $HOSTS = "/home/tcj/devices"; # Enheder der skal pinges
my $LOG = "/home/tcj/devices.log"; # Ping log
my $p; # linie fra HOST fil
my $host; # Host der skal pinges
my $proto; # Hvilken protokol der benyttes
my $ts; # Timestamp

### SUBRUTINER ###

sub TilLogFil {
## skriver tekst til logfil
# Input : Tekststreng
# Input : log fil
my $log_tekst = shift;
my $log_fil = shift;
my $logopen = 0;

open LOGFIL, ">>$log_fil" or $logopen = 1;
# Hvis $logopen = 0, kunne filen ikke <E5>bnes - IKKE kritisk!
if ( $logopen == 0 ) {
print LOGFIL "$log_tekst";
close LOGFIL;
} else {
warn "Logfil: $log_fil kunne ikke <E5>bnes\n";
warn "- Der er ikke skrevet i $log_fil\n";
}
}

sub TimeStamp {
## Returnerer tidsstempel
# Output: Tidsstempel: YYYYMMDD TT:MM:SS
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $tstamp;

$year += 1900;

$tstamp = sprintf"%d%02d%02d %02d:%02d:%02d", $year, $mon+1, $mday, $hour, $min, $sec;
return $tstamp;
}

sub PingDevice {
## Ping device med en given protokol
# Input: host
# Input: protocol
# Output: ok = 0; notok = 1
my $host = shift;
my $protocol = shift;
my $timeout = 1;
my $pr; # Ping result: undef = no host; 0 = succes; 1 = no reply

my $po = Net::Ping->new($protocol, $timeout);

$pr = $po->ping($host);
if ( (! defined $pr) or ( $pr == 1) ) {
return 1;
} else {
return 0;
}
}

### MAIN ###

$ts = TimeStamp;
TilLogFil("$ts ___ START PING HOSTS i $HOSTS ___\n", $LOG);

# <C5>ben Host fil
open HOST, "<$HOSTS" or die "Kunne ikke <E5>bne $HOSTS\n";

while ( $p = <HOST> ) {
# Tomme og kommentar linier springes over
if ( $p =~ /^\s*#|^\s+[^\S+]/ ) { next; }
$p =~ /\s*(\S+)\s+(\S+).*/;

$host = $1;
$proto = $2;

$ts = TimeStamp;
TilLogFil("$ts Ping: $host Protokol: $proto\t ",$LOG);

# Udf<F8>r ping
if ( PingDevice($host, $proto) == 0 ) {
# OK !!!
TilLogFil("OK\n",$LOG);
} else {
# NOT OK !!!
TilLogFil("NOT OK\n",$LOG);
}
}
close HOST;
$ts = TimeStamp;
TilLogFil("$ts ___ SLUT PING HOSTS i $HOSTS ___\n", $LOG);
<source>
===Logfil===
<pre>
20091006 12:21:10 ___ START PING HOSTS i /home/tcj/devices ___
20091006 12:21:10 Ping: www.mitsubishi.co.jp Protokol: tcp OK
20091006 12:21:10 Ping: 83.90.47.30 Protokol: udp NOT OK
20091006 12:21:10 Ping: www.cpan.org Protokol: syn NOT OK
20091006 12:21:10 Ping: 83.90.239.188 Protokol: tcp OK
20091006 12:21:11 Ping: vejr.tomas.dk Protokol: tcp OK
20091006 12:21:12 ___ SLUT PING HOSTS i /home/tcj/devices ___
</pre>

← Older revision		Revision as of 11:59, 6 October 2009
Line 133:		Line 133:

	--[[User:Tcj\|Tomas Christian Jensen]] 12:29, 6 October 2009 (CEST)		--[[User:Tcj\|Tomas Christian Jensen]] 12:29, 6 October 2009 (CEST)
		+	[[Category:Perl]]

Talk:TDC BB-TEL efterår 2009 - Revision history

Heth at 11:59, 6 October 2009

Tcj at 10:29, 6 October 2009

Tcj: /* Perl løsninger= */

Tcj: New page: =Perl løsninger== == Tomas Ping program == === device fil ===
# Liste over hosts der skal pinges # Tomme linier eller linier der starter med # ignoreres # Felt 1 hostnavn eller ip a...

@@ Line 120: / Line 120: @@
 $ts = TimeStamp;
 TilLogFil("$ts ___ SLUT PING HOSTS i $HOSTS ___\n", $LOG);
-<source>
+</source>
 ===Logfil===
 <pre>
@@ Line 132: / Line 132: @@
 </pre>
---~~~~
+--[[User:Tcj|Tomas Christian Jensen]] 12:29, 6 October 2009 (CEST)

@@ Line 1: / Line 1: @@
-=Perl løsninger==
+=Perl løsninger=
 == Tomas Ping program ==
 === device fil ===
@@ Line 131: / Line 131: @@
 20091006 12:21:12 ___ SLUT PING HOSTS i /home/tcj/devices ___
 </pre>