From 202b3b42042128b141c6661015fffb3f90bf923e Mon Sep 17 00:00:00 2001 From: ndparker <> Date: Thu, 26 Jul 2001 00:55:31 +0000 Subject: [PATCH] modified version check --- selfforum-cgi/user/fo_arcview.pl | 11 ++++++++--- selfforum-cgi/user/fo_posting.pl | 17 ++++++++++++----- selfforum-cgi/user/fo_sev.pl | 10 +++++++--- selfforum-cgi/user/fo_view.pl | 11 ++++++++--- selfforum-cgi/user/fo_voting.pl | 18 ++++++++++++++---- 5 files changed, 49 insertions(+), 18 deletions(-) diff --git a/selfforum-cgi/user/fo_arcview.pl b/selfforum-cgi/user/fo_arcview.pl index 073f3f3..3ed186c 100644 --- 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 , 2001-06-02 # +# Authors: Frank Schönmann # # # # 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 5046a5c..defbbf0 100644 --- 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 , 2001-04-08 # +# Authors: André Malo # # # # 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 <, 2001-04-08 # +# Authors: André Malo # # # # 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 e59d16e..c185dd3 100644 --- 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 , 2001-04-01 # +# Authors: André Malo # # # # 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 c8b9f9c..6cd5e5c 100644 --- 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 , 2001-04-23 # +# Authors: André Malo # # # # 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); -- 2.34.1