modified version check

diff --git a/selfforum-cgi/user/fo_arcview.pl b/selfforum-cgi/user/fo_arcview.pl
index 073f3f3997f0b1e774815d4551307f86e354740b..3ed186cde927e73186dacd055d21e28f4674fc40 100644 (file)
--- a/selfforum-cgi/user/fo_arcview.pl
+++ b/selfforum-cgi/user/fo_arcview.pl
@@ -4,7 +4,7 @@
 #                                                                              #
 # File:        user/fo_arcview.pl                                              #
 #                                                                              #
-# Authors:     Frank Schoenmann <fs@tower.de>, 2001-06-02                      #
+# Authors:     Frank Schönmann <fs@tower.de>                                   #
 #                                                                              #
 # Description: archive browser                                                 #
 #                                                                              #
@@ -16,7 +16,6 @@ use vars qw(
   $Shared
   $Script
   $Config
-  $VERSION
 );
 
 BEGIN {
@@ -51,9 +50,15 @@ use Template::Archive qw(
 
 use CGI qw(param header path_info);
 
+################################################################################
+#
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 print header(-type => 'text/html');
 

diff --git a/selfforum-cgi/user/fo_posting.pl b/selfforum-cgi/user/fo_posting.pl
index 5046a5c3a68560fd8548da635378e88a69dde07f..defbbf05d4d58bada3cc4c4c2286d2b9bace906f 100644 (file)
--- a/selfforum-cgi/user/fo_posting.pl
+++ b/selfforum-cgi/user/fo_posting.pl
@@ -4,7 +4,7 @@
 #                                                                              #
 # File:        user/fo_posting.pl                                              #
 #                                                                              #
-# Authors:     André Malo <nd@o3media.de>, 2001-04-08                          #
+# Authors:     André Malo <nd@o3media.de>                                      #
 #                                                                              #
 # Description: Accept new postings, display "Neue Nachricht" page              #
 #                                                                              #
@@ -16,7 +16,6 @@ use vars qw(
   $Shared
   $Script
   $Config
-  $VERSION
 );
 
 # locate the script
@@ -46,9 +45,15 @@ use Conf;
 use Conf::Admin;
 use Posting::Cache;
 
+################################################################################
+#
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 # load script configuration and admin default conf.
 #
@@ -85,7 +90,7 @@ package Posting::Request;
 
 use Arc::Starter;
 use CheckRFC;
-use Encode::Plain; $Encode::Plain::utf8 = 1; # generally convert from UTF-8
+use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;
 use Lock;
 use Posting::_lib qw(
@@ -1020,7 +1025,9 @@ sub decode_param {
 }
 
 sub jerk {
-  my $text = $_[1] || 'An error has occurred.';
+  my $text = shift;
+  $text = 'An error has occurred.' unless defined $text;
+
   print <<EOF;
 Content-type: text/plain
 

diff --git a/selfforum-cgi/user/fo_sev.pl b/selfforum-cgi/user/fo_sev.pl
index b88ea9da7b5e79dfa7b1522b855d2ff2d6147f10..1fa93e1773e450d8c559dbb732cdffa73c37b920 100644 (file)
--- a/selfforum-cgi/user/fo_sev.pl
+++ b/selfforum-cgi/user/fo_sev.pl
@@ -4,7 +4,7 @@
 #                                                                              #
 # File:        user/fo_sev.pl                                                  #
 #                                                                              #
-# Authors:     André Malo <nd@o3media.de>, 2001-04-08                          #
+# Authors:     André Malo <nd@o3media.de>                                      #
 #                                                                              #
 # Description: severancer script                                               #
 #                                                                              #
@@ -16,7 +16,6 @@ use vars qw(
   $Shared
   $Script
   $Config
-  $VERSION
 );
 
 # locate the script
@@ -43,7 +42,11 @@ umask 006;
 #
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 use lib "$Shared";
 use CGI::Carp qw(fatalsToBrowser);
@@ -62,6 +65,7 @@ my $stat = cut_tail ({
   forumFile    => $conf->{files}->{forum},
   messagePath  => $conf->{files}->{messagePath},
   archivePath  => $conf->{files}->{archivePath},
+  archiveIndex => $conf->{files}->{archiveIndex},
   lockFile     => $conf->{files}->{sev_lock},
   adminDefault => $adminDefault,
   cachePath    => $conf->{files}->{cachePath}

diff --git a/selfforum-cgi/user/fo_view.pl b/selfforum-cgi/user/fo_view.pl
index e59d16efd8d8293b862de5005f80967183453dbe..c185dd31dcafea6e8a69353c650f432a452fa30b 100644 (file)
--- a/selfforum-cgi/user/fo_view.pl
+++ b/selfforum-cgi/user/fo_view.pl
@@ -4,7 +4,7 @@
 #                                                                              #
 # File:        user/fo_view.pl                                                 #
 #                                                                              #
-# Authors:     André Malo <nd@o3media.de>, 2001-04-01                          #
+# Authors:     André Malo <nd@o3media.de>                                      #
 #                                                                              #
 # Description: display the forum main file or a single posting                 #
 #                                                                              #
@@ -16,7 +16,6 @@ use vars qw(
   $Shared
   $Script
   $Config
-  $VERSION
 );
 
 BEGIN {
@@ -50,9 +49,15 @@ use CGI qw(
   header
 );
 
+################################################################################
+#
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 print header(
   -type    => 'text/html',

diff --git a/selfforum-cgi/user/fo_voting.pl b/selfforum-cgi/user/fo_voting.pl
index c8b9f9c8641d800866d1b37dba96dd4b8a4edb15..6cd5e5ce815109de17bb4f87df9597fb2d5a9485 100644 (file)
--- a/selfforum-cgi/user/fo_voting.pl
+++ b/selfforum-cgi/user/fo_voting.pl
@@ -4,7 +4,7 @@
 #                                                                              #
 # File:        user/fo_voting.pl                                               #
 #                                                                              #
-# Authors:     André Malo <nd@o3media.de>, 2001-04-23                          #
+# Authors:     André Malo <nd@o3media.de>                                      #
 #                                                                              #
 # Description: vote a posting, return the posting view                         #
 #                                                                              #
@@ -16,7 +16,6 @@ use vars qw(
   $Shared
   $Script
   $Config
-  $VERSION
 );
 
 BEGIN {
@@ -45,11 +44,22 @@ use Conf::Admin;
 use Posting::Cache;
 use Template::Posting;
 
-use CGI qw(param header remote_addr request_method);
+use CGI qw(
+  param
+  header
+  remote_addr
+  request_method
+);
 
+################################################################################
+#
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 my $conf = read_script_conf ($Config, $Shared, $Script);