# #
# File: shared/Template/Archive.pm #
# #
-# Authors: Frank Schoenmann <fs@tower.de>, 2001-06-08 #
+# Authors: Andre Malo <nd@o3media.de>, 2001-06-16 #
+# Frank Schoenmann <fs@tower.de>, 2001-06-08 #
# #
# Description: archive display #
# #
################################################################################
use strict;
+use vars qw(
+ @EXPORT
+ $VERSION
+);
use Lock qw(:READ);
use Encode::Posting;
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
}
-# keep require happy
+# keep 'require' happy
1;
#
#
-### end of Template::Archive ###################################################
+### end of Template::Archive ###################################################
\ No newline at end of file
# #
# File: shared/Template/Forum.pm #
# #
-# Authors: André Malo <nd@o3media.de>, 2001-04-19 #
+# Authors: André Malo <nd@o3media.de>, 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;
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
#
{ 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));
return;
}
-# keep require happy
+# keep 'require' happy
1;
#
# #
# File: shared/Template/Posting.pm #
# #
-# Authors: Andre Malo <nd@o3media.de>, 2001-04-01 #
+# Authors: Andre Malo <nd@o3media.de>, 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;
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
#
return;
}
-### sub message_as_HTML ($$$) ##################################################
+### message_as_HTML () #########################################################
#
# create HTML String for the Messagetext
#
$text;
}
-# keep require happy
+# keep 'require' happy
1;
#
-# 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 <nd@o3media.de>, 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 #####################################################
-# 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 <nd@o3media.de>, 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 ####################################################
# #
# File: shared/Template/_thread.pm #
# #
-# Authors: Andre Malo <nd@o3media.de>, 2001-04-02 #
+# Authors: Andre Malo <nd@o3media.de>, 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
#
\$html;
}
-# keep require happy
+# keep 'require' happy
1;
#
git.p6c8.net / selfforum.git / commitdiff