Add a patch to weekno.perl so that it uses ISO 8601 week numbering.
Remove dependence on timelocal.pl; use Time::Local instead.
Rename other patches according to new conventions.
Fix pkglint warnings.
Bump PKGREVISION.


(he)

$NetBSD: patch-Imakefile,v 1.1 2014/11/05 22:41:38 he Exp $

- configure for pkgsrc
- do ratty interpreter fixes (XXX: change to REPLACE_PERL)
- use tail -n +2 instead of tail +2 to work around broken Linux userlands

--- Imakefile.orig	1995-10-17 13:44:48.000000000 +0000
+++ Imakefile
@@ -1,10 +1,10 @@
 # Installation options
 #=====================
 # The place where you install local programs (not X)
-NONXBINDIR = /local/bin
+NONXBINDIR = @LOCALBASE@/bin
 #
 # PERLLIBDIR should be the output from perl -e 'print "@INC[0]\n"'
-PERLLIBDIR = /usr/lib/perl
+PERLLIBDIR = @X11BASE@/libexec/titrax
 # PERL - where your Perl executable is located (is in sumtitrax)
 PERL = $(NONXBINDIR)/perl
 #
@@ -12,7 +12,7 @@ PERL = $(NONXBINDIR)/perl
 # XAWLIB = -lXaw3d
 #
 # If you want to stop UDP packets to the author, uncomment this
-# CDEBUGFLAGS = -DDO_NOT_TELL_ABOUT_ME
+CDEBUGFLAGS = -DDO_NOT_TELL_ABOUT_ME
 #
 # If you have problems with undefined variables, you may have
 # hit the linker bug with SunOS 4.1.2 and X11R4; uncomment this line
@@ -44,13 +44,13 @@ LASTVERSION = V1_97
 # functions that are declared, but not used
 LINTOPTS = -az
 
-all:: titrax sumtitra titrat
+all:: titrax sumtitra titrat weekno.perl
 depend:: Titrax_ad.h
 
 ComplexProgramTarget(titrax)
 InstallAppDefaults(Titrax)
-InstallProgram(sumtitra,$(NONXBINDIR))
-InstallProgram(titrat,$(NONXBINDIR))
+InstallNamedProg(sumtitra,sumtitra,$(BINDIR))
+InstallNamedProg(titrat,titrat,$(BINDIR))
 InstallManPage(sumtitra,$(MANDIR))
 InstallNonExec(weekno.perl,$(PERLLIBDIR))
 
@@ -61,14 +61,19 @@ titrax.o: Titrax_ad.h
 # Modifying PERL scripts - technique courtesy of Lindsay (of Zircon fame)
 sumtitra: Makefile
 	mv sumtitra sumtitra.tmp
-	echo '#!$(PERL)' > sumtitra
-	tail +2 sumtitra.tmp >> sumtitra
+	echo '#!$(PERL) -I$(PERLLIBDIR)' > sumtitra
+	tail -n +2 sumtitra.tmp >> sumtitra
 	rm sumtitra.tmp
 titrat: Makefile
 	mv titrat titrat.tmp
 	echo '#!$(PERL)' > titrat
-	tail +2 titrat.tmp >> titrat
+	tail -n +2 titrat.tmp >> titrat
 	rm titrat.tmp
+weekno.perl: Makefile
+	mv weekno.perl weekno.perl.tmp
+	echo '#!$(PERL)' > weekno.perl
+	tail -n +2 weekno.perl.tmp >> weekno.perl
+	rm weekno.perl.tmp
 
 #------------------------------------------------------------------
 # Everything below this line should be only for release and debugging,

$NetBSD: patch-sumtitra,v 1.1 2014/11/05 22:41:38 he Exp $

Fix a "year 2000" bug, and fix this to work without warning
with newer perl.

--- sumtitra.orig	1995-10-17 13:44:48.000000000 +0000
+++ sumtitra
@@ -83,7 +83,7 @@ $DATE'startday = $startday;
 $endday = $startday + $numdays - 1;
 
 # Find which week to sum for
-$week = shift(ARGV);
+$week = shift(@ARGV);
 $oneday = 24 * 60 * 60;
 if (!$week) {
    # Default is last week.
@@ -150,7 +150,7 @@ if ($nameadd) {
 } else {
    print "$name\n";
 }
-print $word{"banner"}, " $week 19$year\n";
+print $word{"banner"}, " $week ", 1900+$year, "\n";
 
 printf "%-${projwidth}.${projwidth}s%6s!", $word{"project"}, $word{"tot"};
 for ($startday..$endday) {

$NetBSD: patch-titrat,v 1.1 2014/11/05 22:41:38 he Exp $

Don't use errno.ph, instead hardcode the EEXIST value.

--- titrat.orig Tue Oct 17 14:44:49 1995
+++ titrat      Tue Dec  8 13:48:48 1998
@@ -7,9 +7,9 @@
 require 'ctime.pl';
 # If you cannot find errno.ph, just uncomment the following line, if
 # EEXIST is 17 in your /usr/include/sys/errno.h file.
-# eval 'sub EEXIST {17;}';
+eval 'sub EEXIST {17;}';
 
-require 'errno.ph';
+# require 'errno.ph';
 
 $SIG{'HUP'} = 'signal';
 $SIG{'INT'} = 'signal';

$NetBSD: patch-weekno.perl,v 1.1 2014/11/05 22:41:38 he Exp $

Fix this so that it uses week numbering according to ISO 8601.

--- weekno.perl.orig	1995-10-17 13:44:49.000000000 +0000
+++ weekno.perl
@@ -1,7 +1,7 @@
 #!/local/bin/perl
 # Package for date handling
-# Use the PERL std library timelocal - older had his own
-require "timelocal.pl";
+# Use the PERL std package Time::Local
+use Time::Local;
 
 package DATE;
 #               J   F   M   A   M   J   J   A   S   O   N   D
@@ -51,7 +51,21 @@ sub weekno {
 
 
 sub firstdayfirstweek {
-# Return first day of week 1 of any year
+# Return the day of the year (0 is Jan 1st)
+# for the first day of week 1 of any year.
+#
+# Quoting strftime(3):
+#  %V    is replaced by the week number of the year (Monday as the first day
+#        of the week) as a decimal number [01,53]. According to ISO 8601 the
+#        week containing January 1 is week 1 if it has four or more days in
+#        the new year, otherwise it is week 53 of the previous year, and the
+#        next week is week 1.  The year is given by the `%G' conversion
+#        specification.
+#
+# So this will return a negative value in some cases, i.e. when
+# Jan 1st falls on either of Tuesday, Wednesday or Thursday, and
+# will be positive (1) or zero for Sunday or Monday respectively.
+#
    local($y) = @_;
    local($ret);
    # Get time of January 1, 0.0.0.0
@@ -59,13 +73,14 @@ sub firstdayfirstweek {
    local($firsttime) = &main'timelocal(0, 0, 0, 1, 0, $y, 0, 0, 0);
    local(@firstday) = localtime($firsttime);
    local($wday) = $firstday[6];
-   # Rule works for some years.....89 to 92 tested, they all hit branch 2...
-   if ($wday > 3) {
-      $ret = 8 - $wday;
+   # Weekday 4 is Thursday (localtime returns zero-based with Sunday = 0)
+   if ($wday <= 4) {
+       $ret = 1 - $wday;	# first day of week 1 may be in late December
+       				# The exception is when Jan 1 = Sunday (wday 0)
    } else {
-      $ret = 1 - $wday;
+       $ret = 8 - $wday;	# first day of week 1 is in January
    }
-   $ret;
+   return $ret;
 }
  
 sub firstinweek {