diff options
author | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
---|---|---|
committer | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
commit | ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2 (patch) | |
tree | d3bb9f5d25a2dc09ca81adecf39621d871534297 /kstars/kstars/data/check_url.pl | |
download | tdeedu-ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2.tar.gz tdeedu-ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2.zip |
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdeedu@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kstars/kstars/data/check_url.pl')
-rwxr-xr-x | kstars/kstars/data/check_url.pl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/kstars/kstars/data/check_url.pl b/kstars/kstars/data/check_url.pl new file mode 100755 index 00000000..a9542976 --- /dev/null +++ b/kstars/kstars/data/check_url.pl @@ -0,0 +1,37 @@ +#!/usr/bin/perl -w +use strict; +use LWP::Simple; + +if ( $#ARGV != 0 ) { + print "Usage: ./check_url.pl <filename>\n\n"; + exit(1); +} + +open( INF, $ARGV[0] ); + +while ( my $line = <INF> ) { + chomp($line); + my $i1 = index( $line, ":" ); + my $i2 = index( $line, "http" ); + + if ( $i1 > -1 && $i2 > -1 ) { + my $name = substr( $line, 0, $i1 ); + my $url = substr( $line, $i2 ); + + &img_check($name, $url); + } +} + +close( INF ); +exit; + + +sub img_check { + my $name = shift; + my $url = shift; + + if (head($url)) { + } else { + print "$name: $url\n"; + } +} # end sub url_check |