tools/de/nonametv-update-check

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use LWP::Simple;
   6 use Net::Domain qw/hostname/;
   7
   8 my $latest_time = 0;
   9 my $latest_host = undef;
  10
  11 foreach my $url (@ARGV) {
  12   my $data = get( $url );
  13   next if not defined $data;
  14
  15   my( $hostname, $time ) = split( /\s*\n\s*/, $data );
  16
  17   next unless defined $time;
  18   if( $time > $latest_time ) {
  19     $latest_host = $hostname;
  20     $latest_time = $time;
  21   }
  22 }
  23
  24 if( time() > $latest_time + 2*60*60 ) {
  25   # The latest update was started more than two hours ago.
  26   # We should do an update.
  27   exit 0;
  28 }
  29 elsif( $latest_host eq hostname()  ) {
  30   # We did the last update. We should update now as well.
  31   exit 0;
  32 }
  33 else {
  34 #  print "Update cancelled.\n";
  35   exit 1;
  36 }
  37