-#! /usr/bin/perl -W\r
-#\r
-# install.pl\r
-#\r
-# This script will create database tables as necessary.\r
-# \r
-# It is part of the NewsStats package.\r
-#\r
-# Copyright (c) 2010 Thomas Hochstein <thh@inter.net>\r
-#\r
-# It can be redistributed and/or modified under the same terms under \r
-# which Perl itself is published.\r
-\r
-BEGIN {\r
- our $VERSION = "0.01";\r
- use File::Basename;\r
- # we're in .../install, so our module is in ..\r
- push(@INC, dirname($0).'/..');\r
-}\r
-use strict;\r
-\r
-use NewsStats qw(:DEFAULT);\r
-\r
-use Cwd;\r
-\r
-use DBI;\r
-\r
-################################# Main program #################################\r
-\r
-### read commandline options\r
-my %Options = &ReadOptions('');\r
-\r
-### change working directory to .. (as we're in .../install)\r
-chdir '..';\r
-\r
-### read configuration\r
-print("Reading configuration.\n");\r
-my %Conf = %{ReadConfig('newsstats.conf')};\r
-\r
-##### --------------------------------------------------------------------------\r
-##### Database table definitions\r
-##### --------------------------------------------------------------------------\r
-\r
-my %DBCreate = ('DBTableRaw' => <<RAW, 'DBTableGrps' => <<GRPS);\r
--- \r
--- Table structure for table DBTableRaw\r
--- \r
-\r
-CREATE TABLE IF NOT EXISTS `$Conf{'DBTableRaw'}` (\r
- `id` bigint(20) unsigned NOT NULL auto_increment,\r
- `day` date NOT NULL,\r
- `mid` varchar(250) character set ascii NOT NULL,\r
- `date` datetime NOT NULL,\r
- `timestamp` bigint(20) NOT NULL,\r
- `token` varchar(80) character set ascii NOT NULL,\r
- `size` bigint(20) NOT NULL,\r
- `peer` varchar(250) NOT NULL,\r
- `path` varchar(1000) NOT NULL,\r
- `newsgroups` varchar(1000) NOT NULL,\r
- `headers` longtext NOT NULL,\r
- `disregard` tinyint(1) default '0',\r
- PRIMARY KEY (`id`),\r
- KEY `day` (`day`),\r
- KEY `mid` (`mid`),\r
- KEY `peer` (`peer`)\r
-) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Raw data';\r
-RAW\r
--- \r
--- Table structure for table DBTableGrps\r
--- \r
-\r
-CREATE TABLE IF NOT EXISTS `$Conf{'DBTableGrps'}` (\r
- `id` bigint(20) unsigned NOT NULL auto_increment,\r
- `month` varchar(7) character set ascii NOT NULL,\r
- `newsgroup` varchar(100) NOT NULL,\r
- `postings` int(11) NOT NULL,\r
- `revision` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,\r
- PRIMARY KEY (`id`),\r
- UNIQUE KEY `month_newsgroup` (`month`,`newsgroup`),\r
- KEY `newsgroup` (`newsgroup`),\r
- KEY `postings` (`postings`)\r
-) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Postings per newsgroup';\r
-GRPS\r
-\r
-##### --------------------------- End of definitions ---------------------------\r
-\r
-### create database tables\r
-print "-----\nStarting database table generation.\n";\r
-# DB init\r
-my $DBHandle = InitDB(\%Conf,1);\r
-\r
-# read tables\r
-my %TablesInDB = %{$DBHandle->table_info('%', '%', '%', 'TABLE')->fetchall_hashref('TABLE_NAME')};\r
-\r
-# check for tables and create them, if they don't exist yet\r
-foreach my $Table (keys %DBCreate) {\r
- if (defined($TablesInDB{$Conf{$Table}})) {\r
- printf("Database table %s.%s already exists, skipping ....\n",$Conf{'DBDatabase'},$Conf{$Table});\r
- next;\r
- };\r
- my $DBQuery = $DBHandle->prepare($DBCreate{$Table});\r
- $DBQuery->execute() or die sprintf("$MySelf: E: Can't create table %s in database %s: %s%\n",$Table,$Conf{'DBDatabase'},$DBI::errstr);\r
- printf("Database table %s.%s created succesfully.\n",$Conf{'DBDatabase'},$Conf{$Table});\r
-};\r
-\r
-# close handle\r
-$DBHandle->disconnect;\r
-print "Database table generation done.\n";\r
-\r
-### output information on other necessary steps\r
-my $Path = cwd();\r
-print <<TODO;\r
------\r
-Things left to do:\r
-\r
-1) Setup an INN feed to feedlog.pl\r
-\r
- a) Edit your 'newsfeeds' file and insert something like\r
-\r
- ## gather statistics for NewsStats\r
- newsstats!\\r
- :!*,de.*\\r
- :Tc,WmtfbsPNH,Ac:$Path/feedlog.pl\r
-\r
- Please\r
-\r
- * check that you got the path to feedlog.pl right\r
- * check that feedlog.pl can be executed by the news user\r
- * adapt the pattern (here: 'de.*') to your needs\r
-\r
- b) Check your 'newsfeeds' syntax:\r
-\r
- # ctlinnd checkfile\r
-\r
- and reload 'newsfeeds':\r
-\r
- # ctlinnd reload newsfeeds 'Adding newsstats! feed'\r
-\r
- c) Watch your 'news.notice' and 'errlog' files:\r
-\r
- # tail -f /var/log/news/news.notice\r
- ...\r
- # tail -f /var/log/news/errlog\r
-\r
-2) Watch your $Conf{'DBTableRaw'} table fill.\r
-\r
-3) Read the documentation. ;)\r
-\r
-Enjoy!\r
-\r
--thh <thh\@inter.net>\r
-TODO\r
+#! /usr/bin/perl -W
+#
+# install.pl
+#
+# This script will create database tables as necessary.
+#
+# It is part of the NewsStats package.
+#
+# Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
+#
+# It can be redistributed and/or modified under the same terms under
+# which Perl itself is published.
+
+BEGIN {
+ our $VERSION = "0.01";
+ use File::Basename;
+ # we're in .../install, so our module is in ..
+ push(@INC, dirname($0).'/..');
+}
+use strict;
+
+use NewsStats qw(:DEFAULT);
+
+use Cwd;
+
+use DBI;
+use Getopt::Long qw(GetOptions);
+Getopt::Long::config ('bundling');
+
+################################# Main program #################################
+
+### read commandline options
+my ($OptUpdate);
+GetOptions ('u|update=s' => \$OptUpdate,
+ 'h|help' => \&ShowPOD,
+ 'V|version' => \&ShowVersion) or exit 1;
+
+### change working directory to .. (as we're in .../install)
+chdir dirname($FullPath).'/..';
+my $Path = cwd();
+
+### read configuration
+print("Reading configuration.\n");
+my %Conf = %{ReadConfig($Path.'/newsstats.conf')};
+
+##### --------------------------------------------------------------------------
+##### Database table definitions
+##### --------------------------------------------------------------------------
+
+my $DBCreate = <<SQLDB;
+CREATE DATABASE IF NOT EXISTS `$Conf{'DBDatabase'}` DEFAULT CHARSET=utf8;
+SQLDB
+
+my %DBCreate = ('DBTableRaw' => <<RAW, 'DBTableGrps' => <<GRPS);
+--
+-- Table structure for table DBTableRaw
+--
+
+CREATE TABLE IF NOT EXISTS `$Conf{'DBTableRaw'}` (
+ `id` bigint(20) unsigned NOT NULL auto_increment,
+ `day` date NOT NULL,
+ `mid` varchar(250) character set ascii NOT NULL,
+ `date` datetime NOT NULL,
+ `timestamp` bigint(20) NOT NULL,
+ `token` varchar(80) character set ascii NOT NULL,
+ `size` bigint(20) NOT NULL,
+ `peer` varchar(250) NOT NULL,
+ `path` varchar(1000) NOT NULL,
+ `newsgroups` varchar(1000) NOT NULL,
+ `headers` longtext NOT NULL,
+ `disregard` tinyint(1) default '0',
+ PRIMARY KEY (`id`),
+ KEY `day` (`day`),
+ KEY `mid` (`mid`),
+ KEY `peer` (`peer`)
+) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Raw data';
+RAW
+--
+-- Table structure for table DBTableGrps
+--
+
+CREATE TABLE IF NOT EXISTS `$Conf{'DBTableGrps'}` (
+ `id` bigint(20) unsigned NOT NULL auto_increment,
+ `month` varchar(7) character set ascii NOT NULL,
+ `newsgroup` varchar(100) NOT NULL,
+ `postings` int(11) NOT NULL,
+ `revision` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
+ PRIMARY KEY (`id`),
+ UNIQUE KEY `month_newsgroup` (`month`,`newsgroup`),
+ KEY `newsgroup` (`newsgroup`),
+ KEY `postings` (`postings`)
+) ENGINE=MyISAM DEFAULT CHARSET=utf8 COMMENT='Postings per newsgroup';
+GRPS
+
+##### --------------------------------------------------------------------------
+##### Installation / upgrade instructions
+##### --------------------------------------------------------------------------
+
+my $Install = <<INSTALL;
+----------
+Things left to do:
+
+1) Setup an INN feed to feedlog.pl
+
+ a) Edit your 'newsfeeds' file and insert something like
+
+ ## gather statistics for NewsStats
+ newsstats!\\
+ :!*,de.*\\
+ :Tc,WmtfbsPNH,Ac:$Path/feedlog.pl
+
+ Please
+
+ * check that you got the path to feedlog.pl right
+ * check that feedlog.pl can be executed by the news user
+ * adapt the pattern (here: 'de.*') to your needs
+
+ b) Check your 'newsfeeds' syntax:
+
+ # ctlinnd checkfile
+
+ and reload 'newsfeeds':
+
+ # ctlinnd reload newsfeeds 'Adding newsstats! feed'
+
+ c) Watch your 'news.notice' and 'errlog' files:
+
+ # tail -f /var/log/news/news.notice
+ ...
+ # tail -f /var/log/news/errlog
+
+2) Watch your $Conf{'DBTableRaw'} table fill.
+
+3) Read the documentation. ;)
+
+Enjoy!
+
+-thh <thh\@inter.net>
+INSTALL
+
+my $Upgrade ='';
+if ($OptUpdate) {
+ $Upgrade = <<UPGRADE;
+----------
+Your installation was upgraded from $OptUpdate to $PackageVersion.
+
+Don't forget to restart your INN feed so that it can pick up the new version:
+
+ # ctlinnd begin 'newsstats!'
+
+(or whatever you called your feed).
+UPGRADE
+}
+
+##### --------------------------- End of definitions ---------------------------
+
+### create DB, if necessary
+if (!$OptUpdate) {
+ print "----------\nStarting database creation.\n";
+ # create database
+ # we can't use InitDB() as that will use a table name of
+ # the table that doesn't exist yet ...
+ my $DBHandle = DBI->connect(sprintf('DBI:%s:host=%s',$Conf{'DBDriver'},
+ $Conf{'DBHost'}), $Conf{'DBUser'},
+ $Conf{'DBPw'}, { PrintError => 0 });
+ my $DBQuery = $DBHandle->prepare($DBCreate);
+ $DBQuery->execute() or &Bleat(2, sprintf("Can't create database %s: %s%\n",
+ $Conf{'DBDatabase'}, $DBI::errstr));
+
+ printf("Database table %s created succesfully.\n",$Conf{'DBDatabase'});
+ $DBHandle->disconnect;
+};
+
+### DB init, read list of tables
+print "Reading database information.\n";
+my $DBHandle = InitDB(\%Conf,1);
+my %TablesInDB =
+ %{$DBHandle->table_info('%', '%', '%', 'TABLE')->fetchall_hashref('TABLE_NAME')};
+
+if (!$OptUpdate) {
+ ##### installation mode
+ # check for tables and create them, if they don't exist yet
+ foreach my $Table (keys %DBCreate) {
+ &CreateTable($Table);
+ };
+ print "Database table generation done.\n";
+
+ # Display install instructions
+ print $Install;
+} else {
+ ##### upgrade mode
+ print "----------\nStarting upgrade process.\n";
+ $PackageVersion = '0.03';
+ if ($OptUpdate < $PackageVersion) {
+ if ($OptUpdate < 0.02) {
+ # 0.01 -> 0.02
+ # &DoMySQL('...;');
+ # print "v0.02: Database upgrades ...\n";
+ # &PrintInstructions('0.02',<<" INSTRUCTIONS");
+ # INSTRUCTIONS
+ };
+ };
+ # Display general upgrade instructions
+ print $Upgrade;
+};
+
+# close handle
+$DBHandle->disconnect;
+
+exit(0);
+
+################################# Subroutines ##################################
+
+sub CreateTable {
+ my $Table = shift;
+ if (defined($TablesInDB{$Conf{$Table}})) {
+ printf("Database table %s.%s already exists, skipping ....\n",
+ $Conf{'DBDatabase'},$Conf{$Table});
+ return;
+ };
+ my $DBQuery = $DBHandle->prepare($DBCreate{$Table});
+ $DBQuery->execute() or
+ &Bleat(2, sprintf("Can't create table %s in database %s: %s%\n",$Table,
+ $Conf{'DBDatabase'},$DBI::errstr));
+ printf("Database table %s.%s created succesfully.\n",
+ $Conf{'DBDatabase'},$Conf{$Table});
+ return;
+};
+
+sub DoMySQL {
+ my $SQL = shift;
+ my $DBQuery = $DBHandle->prepare($SQL);
+ $DBQuery->execute() or &Bleat(1, sprintf("Database error: %s\n",$DBI::errstr));
+ return;
+};
+
+sub PrintInstructions {
+ my ($UpVersion,$Instructions) = @_;
+ print "v$UpVersion: Upgrade Instructions >>>>>\n";
+ my $Padding = ' ' x (length($UpVersion) + 3);
+ $Instructions =~ s/^ /$Padding/mg;
+ print $Instructions;
+ print "<" x (length($UpVersion) + 29) . "\n";
+};
+
+
+__END__
+
+################################ Documentation #################################
+
+=head1 NAME
+
+install - installation script
+
+=head1 SYNOPSIS
+
+B<install> [B<-Vh> [--update I<version>]
+
+=head1 REQUIREMENTS
+
+See L<doc/README>.
+
+=head1 DESCRIPTION
+
+This script will create database tables as necessary and configured.
+
+=head2 Configuration
+
+B<install> will read its configuration from F<newsstats.conf> via
+Config::Auto.
+
+See L<doc/INSTALL> for an overview of possible configuration options.
+
+=head1 OPTIONS
+
+=over 3
+
+=item B<-V>, B<--version>
+
+Print out version and copyright information and exit.
+
+=item B<-h>, B<--help>
+
+Print this man page and exit.
+
+=item B<-u>, B<--update> I<version>
+
+Don't do a fresh install, but update from I<version>.
+
+=back
+
+=head1 FILES
+
+=over 4
+
+=item F<install.pl>
+
+The script itself.
+
+=item F<NewsStats.pm>
+
+Library functions for the NewsStats package.
+
+=item F<newsstats.conf>
+
+Runtime configuration file.
+
+=back
+
+=head1 BUGS
+
+Please report any bugs or feature requests to the author or use the
+bug tracker at L<http://bugs.th-h.de/>!
+
+=head1 SEE ALSO
+
+=over 2
+
+=item -
+
+L<doc/README>
+
+=item -
+
+L<doc/INSTALL>
+
+=back
+
+This script is part of the B<NewsStats> package.
+
+=head1 AUTHOR
+
+Thomas Hochstein <thh@inter.net>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut