diff options
| author | abs <abs@pkgsrc.org> | 2000-12-28 13:33:10 +0000 |
|---|---|---|
| committer | abs <abs@pkgsrc.org> | 2000-12-28 13:33:10 +0000 |
| commit | 4586b8c3d1cb71a4bfd61bf94222823354820c61 (patch) | |
| tree | 3f12914cb6837120185ecada9e29dd84f4bf97a9 /www | |
| parent | e0200bed311cae8e7c2191676d2845d8e5414f7d (diff) | |
| download | pkgsrc-4586b8c3d1cb71a4bfd61bf94222823354820c61.tar.gz | |
Update to 1.62nb1, fix type in error message and add --no-bak option
- patch submitted back to maintainer.
Diffstat (limited to 'www')
| -rw-r--r-- | www/checkbot/Makefile | 3 | ||||
| -rw-r--r-- | www/checkbot/files/patch-sum | 3 | ||||
| -rw-r--r-- | www/checkbot/patches/patch-aa | 77 |
3 files changed, 82 insertions, 1 deletions
diff --git a/www/checkbot/Makefile b/www/checkbot/Makefile index 157a4ae71d0..3e4fab491cd 100644 --- a/www/checkbot/Makefile +++ b/www/checkbot/Makefile @@ -1,7 +1,8 @@ -# $NetBSD: Makefile,v 1.4 2000/11/23 12:59:32 abs Exp $ +# $NetBSD: Makefile,v 1.5 2000/12/28 13:33:10 abs Exp $ # DISTNAME= checkbot-1.62 +PKGNAME= checkbot-1.62nb1 CATEGORIES= www net perl5 MASTER_SITES= http://degraaff.org/checkbot/ diff --git a/www/checkbot/files/patch-sum b/www/checkbot/files/patch-sum new file mode 100644 index 00000000000..5df3cc6d291 --- /dev/null +++ b/www/checkbot/files/patch-sum @@ -0,0 +1,3 @@ +$NetBSD: patch-sum,v 1.1 2000/12/28 13:33:11 abs Exp $ + +MD5 (patch-aa) = 5891b8cc1602b0c35aec9c41e536e2f3 diff --git a/www/checkbot/patches/patch-aa b/www/checkbot/patches/patch-aa new file mode 100644 index 00000000000..516c98546f0 --- /dev/null +++ b/www/checkbot/patches/patch-aa @@ -0,0 +1,77 @@ +$NetBSD: patch-aa,v 1.1 2000/12/28 13:33:11 abs Exp $ + +--- checkbot.pl.orig Sun Sep 24 14:51:46 2000 ++++ checkbot.pl +@@ -51,7 +51,7 @@ + [B<--mailto> email address] + [B<--note> note] [B<--sleep> seconds] [B<--timeout> timeout] + [B<--interval> seconds] [B<--dontwarn> HTTP responde codes] +- [B<--enable-virtual>] ++ [B<--enable-virtual>] [B<--no-bak>] + [start URLs] + + =head1 DESCRIPTION +@@ -180,6 +180,10 @@ + causes problems, which this feature work around by using the hostname + to distinguish the server. + ++=item --no-bak ++ ++Do not save previous summary pages with .bak extensions. ++ + =back + + =head1 PREREQUISITES +@@ -255,7 +259,7 @@ + + # Get command-line arguments + use Getopt::Long; +- my $result = GetOptions(qw(debug help verbose url=s match=s exclude|x=s file=s style=s ignore|z=s mailto|M=s note|N=s proxy=s internal-only sleep=i timeout=i interval=i dontwarn=s enable-virtual)); ++ my $result = GetOptions(qw(debug help verbose url=s match=s exclude|x=s file=s style=s ignore|z=s mailto|M=s note|N=s proxy=s internal-only sleep=i timeout=i interval=i dontwarn=s enable-virtual no-bak)); + + # Handle arguments, some are mandatory, some have defaults + &print_help if (($main::opt_help && $main::opt_help) +@@ -266,6 +270,7 @@ + $main::opt_interval = 10800 unless defined $main::opt_interval and length $main::opt_interval; + $main::opt_dontwarn = "xxx" unless defined $main::opt_dontwarn and length $main::opt_dontwarn; + $main::opt_enable_virtual = 0 unless defined $main::opt_enable_virtual; ++ $main::opt_no_bak = 0 unless defined $main::opt_no_bak; + # The default for opt_match will be set later, because we might want + # to muck with opt_url first. + +@@ -698,7 +703,7 @@ + print STDERR "*** Start writing results page\n" if $main::opt_verbose; + + open(OUT, ">$main::file.new") +- || die "$0: Unable to open $main::file.bak for writing:\n"; ++ || die "$0: Unable to open $main::file.new for writing:\n"; + print OUT "<head>\n"; + if (!$final_page) { + printf OUT "<META HTTP-EQUIV=\"Refresh\" CONTENT = %d>\n", +@@ -762,6 +767,7 @@ + print OUT "<tr><th align=left>--ignore</th><td>Ignore regular expression</td><td>$main::opt_ignore</td></tr>\n" if defined $main::opt_ignore; + print OUT "<tr><th align=left>--dontwarn</th><td>Don't warn for these codes</td><td>$main::opt_dontwarn</td></tr>\n" if $main::opt_dontwarn ne 'xxx'; + print OUT "<tr><th align=left>--enable-virtual</th><td>Use virtual names only</td><td>yes</td></tr>\n" if $main::opt_enable_virtual; ++ print OUT "<tr><th align=left>--no-bak</th><td>Do not save previous summaries in .bak files</td><td>yes</td></tr>\n" if $main::opt_no_bak; + print OUT "<tr><th align=left>--internal-only</th><td>Check only internal links</td><td>yes</td></tr>\n" if defined $main::opt_internal_only; + + print OUT "</table>\n"; +@@ -772,7 +778,9 @@ + + close(OUT); + +- rename($main::file, $main::file . ".bak"); ++ unless ($main::opt_no_bak) { ++ rename($main::file, $main::file . ".bak"); ++ } + rename($main::file . ".new", $main::file); + + print STDERR "*** Done writing result page\n" if $main::opt_verbose; +@@ -1121,6 +1129,7 @@ + print " --interval seconds Maximum time interval between updates (default 10800)\n"; + print " --dontwarn codes Do not write warnings for these HTTP response codes\n"; + print " --enable-virtual Use only virtual names, not IP numbers for servers\n"; ++ print " --no-bak Do not save previous summaries in .bak files\n"; + print "\n"; + print "Options --match, --exclude, and --ignore can take a perl regular expression\nas their argument\n\n"; + print "Use 'perldoc checkbot' for more verbose documentation.\n\n"; |