From 33dc5903af2c531fdd07df0ac1591c55ea13c5d3 Mon Sep 17 00:00:00 2001 From: ndparker <> Date: Sun, 17 Jun 2001 04:00:38 +0000 Subject: [PATCH] version checks added, fixed comments --- selfforum-cgi/shared/Template/Archive.pm | 19 ++++- selfforum-cgi/shared/Template/Forum.pm | 22 ++++- selfforum-cgi/shared/Template/Posting.pm | 20 +++-- selfforum-cgi/shared/Template/_conf.pm | 74 +++++++++------- selfforum-cgi/shared/Template/_query.pm | 104 ++++++++++++----------- selfforum-cgi/shared/Template/_thread.pm | 18 +++- 6 files changed, 159 insertions(+), 98 deletions(-) diff --git a/selfforum-cgi/shared/Template/Archive.pm b/selfforum-cgi/shared/Template/Archive.pm index 7e97add..d3706a4 100644 --- a/selfforum-cgi/shared/Template/Archive.pm +++ b/selfforum-cgi/shared/Template/Archive.pm @@ -4,13 +4,18 @@ package Template::Archive; # # # File: shared/Template/Archive.pm # # # -# Authors: Frank Schoenmann , 2001-06-08 # +# Authors: Andre Malo , 2001-06-16 # +# Frank Schoenmann , 2001-06-08 # # # # Description: archive display # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Lock qw(:READ); use Encode::Posting; @@ -35,12 +40,18 @@ use Template; use Template::_conf; use Template::_thread; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Template::Archive::EXPORT = qw( +@EXPORT = qw( print_overview_as_HTML print_year_as_HTML print_month_as_HTML @@ -371,9 +382,9 @@ sub print_thread_as_HTML($$$) { } -# keep require happy +# keep 'require' happy 1; # # -### end of Template::Archive ################################################### +### end of Template::Archive ################################################### \ No newline at end of file diff --git a/selfforum-cgi/shared/Template/Forum.pm b/selfforum-cgi/shared/Template/Forum.pm index 5963008..245bb5e 100644 --- a/selfforum-cgi/shared/Template/Forum.pm +++ b/selfforum-cgi/shared/Template/Forum.pm @@ -4,13 +4,17 @@ package Template::Forum; # # # File: shared/Template/Forum.pm # # # -# Authors: André Malo , 2001-04-19 # +# Authors: André Malo , 2001-06-16 # # # # Description: print Forum main file to STDOUT # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Lock qw(:READ); use Encode::Plain; $Encode::Plain::utf8 = 1; @@ -22,14 +26,20 @@ use Template; use Template::_conf; use Template::_thread; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Template::Forum::EXPORT = qw(print_forum_as_HTML); +@EXPORT = qw(print_forum_as_HTML); -### sub print_forum_as_HTML ($$$) ############################################## +### print_forum_as_HTML () ##################################################### # # print Forum main file to STDOUT # @@ -67,6 +77,10 @@ sub print_forum_as_HTML ($$$) { { adminDefault => $param -> {adminDefault} } ); + # set process priority, remove if you don't need... + # + eval {setpriority 0,0,1}; + $threads = get_all_threads ($mainfile, $param -> {showDeleted}, $view -> {sortedMsg}); violent_unlock_file ($mainfile) unless (unlock_file ($mainfile)); @@ -98,7 +112,7 @@ sub print_forum_as_HTML ($$$) { return; } -# keep require happy +# keep 'require' happy 1; # diff --git a/selfforum-cgi/shared/Template/Posting.pm b/selfforum-cgi/shared/Template/Posting.pm index 4cae38d..64b0537 100644 --- a/selfforum-cgi/shared/Template/Posting.pm +++ b/selfforum-cgi/shared/Template/Posting.pm @@ -4,13 +4,17 @@ package Template::Posting; # # # File: shared/Template/Posting.pm # # # -# Authors: Andre Malo , 2001-04-01 # +# Authors: Andre Malo , 2001-06-16 # # # # Description: show HTML formatted posting # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Encode::Posting; use Encode::Plain; $Encode::Plain::utf8 = 1; @@ -32,17 +36,23 @@ use Template::_thread; use XML::DOM; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Template::Posting::EXPORT = qw( +@EXPORT = qw( print_posting_as_HTML message_as_HTML ); -### sub print_posting_as_HTML ($$$) ############################################ +### print_posting_as_HTML () ################################################### # # print HTML formatted Posting to STDOUT # @@ -196,7 +206,7 @@ sub print_posting_as_HTML ($$$) { return; } -### sub message_as_HTML ($$$) ################################################## +### message_as_HTML () ######################################################### # # create HTML String for the Messagetext # @@ -226,7 +236,7 @@ sub message_as_HTML ($$$) { $text; } -# keep require happy +# keep 'require' happy 1; # diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm index 6f1e130..626815b 100644 --- a/selfforum-cgi/shared/Template/_conf.pm +++ b/selfforum-cgi/shared/Template/_conf.pm @@ -1,52 +1,60 @@ -# Template/_conf.pm +package Template::_conf; -# ==================================================== -# Autor: n.d.p. / 2001-02-20 -# lm : n.d.p. / 2001-02-20 -# ==================================================== -# Funktion: -# Bereitstellung der Ausgabeparameter -# durch Kombination von User und Adminkonf. -# ==================================================== +################################################################################ +# # +# File: shared/Template/_conf.pm # +# # +# Authors: André Malo , 2001-06-16 # +# # +# Description: combine user and default config # +# # +################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); -package Template::_conf; - -# ==================================================== -# Funktionsexport -# ==================================================== +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +################################################################################ +# +# Export +# use base qw(Exporter); -@Template::_conf::EXPORT = qw(get_view_params); +@EXPORT = qw(get_view_params); -################################ -# sub get_view_params +### get_view_params () ######################################################### +# +# determine output parameters +# +# Params: $param - hashref +# +# Return: hashref # -# Ausgabeparameter bestimmen -################################ - sub get_view_params ($) { my $param = shift; my $default = $param -> {adminDefault}; my %hash; - %hash = (quoting => $default -> {View} -> {quoting}, - quoteChars => $default -> {View} -> {quoteChars}, - sortedMsg => $default -> {View} -> {sortMessages}, - sortedThreads => $default -> {View} -> {sortThreads} - ); + %hash = ( + quoting => $default -> {View} -> {quoting}, + quoteChars => $default -> {View} -> {quoteChars}, + sortedMsg => $default -> {View} -> {sortMessages}, + sortedThreads => $default -> {View} -> {sortThreads} + ); \%hash; } -# ==================================================== -# Modulinitialisierung -# ==================================================== - -# making require happy +# keep 'require' happy 1; -# ==================================================== -# end of Template::_conf -# ==================================================== \ No newline at end of file +# +# +### end of Template::_conf ##################################################### diff --git a/selfforum-cgi/shared/Template/_query.pm b/selfforum-cgi/shared/Template/_query.pm index 66be8fc..8d1d8ec 100644 --- a/selfforum-cgi/shared/Template/_query.pm +++ b/selfforum-cgi/shared/Template/_query.pm @@ -1,68 +1,76 @@ -# Template/_query.pm +package Template::_query; -# ==================================================== -# Autor: n.d.p. / 2000-12-30 -# lm : n.d.p. / 2001-02-04 -# ==================================================== -# Funktion: -# Erzeugen eines Querystrings -# ==================================================== +################################################################################ +# # +# File: shared/Template/_query.pm # +# # +# Authors: André Malo , 2001-06-16 # +# # +# Description: compose a query string # +# # +################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); -package Template::_query; - -# ==================================================== -# Funktionsexport -# ==================================================== +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +################################################################################ +# +# Export +# use base qw(Exporter); -@Template::_query::EXPORT = qw(query_string); +@EXPORT = qw(query_string); -################################ -# sub query_string +### url_encode () ############################################################## # -# Querystring erzeugen -################################ - -sub query_string ($) { - my $parlist=shift; - - my $string = '?'.join ('&', - map {(ref)?map{&url_encode ($_).'='.&url_encode ($parlist -> {$_})} @{$parlist -> {$_}}: - &url_encode ($_).'='.&url_encode ($parlist -> {$_})} - keys %$parlist); +# urlsafe encoding +# (more or less from CGI.pm) +# +# Params: $string - string to encode +# +# Return: encoded string +# +sub url_encode ($) { + my $string = shift; + $string=~s/([^a-zA-Z\d_.-])/uc sprintf('%%%02x',ord($1))/eg; - # return $string; } -# ==================================================== -# Private Funktionen -# ==================================================== - -################################ -# sub url_encode +### query_string () ############################################################ +# +# compose a query string # -# URL-Codierung -# (mehr oder weniger aus -# CGI.pm geklaut...) -################################ +# Params: $parlist - hashref +# +# Return: scalar: query string +# +sub query_string ($) { + my $parlist=shift; -sub url_encode ($) { - my $string = shift; - $string=~s/([^a-zA-Z\d_.-])/uc sprintf('%%%02x',ord($1))/eg; + my $string = '?'.join ('&' => + map { + (ref) + ? map{url_encode ($_).'='.url_encode ($parlist -> {$_})} @{$parlist -> {$_}} + : url_encode ($_).'='.url_encode ($parlist -> {$_}) + } keys %$parlist + ); + # return $string; } -# ==================================================== -# Modulinitialisierung -# ==================================================== - -# making require happy +# keep 'require' happy 1; -# ==================================================== -# end of Template::_query -# ==================================================== \ No newline at end of file +# +# +### end of Template::_query #################################################### diff --git a/selfforum-cgi/shared/Template/_thread.pm b/selfforum-cgi/shared/Template/_thread.pm index 5f105a6..c47f28c 100644 --- a/selfforum-cgi/shared/Template/_thread.pm +++ b/selfforum-cgi/shared/Template/_thread.pm @@ -4,27 +4,37 @@ package Template::_thread; # # # File: shared/Template/_thread.pm # # # -# Authors: Andre Malo , 2001-04-02 # +# Authors: Andre Malo , 2001-06-16 # # # # Description: convert parsed thread to HTML # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Encode::Plain; $Encode::Plain::utf8 = 1; use Posting::_lib qw(short_hr_time); use Template; use Template::_query; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Template::_thread::EXPORT = qw(html_thread); +@EXPORT = qw(html_thread); -### sub html_thread ($$$) ###################################################### +### html_thread () ############################################################# # # create HTML string # @@ -173,7 +183,7 @@ sub html_thread ($$$) { \$html; } -# keep require happy +# keep 'require' happy 1; # -- 2.34.1