Initial commit.

[usenet/usestats.git] / usestats.pl

#!/usr/bin/perl
#
# usestats.pl
#############

# (c) 10/2003-10/2004 Thomas Hochstein  <thh@inter.net>
#
# 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.

# Modules #############################
# use Data::Dumper;
use Date::Manip qw(Date_Init ParseDate Date_Cmp DateCalc UnixDate Delta_Format Date_DaysInMonth);
use File::Find;
use Getopt::Std;
use Locale::Recode;
use Mail::Address;
use MIME::Words qw(decode_mimewords);

# Versionsnummer ######################
$ver = '0.17 beta (20041003)';

# Konstanten  #########################

$hex_nibb     = '[0-9a-fA-F]';
$gt_hex_nibb  = '[0-9A-F]';
$lt_hex_nibb  = '[0-9a-f]';
$alpha_num    = '[0-9a-zA-Z]';
$lt_alpha_num = '[0-9a-z]';
$gt_alpha_num = '[0-9A-Z]';
%reporttitel = ('newsgroups' => 'Newsgroupnutzung',
                'poster'     => 'Poster (strukturiert)',
                'posterraw'  => 'Poster (unstrukturiert)',
		'subject'    => 'Subjects (strukturiert)',
		'newsreader' => 'Newsreader (strukturiert)',
                'nruser'     => 'Nutzer pro Newsreader (strukturiert)');

# Variablen ###########################

# Defaults
%config=();

# $config{'newsgroup'} = '';
# $config{'start'} = '';
# $config{'stop'}  = '';
$config{'recursive'} = 0;
$config{'pipeformat'} = 'mbox';
$config{'charset'} = 'ISO-8859-1';
$config{'tz'} = '+0200';
$config{'graphchar'} = '#';

$config{'day'} = 1;
@reports = ('newsgroups','poster','posterraw','subject','newsreader','nruser');
foreach $report (@reports) {
 $config{$report} = 1;
 $config{$report.'_width'}  = 30;
 $config{$report.'_indent'} = 2;
 $config{$report.'_lines'}  = 0;
 $config{$report.'_cutoff'} = 0;
 $config{$report.'_graph'}  = 20;
};
$config{'newsgroups'} = 0;
$config{'posterraw'} = 0;
$config{'unknownreader'} = 'show';

# Hauptprogramm #######################
# Konfiguration einlesen
my %options;
getopts('hqc:r:w:', \%options);
if ($options{'h'}) {
 print "$0 v $ver\nUsage: $0 [-hq] [-w|r <savefile>] [-c <configfile>]\n";
 exit(0);
};
print STDERR "$0 v $ver [" . scalar(gmtime) . "]\n(c) 10/2003-10/2004 Thomas Hochstein * <thh\@inter.net>\n" if (!$options{'q'});
if ($options{'c'}) {
  &readconfig($options{'c'});
};
if (length($config{'graphchar'}) > 1 or $config{'graphchar'} eq '') {
 $config{'graphchar'} = '#';
};