COMMIT
xemacs-builds ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.72
diff -u -U0 -r1.72 ChangeLog
--- ChangeLog 12 Feb 2006 16:11:14 -0000 1.72
+++ ChangeLog 12 Feb 2006 16:40:20 -0000
@@ -2,0 +3,7 @@
+ * adrian/website/avail2table.pl: use POSIX to get access to
+ strftime to generate ISO 8601 date.
+ * adrian/website/avail2table.pl (main): Update date above commiter
+ table.
+
+2006-02-12 Adrian Aichner <adrian(a)xemacs.org>
+
xemacs-builds source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: adrian/website/avail2table.pl
Index: adrian/website/avail2table.pl
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/avail2table.pl,v
retrieving revision 1.3
diff -u -w -r1.3 avail2table.pl
--- adrian/website/avail2table.pl 12 Feb 2006 16:11:15 -0000 1.3
+++ adrian/website/avail2table.pl 12 Feb 2006 16:39:09 -0000
@@ -2,6 +2,7 @@
use Getopt::Long;
use Data::Dumper;
+use POSIX qw(strftime);
my $ID = '$Id: avail2table.pl,v 1.3 2006/02/12 16:11:15 adrian Exp $';
# Generate HTML table with users able to commit to CVS repository path
@@ -60,6 +61,22 @@
my $produced_by = sprintf(" <!-- Produced by:\n @cmd_line\n $ID\n at %s
-->",
gmtime() . " UTC");
print "$produced_by\n";
+ #
+ # Begin of section produced by:
+ # c:\Users\AichnerAd/pl/printfize.pl
+ # $Id: printfize.pl,v 1.14 2006/02/09 14:08:01 AichnerAd Exp $
+ #
+ printf(" <p>\n");
+ printf(" The repository at SunSITE.dk went live 2001-08-15. As of\n");
+ printf(" %s, following users can commit their changes to\n",
+ strftime("%Y-%m-%d", gmtime));
+ printf(" the repository themselves.</p>\n");
+ printf("\n");
+ #
+ # End of section produced by:
+ # c:\Users\AichnerAd/pl/printfize.pl
+ # $Id: printfize.pl,v 1.14 2006/02/09 14:08:01 AichnerAd Exp $
+ #
printf(" <table border=\"1\">\n");
printf(" <tbody>\n");
for (my $i = 0; $i < $n; $i++) {
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/