[C] xemacs-builds: Add usage message and production note to adrian/website/avail2table.pl
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>
+
+ * 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/