kstars/kstars/data/check_url.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use LWP::Simple;
   4
   5 if ( $#ARGV != 0 ) {
   6     print "Usage: ./check_url.pl <filename>\n\n";
   7     exit(1);
   8 }
   9
  10 open( INF, $ARGV[0] );
  11
  12 while ( my $line = <INF> ) {
  13     chomp($line);
  14     my $i1 = index( $line, ":" );
  15     my $i2 = index( $line, "http" );
  16
  17     if ( $i1 > -1 && $i2 > -1 ) {
  18         my $name = substr( $line, 0, $i1 );
  19         my $url = substr( $line, $i2 );
  20
  21         &img_check($name, $url);
  22     }
  23 }
  24
  25 close( INF );
  26 exit;
  27
  28
  29 sub img_check {
  30     my $name = shift;
  31     my $url = shift;
  32
  33     if (head($url)) {
  34     } else {
  35         print "$name: $url\n";
  36     }
  37 } # end sub url_check