summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Echolot/Commands.pm5
-rw-r--r--Echolot/Conf.pm3
-rw-r--r--Echolot/Config.pm3
-rw-r--r--Echolot/Globals.pm3
-rw-r--r--Echolot/Mailin.pm3
-rw-r--r--Echolot/Pinger.pm3
-rw-r--r--Echolot/Pinger/CPunk.pm3
-rw-r--r--Echolot/Pinger/Mix.pm3
-rw-r--r--Echolot/Scheduler.pm3
-rw-r--r--Echolot/Stats.pm3
-rw-r--r--Echolot/Storage/File.pm5
-rw-r--r--Echolot/Thesaurus.pm3
-rw-r--r--Echolot/Tools.pm3
13 files changed, 15 insertions, 28 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm
index 41b9804..667f27b 100644
--- a/Echolot/Commands.pm
+++ b/Echolot/Commands.pm
@@ -1,7 +1,7 @@
package Echolot::Commands;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Commands.pm,v 1.6 2002/07/13 23:37:55 weasel Exp $
+# $Id: Commands.pm,v 1.7 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -17,10 +17,9 @@ This package provides functions for sending out and receiving pings.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use Fcntl ':flock'; # import LOCK_* constants
-use Fcntl ':seek'; # import LOCK_* constants
+use Fcntl ':seek'; # import SEEK_* constants
use English;
sub addCommand($) {
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm
index 44181d6..0d9bda0 100644
--- a/Echolot/Conf.pm
+++ b/Echolot/Conf.pm
@@ -1,7 +1,7 @@
package Echolot::Conf;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Conf.pm,v 1.17 2002/07/13 20:45:39 weasel Exp $
+# $Id: Conf.pm,v 1.18 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -18,7 +18,6 @@ remailer-conf and remailer-key replies.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use GnuPG::Interface;
use IO::Handle;
diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index e0518a9..412e3a8 100644
--- a/Echolot/Config.pm
+++ b/Echolot/Config.pm
@@ -1,7 +1,7 @@
package Echolot::Config;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Config.pm,v 1.27 2002/07/16 00:21:04 weasel Exp $
+# $Id: Config.pm,v 1.28 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -38,7 +38,6 @@ The configuration file is searched in those places in that order:
=cut
use strict;
-use warnings;
use Carp;
use English;
diff --git a/Echolot/Globals.pm b/Echolot/Globals.pm
index 0a1dabb..c4db482 100644
--- a/Echolot/Globals.pm
+++ b/Echolot/Globals.pm
@@ -1,7 +1,7 @@
package Echolot::Globals;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Globals.pm,v 1.3 2002/07/16 00:53:33 weasel Exp $
+# $Id: Globals.pm,v 1.4 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -15,7 +15,6 @@ Echolot::Globals - echolot global variables
=cut
use strict;
-use warnings;
use Carp;
my $GLOBALS;
diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm
index f845758..3904beb 100644
--- a/Echolot/Mailin.pm
+++ b/Echolot/Mailin.pm
@@ -1,7 +1,7 @@
package Echolot::Mailin;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Mailin.pm,v 1.5 2002/07/11 17:45:59 weasel Exp $
+# $Id: Mailin.pm,v 1.6 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -16,7 +16,6 @@ Echolot::Mailin - Incoming Mail Dispatcher for Echolot
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use English;
use Echolot::Globals;
diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm
index 3f092d5..8fcc488 100644
--- a/Echolot/Pinger.pm
+++ b/Echolot/Pinger.pm
@@ -1,7 +1,7 @@
package Echolot::Pinger;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Pinger.pm,v 1.11 2002/07/02 18:15:26 weasel Exp $
+# $Id: Pinger.pm,v 1.12 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -17,7 +17,6 @@ This package provides functions for sending out and receiving pings.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use English;
use Echolot::Pinger::Mix;
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm
index 90b8b8a..598e13e 100644
--- a/Echolot/Pinger/CPunk.pm
+++ b/Echolot/Pinger/CPunk.pm
@@ -1,7 +1,7 @@
package Echolot::Pinger::CPunk;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: CPunk.pm,v 1.4 2002/07/02 18:03:55 weasel Exp $
+# $Id: CPunk.pm,v 1.5 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -17,7 +17,6 @@ This package provides functions for sending cypherpunk (type I) pings.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use English;
use GnuPG::Interface;
diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm
index 68fc42d..d68147c 100644
--- a/Echolot/Pinger/Mix.pm
+++ b/Echolot/Pinger/Mix.pm
@@ -1,7 +1,7 @@
package Echolot::Pinger::Mix;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Mix.pm,v 1.3 2002/07/03 00:28:02 weasel Exp $
+# $Id: Mix.pm,v 1.4 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -17,7 +17,6 @@ This package provides functions for sending mixmaster (type II) pings.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use English;
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm
index 8bf700a..624a548 100644
--- a/Echolot/Scheduler.pm
+++ b/Echolot/Scheduler.pm
@@ -1,7 +1,7 @@
package Echolot::Scheduler;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Scheduler.pm,v 1.8 2002/07/11 17:45:59 weasel Exp $
+# $Id: Scheduler.pm,v 1.9 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -20,7 +20,6 @@ the ping daemon.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
my $ORDER = 1;
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index 5dfc17d..3efc5e5 100644
--- a/Echolot/Stats.pm
+++ b/Echolot/Stats.pm
@@ -1,7 +1,7 @@
package Echolot::Stats;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Stats.pm,v 1.20 2002/07/16 00:53:33 weasel Exp $
+# $Id: Stats.pm,v 1.21 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -18,7 +18,6 @@ and keyrings.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use constant DAYS => 12;
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index fed07e3..e6b7a8d 100644
--- a/Echolot/Storage/File.pm
+++ b/Echolot/Storage/File.pm
@@ -1,7 +1,7 @@
package Echolot::Storage::File;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: File.pm,v 1.36 2002/07/13 21:11:52 weasel Exp $
+# $Id: File.pm,v 1.37 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -19,13 +19,12 @@ This package provides several functions for data storage for echolot.
=cut
use strict;
-use warnings;
use Data::Dumper;
use IO::Handle;
use English;
use Carp qw{cluck confess carp};
use Fcntl ':flock'; # import LOCK_* constants
-use Fcntl ':seek'; # import LOCK_* constants
+use Fcntl ':seek'; # import SEEK_* constants
use Echolot::Tools;
=item B<new> (I<%args>)
diff --git a/Echolot/Thesaurus.pm b/Echolot/Thesaurus.pm
index b7d4a1b..c313036 100644
--- a/Echolot/Thesaurus.pm
+++ b/Echolot/Thesaurus.pm
@@ -1,7 +1,7 @@
package Echolot::Thesaurus;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Thesaurus.pm,v 1.8 2002/07/15 20:18:29 weasel Exp $
+# $Id: Thesaurus.pm,v 1.9 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -17,7 +17,6 @@ This package provides necessary functions for the thesaurus.
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use English;
use HTML::Template;
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index 36cf4cd..403c02b 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -1,7 +1,7 @@
package Echolot::Tools;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Tools.pm,v 1.5 2002/07/10 22:16:12 weasel Exp $
+# $Id: Tools.pm,v 1.6 2002/07/16 02:48:57 weasel Exp $
#
=pod
@@ -16,7 +16,6 @@ Echolot::Tools - Tools for echolot
=cut
use strict;
-use warnings;
use Carp qw{cluck};
use Digest::MD5 qw{};