Login | Register
My pages Projects Community openCollabNet

Discussions > cvs > CVS update: /svnutils/trunk/unfinished/

svnutils
Discussion topic

Back to topic list

CVS update: /svnutils/trunk/unfinished/

Reply

Author sunny256
Full name Øyvind A. Holm
Date 2005-08-05 13:34:57 PDT
Message User: sunny256
Date: 2005/08/05 13:34:57

Added:
   svnutils/trunk/unfin​ished/svnstat

Log:
 r147 | sunny256 | 2005-07-27 15:41:58 +0000 (Wed, 27 Jul 2005) | 7 lines
 
 Add basis for new Perl script. svnstat will generate various statistics
 from a Subversion repository. Watch the future.
 
 * /trunk/unfinished/svnstat
   Copy of "std.pl 88 2005-06-13 17:48:04Z sunny", just a default start
   of a Perl file. Does nothing interesting yet.

File Changes:

Directory: /svnutils/trunk/unfinished/
====================​==================

File [added]: svnstat
Url: http://svnutils.tigr​is.org/source/browse​/svnutils/trunk/unfi​nished/svnstat?rev=1​.1&content-type=​text/vnd.viewcvs-mar​kup
Added lines: 126
----------------
#!/usr/bin/perl -w

#===================​====================​====================​============
# $Id: svnstat 147 2005-07-27 15:41:58Z sunny256 $
# [Description]
#
# Character set: UTF-8
# ©opyleft 2004– Øyvind A. Holm <sunny at sunbase dot org>
# License: GNU General Public License, see end of file for legal stuff.
#===================​====================​====================​============

use strict;
use Getopt::Long;

$| = 1;

our ($opt_help) =
    ( 0);

my $VERSION = "0.0";

our $progname = $0;
$progname =~ s#^.*/(.*?)$#$1#;

my $rcs_id = '$Id: svnstat 147 2005-07-27 15:41:58Z sunny256 $';
my $id_date = $rcs_id;
$id_date =~ s/^.*?\d+ (\d\d\d\d-.*?\d​\d:\d\d:\d\d\S​+).*/$1/;

Getopt::Long::Config​ure("bundling");
GetOptions(
    "help|h" => \$opt_help
) || die("$progname: Option error. Use -h for help.\n");

$opt_help && usage(0);

while (<>) {
    print;
}

sub usage {
    # Send the help message to stdout {{{
    my $Retval = shift;
    print(<<END);

$progname v$VERSION -- $id_date

Usage: $progname [options] [file [files [...]]]

Options:

-h, --help Show this help.

END
    exit($Retval);
    # }}}
}

__END__

# Plain Old Documentation (POD) {{{

=pod

=head1 NAME



=head1 REVISION

$Id: svnstat 147 2005-07-27 15:41:58Z sunny256 $

=head1 SYNOPSIS



=head1 DESCRIPTION



=head1 OPTIONS

=over 4

=item B<-h>, B<--help>

Print a brief help summary.

=back

=head1 BUGS



=head1 AUTHOR

Made by Øyvind A. Holm S<E<lt>sunny _AT_ sunbase.orgE<gt>>.

=head1 COPYRIGHT

Copyleft © Øyvind A. Holm &lt;sunny@sunbas​e.org&gt;
This is free software; see the file F<COPYING> for legalese stuff.

=head1 LICENCE

This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2 of the License, or (at your
option) any later version.

This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

=head1 SEE ALSO

=cut

# }}}

# vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
# End of file $Id: svnstat 147 2005-07-27 15:41:58Z sunny256 $

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

CVS update: /svnutils/trunk/unfinished/ sunny256 Øyvind A. Holm 2005-08-05 13:34:57 PDT
Messages per page: