summaryrefslogtreecommitdiff
path: root/www/checkbot
diff options
context:
space:
mode:
authorabs <abs>2000-12-28 13:33:10 +0000
committerabs <abs>2000-12-28 13:33:10 +0000
commit3362cd992b17103e10a07bba1fe11d8f0ef5aa54 (patch)
tree3f12914cb6837120185ecada9e29dd84f4bf97a9 /www/checkbot
parent3798d8b587a291eb57b78dc6def51b6cf0b523a3 (diff)
downloadpkgsrc-3362cd992b17103e10a07bba1fe11d8f0ef5aa54.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/checkbot')
-rw-r--r--www/checkbot/Makefile3
-rw-r--r--www/checkbot/files/patch-sum3
-rw-r--r--www/checkbot/patches/patch-aa77
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";