#!/usr/bin/perl -w
# D. Schroeder 2010
# www.zabex.de

# Prueft, ob es was neues auf ZABEX Homepage gibt...
# Benutzt den Revision-Counter

use     LWP::Simple;
require LWP::Protocol::file;
$urlrev="http://www.zabex.de/revision.txt";
$urlchrono="http://www.zabex.de/site/chronologie.html";
$reffile="zabexcheck.dat";
#----------------------------------------
if (open (IN, $reffile)){$old=<IN>; close IN;} 
$new=get($urlrev);
if ($new > $old){
  if (open (OUT, ">".$reffile)){print OUT $new; close OUT;}  
  print "\n\n******** Es gibt was neues bei ZABEX ! ********\n";
  #Folgende Zeile je nach Betriebssystem und Browser anpassen:
  system "start firefox.exe $urlchrono";  #Für Windows und Firefox
}else{
  print "\n\nNix neues bei Zabex...\n";
}
sleep 3; #Rausnehmen, wenn das Fenster sofort schliessen soll
#EOF