Div/unfinished/svnstat

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # $Id$
   5 # Generates statistics from a Subversion repository.
   6 #
   7 # Character set: UTF-8
   8 # ©opyleft 2004– Øyvind A. Holm <sunny@sunbase.org>
   9 # License: GNU General Public License, see end of file for legal stuff.
  10 #=======================================================================
  11
  12 use strict;
  13 use warnings;
  14 use Getopt::Long;
  15
  16 $| = 1;
  17
  18 our ($opt_help) =
  19     (        0);
  20
  21 my $VERSION = "0.0.0";
  22
  23 our $progname = $0;
  24 $progname =~ s#^.*/(.*?)$#$1#;
  25
  26 my $rcs_id = '$Id$';
  27 my $id_date = $rcs_id;
  28 $id_date =~ s/^.*?\d+ (\d\d\d\d-.*?\d\d:\d\d:\d\d\S+).*/$1/;
  29
  30 Getopt::Long::Configure("bundling");
  31 GetOptions(
  32     "help|h"       => \$opt_help
  33 ) || die("$progname: Option error. Use -h for help.\n");
  34
  35 $opt_help && usage(0);
  36
  37 while (<>) {
  38     print;
  39 }
  40
  41 sub usage {
  42     # Send the help message to stdout {{{
  43     my $Retval = shift;
  44     print(<<END);
  45
  46 $progname v$VERSION -- $id_date
  47
  48 Usage: $progname [options] [file [files [...]]]
  49
  50 Options:
  51
  52 -h, --help  Show this help.
  53
  54 END
  55     exit($Retval);
  56     # }}}
  57 }
  58
  59 __END__
  60
  61 # Plain Old Documentation (POD) {{{
  62
  63 =pod
  64
  65 =head1 NAME
  66
  67 svnstat
  68
  69 =head1 REVISION
  70
  71 $Id$
  72
  73 =head1 SYNOPSIS
  74
  75 svnstat [options] [[file|dir|URL] ...]]
  76
  77 =head1 DESCRIPTION
  78
  79 Generates various statistics from a Subversion repository.
  80
  81 =head1 OPTIONS
  82
  83 (Not implemented yet, only drafts.)
  84
  85 =over 4
  86
  87 =item B<--author> x
  88
  89 Use only data from author x. Can be repeated.
  90
  91 =item B<-h>, B<--help>
  92
  93 Print a brief help summary.
  94
  95 =item B<--commits-per> timespec
  96
  97 Generate a curve with the number of commits per I<timespec>.
  98 Valid strftime(3)-like modifiers:
  99
 100 =over 4
 101
 102 =item B<y>
 103
 104 year
 105
 106 =item B<m>
 107
 108 month
 109
 110 =item B<w>
 111
 112 week
 113
 114 =item B<d>
 115
 116 day
 117
 118 =item B<H>
 119
 120 hour
 121
 122 =item B<M>
 123
 124 minute
 125
 126 =item B<S>
 127
 128 second
 129
 130 |1d|1h|2h|4w|1m|2y
 131
 132 =back
 133
 134
 135 =back
 136
 137 =head1 BUGS
 138
 139 No code, no bugs.
 140
 141 =head1 AUTHOR
 142
 143 Made by Øyvind A. Holm S<E<lt>sunny _AT_ sunbase.orgE<gt>>.
 144
 145 =head1 COPYRIGHT
 146
 147 Copyleft © Øyvind A. Holm &lt;sunny@sunbase.org&gt;
 148 This is free software; see the file F<COPYING> for legalese stuff.
 149
 150 =head1 LICENCE
 151
 152 This program is free software; you can redistribute it and/or modify it
 153 under the terms of the GNU General Public License as published by the
 154 Free Software Foundation; either version 2 of the License, or (at your
 155 option) any later version.
 156
 157 This program is distributed in the hope that it will be useful, but
 158 WITHOUT ANY WARRANTY; without even the implied warranty of
 159 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 160 See the GNU General Public License for more details.
 161
 162 You should have received a copy of the GNU General Public License along
 163 with this program; if not, write to the Free Software Foundation, Inc.,
 164 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 165
 166 =head1 SEE ALSO
 167
 168 =cut
 169
 170 # }}}
 171
 172 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
 173 # End of file $Id$