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

Comparing apache2-frontend/check (file contents):
Revision 1.2 by root, Tue Jun 16 02:40:22 2015 UTC vs.
Revision 1.4 by root, Thu Jun 18 16:35:01 2015 UTC

… …
6open my $fh, "<", "$FindBin::Bin/checklist" 6open my $fh, "<", "$FindBin::Bin/checklist"
7 or die "check.txt: $!"; 7 or die "check.txt: $!";
8 8
9while (<$fh>) { 9while (<$fh>) {
10 chomp; 10 chomp;
11 next if /^#/;
12
11 my ($url, $content) = split /\t+/; 13 my ($url, $content) = split /\t+/;
12 14
13 $url =~ s,^([^/]+)/,$1:34567/,; 15 $url =~ s,^([^/]+)/,$1:34567/, if $ARGV[0] eq "-t";
14 16
15 $url = "http://$url"; 17 $url = "http://$url";
16 18
17 my $res = get $url; 19 my $res = get $url;
18 20

Diff Legend

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