ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/apache2-frontend/check
(Generate patch)

Comparing apache2-frontend/check (file contents):
Revision 1.1 by root, Mon Jun 15 18:16:46 2015 UTC vs.
Revision 1.2 by root, Tue Jun 16 02:40:22 2015 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use FindBin;
3use LWP::Simple; 4use LWP::Simple;
4 5
5open my $fh, "<", "check.txt" 6open my $fh, "<", "$FindBin::Bin/checklist"
6 or die "check.txt: $!"; 7 or die "check.txt: $!";
7 8
8while (<$fh>) { 9while (<$fh>) {
9 chomp; 10 chomp;
10 my ($url, $content) = split /\t+/; 11 my ($url, $content) = split /\t+/;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines