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.71 diff -u -U0 -r1.71 ChangeLog --- ChangeLog 6 Jan 2006 11:49:47 -0000 1.71 +++ ChangeLog 12 Feb 2006 16:10:59 -0000 ＠＠ -0,0 +1,8 ＠＠ +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 + appropriate, add production note HTML comment to output. + * adrian/website/avail2table.pl (usage): New. + xemacs-builds source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: adrian/website/avail2table.pl adrian/website/avail2table.pl Index: adrian/website/avail2table.pl =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/avail2table.pl,v retrieving revision 1.2 diff -u -w -r1.2 avail2table.pl --- adrian/website/avail2table.pl 6 Jun 2004 16:23:03 -0000 1.2 +++ adrian/website/avail2table.pl 12 Feb 2006 16:09:38 -0000 ＠＠ -2,8 +2,11 ＠＠ use Getopt::Long; use Data::Dumper; +my $ID = '$Id$'; -# Generate HTML table with users able to commit CVS repository directory. +# Generate HTML table with users able to commit to CVS repository path +# directly according to avail definitions provided as commend-line +# argument. # I use this from ...\xemacs-builds\adrian\website as follows: # c:\Perl\bin\perl.exe -w "avail2table.pl" -path XEmacs/xemacsweb ../../../CVSROOT/avail ＠＠ -13,8 +16,10 ＠＠ ); sub main { - GetOptions('path=s'); - + my (＠cmd_line) = ($0, ＠ARGV); + if (!GetOptions('path=s')) { + usage(); + } unless (scalar ＠ARGV) { ＠ARGV = ("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\CVSROOT\\avail"); } ＠＠ -51,7 +56,10 ＠＠ my $n = scalar(＠authorized_users); my $int_sqrt_n = int(sqrt($n)); # print "n=$n, int_sqrt_n=$int_sqrt_n\n"; - + $ID =~ s'\$''g; + my $produced_by = sprintf(" <!-- Produced by:\n ＠cmd_line\n $ID\n at %s -->", + gmtime() . " UTC"); + print "$produced_by\n"; printf(" <table border=\"1\">\n"); printf(" <tbody>\n"); for (my $i = 0; $i < $n; $i++) { ＠＠ -67,6 +75,22 ＠＠ } printf(" </tbody>\n"); printf(" </table>\n"); +} + +sub usage { + die( "Usage: perl $0 -path PATH [FILE ...] + +Generate HTML table with users able to commit to CVS repository path +directly according to avail definitions provided as command-line +argument. +This table is suitable to be merged to xemacsweb/About/Website.content. + +-path PATH + The XEmacs CVS module path (starting with top-level module name) + to test availability for. + +" ); + } main(); -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/