User: adrian Date: 06/02/12 17:40:39 Modified: xemacs-builds/adrian/website avail2table.pl Log: xemacs-builds: avail2table.pl to update date above commiter table -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 2006-02-12 Adrian Aichner <adrian(a)xemacs.org&gt; * 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. Revision Changes Path 1.73 +7 -0 XEmacs/xemacs-builds/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v retrieving revision 1.72 retrieving revision 1.73 diff -u -p -r1.72 -r1.73 --- ChangeLog 2006/02/12 16:11:14 1.72 +++ ChangeLog 2006/02/12 16:40:36 1.73 ＠＠ -1,5 +1,12 ＠＠ 2006-02-12 Adrian Aichner <adrian(a)xemacs.org&gt; + * 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&gt; + * adrian/website/avail2table.pl: Add usage message and production note. * adrian/website/avail2table.pl (main): Call usage, if 1.4 +18 -1 XEmacs/xemacs-builds/adrian/website/avail2table.pl Index: avail2table.pl =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/avail2table.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- avail2table.pl 2006/02/12 16:11:15 1.3 +++ avail2table.pl 2006/02/12 16:40:39 1.4 ＠＠ -2,7 +2,8 ＠＠ use strict; use Getopt::Long; use Data::Dumper; -my $ID = '$Id: avail2table.pl,v 1.3 2006/02/12 16:11:15 adrian Exp $'; +use POSIX qw(strftime); +my $ID = '$Id: avail2table.pl,v 1.4 2006/02/12 16:40:39 adrian Exp $'; # Generate HTML table with users able to commit to CVS repository path # directly according to avail definitions provided as commend-line ＠＠ -60,6 +61,22 ＠＠ sub main { 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: avail2table.pl,v 1.4 2006/02/12 16:40:39 adrian 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: avail2table.pl,v 1.4 2006/02/12 16:40:39 adrian Exp $ + # printf(" <table border=\"1\">\n"); printf(" <tbody>\n"); for (my $i = 0; $i < $n; $i++) {