cvs commit: www cl2html.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Sat Sep 20 11:24:21 PDT 2003


lizardo     03/09/20 12:24:21

  Modified:    .        cl2html.pl
  Log:
  cl2html.pl: removed --version option.
  
  Revision  Changes    Path
  1.5       +3 -15     www/cl2html.pl
  
  Index: cl2html.pl
  ===================================================================
  RCS file: /home/cvsroot/www/cl2html.pl,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- cl2html.pl	20 Sep 2003 17:50:33 -0000	1.4
  +++ cl2html.pl	20 Sep 2003 18:24:21 -0000	1.5
  @@ -17,15 +17,16 @@
   # along with this program; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
  +# $Id: cl2html.pl,v 1.5 2003/09/20 18:24:21 lizardo Exp $
  +
   use strict;
   use warnings;
  +
   use XML::Parser;
   use Getopt::Long;
   use Pod::Usage;
   use POSIX qw(strftime);
   
  -my $my_version = "0.2";
  -
   # Output only the last $entries_limit CVS changes
   my $entries_limit = 10;
   
  @@ -42,14 +43,12 @@
   
   my $help = 0;
   my $man = 0;
  -my $version = 0;
   my $infile = "";
   my $with_filename = 0;
   
   GetOptions(
       "help" => \$help,
       "man" => \$man,
  -    "version" => \$version,
       "infile=s" => \$infile,
       "with-filename", \$with_filename,
   ) or pod2usage(1);
  @@ -57,12 +56,6 @@
   pod2usage(1) if $help;
   pod2usage(-exitstatus => 0, -verbose => 2) if $man;
   
  -if ($version) {
  -    print "cl2html.pl $my_version\n" .
  -    "Copyright (C) 2003 Anderson Lizardo\n";
  -    exit 0;
  -}
  -
   my $date = "";     # Current date
   my $buffer = "";   # Current text in buffer
   my $author = "";   # Current author
  @@ -157,7 +150,6 @@
           --with-filename   Prepend filenames to commit messages
           --help            Show brief help message
           --man             Full documentation
  -        --version         Show program version
   
   =head1 DESCRIPTION
   
  @@ -184,10 +176,6 @@
   =item B<--man>
   
   Print the manual page and exits.
  -
  -=item B<--version>
  -
  -Show program version and exits.
   
   =back
   
  
  
  



More information about the website mailing list