X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/1182760af1a5a403b5d943d676e8b6a7ab9b1dd5..f69abb46fffae25b517a067d1afc532c67fd9ca3:/selfforum-cgi/shared/Template/Posting.pm diff --git a/selfforum-cgi/shared/Template/Posting.pm b/selfforum-cgi/shared/Template/Posting.pm index 441178d..5081a1a 100644 --- a/selfforum-cgi/shared/Template/Posting.pm +++ b/selfforum-cgi/shared/Template/Posting.pm @@ -1,22 +1,29 @@ -# Template/Posting.pm +package Template::Posting; -# ==================================================== -# Autor: n.d.p. / 2001-01-14 -# lm : n.d.p. / 2001-01-14 -# ==================================================== -# Funktion: -# HTML-Darstellung eines Postings -# ==================================================== +################################################################################ +# # +# File: shared/Template/Posting.pm # +# # +# Authors: Andre Malo , 2001-04-01 # +# # +# Description: show HTML formatted posting # +# # +################################################################################ use strict; -package Template::Posting; - use Encode::Posting; use Encode::Plain; $Encode::Plain::utf8 = 1; use Id; -use Lock qw(:WRITE); -use Posting::_lib qw(get_message_node get_message_header get_message_body parse_single_thread hr_time); +use Lock qw(:READ); +use Posting::_lib qw( + get_message_node + get_message_header + get_message_body + parse_single_thread + parse_xml_file + hr_time +); use Template; use Template::_conf; use Template::_query; @@ -24,29 +31,37 @@ use Template::_thread; use XML::DOM; -# ==================================================== -# Funktionsexport -# ==================================================== - +################################################################################ +# +# Export +# use base qw(Exporter); -@Template::Posting::EXPORT = qw(print_posting_as_HTML message_as_HTML); +@Template::Posting::EXPORT = qw( + print_posting_as_HTML + message_as_HTML +); -################################ -# sub print_posting_as_HTML +### sub print_posting_as_HTML ($$$) ############################################ +# +# print HTML formatted Posting to STDOUT +# +# Params: $threadpath - /path/to/thread_files +# $tempfile - template file +# $param - Hash-Reference (see doc for details) +# +# Return: -none- # -# HTML erzeugen -################################ - sub print_posting_as_HTML ($$$) { my ($threadpath, $tempfile, $param) = @_; my $template = new Template $tempfile; # Datei sperren... (eigentlich) - my $view = get_view_params ({adminDefault => $param -> {adminDefault} - }); + my $view = get_view_params ({ + adminDefault => $param -> {adminDefault} + }); - my $xml=new XML::DOM::Parser -> parsefile ($threadpath.'t'.$param -> {thread}.'.xml'); + my $xml = parse_xml_file ($threadpath.'t'.$param -> {thread}.'.xml'); my ($mnode, $tnode) = get_message_node ($xml, 't'.$param -> {thread}, 'm'.$param -> {posting}); my $pnode = $mnode -> getParentNode; @@ -60,89 +75,120 @@ sub print_posting_as_HTML ($$$) { my $body = get_message_body ($xml, 'm'.$param -> {posting}); - my $text = message_field ($body, - {quoteChars => plain($view -> {quoteChars}), - quoting => 1, - startCite => ${$template -> scrap ($assign -> {startCite})}, - endCite => ${$template -> scrap ($assign -> {endCite})} - }); - - my $area = answer_field ($body, - {quoteArea => 1, - quoteChars => plain($view -> {quoteChars}), - messages => $param -> {messages} - }); + my $text = message_field ( + $body, + { quoteChars => plain($view -> {quoteChars}), + quoting => 1, + startCite => ${$template -> scrap ($assign -> {startCite})}, + endCite => ${$template -> scrap ($assign -> {endCite})} + } + ); + + my $area = answer_field ( + $body, + { quoteArea => 1, + quoteChars => plain($view -> {quoteChars}), + messages => $param -> {messages} + } + ); my $pars = {}; - for (qw(posterBody uniqueID followUp quoteChar userID posterName posterEmail posterURL posterImage)) { - $pars -> {$formdata -> {$_} -> {assign} -> {name}} = plain($formdata -> {$_} -> {name});} + $pars -> {$formdata -> {$_} -> {assign} -> {name}} = plain($formdata -> {$_} -> {name}) + for (qw( + posterBody + uniqueID + followUp + quoteChar + userID + posterName + posterEmail + posterURL + posterImage + )); my $cgi = $param -> {cgi}; - my $tpar = {thread => $param -> {thread}, - template => $param -> {tree}, - start => $param -> {posting}, - cgi => $cgi}; - - my $plink = %$pheader?(query_string ({$cgi -> {thread} => $param -> {thread}, $cgi -> {posting} => ($pnode -> getAttribute ('id') =~ /(\d+)/)[0]})):''; - - print ${$template -> scrap ($assign->{mainDoc}, - {$assign->{name} => plain($header->{name}), - $assign->{email} => plain($header->{email}), - $assign->{home} => plain($header->{home}), - $assign->{image} => plain($header->{image}), - $assign->{time} => plain(hr_time($header->{time})), - $assign->{message} => $text, - $assign->{messageTitle} => plain($header->{subject}), - $assign->{parentTitle} => plain($pheader->{subject}), - $assign->{messageCat} => plain($header->{category}), - $assign->{parentCat} => plain($pheader->{category}), - $assign->{parentName} => plain($pheader->{name}), - $assign->{parentLink} => $plink, - $assign->{parentTime} => plain(hr_time($pheader->{time})), - $param->{tree}->{main} => html_thread ($msg, $template, $tpar), - $formact->{post}->{assign} => $formact->{post}->{url}, - $formact->{vote}->{assign} => $formact->{vote}->{url}, - $formdata->{posterBody}->{assign}->{value} => $area, - $formdata->{uniqueID} ->{assign}->{value} => plain(unique_id), - $formdata->{followUp} ->{assign}->{value} => plain($param -> {thread}.';'.$param -> {posting}), - $formdata->{quoteChar} ->{assign}->{value} => "ÿ".plain($view -> {quoteChars}), - $formdata->{userID} ->{assign}->{value} => '', - }, $pars)}; - + my $tpar = { + thread => $param -> {thread}, + template => $param -> {tree}, + start => $param -> {posting}, + cgi => $cgi + }; + + my $parent_pars; + + $parent_pars = { + $assign->{parentTitle} => plain($pheader->{subject}), + $assign->{parentCat} => plain($pheader->{category}), + $assign->{parentName} => plain($pheader->{name}), + $assign->{parentTime} => plain(hr_time($pheader->{time})), + $assign->{parentLink} => query_string ( + { $cgi -> {thread} => $param -> {thread}, + $cgi -> {posting} => ($pnode -> getAttribute ('id') =~ /(\d+)/)[0] + }) + } if (%$pheader); + + print ${$template -> scrap ( + $assign->{mainDoc}, + { $assign->{name} => plain($header->{name}), + $assign->{email} => plain($header->{email}), + $assign->{home} => plain($header->{home}), + $assign->{image} => plain($header->{image}), + $assign->{time} => plain(hr_time($header->{time})), + $assign->{message} => $text, + $assign->{messageTitle} => plain($header->{subject}), + $assign->{messageCat} => plain($header->{category}), + $param->{tree}->{main} => html_thread ($msg, $template, $tpar), + $formact->{post}->{assign} => $formact->{post}->{url}, + $formact->{vote}->{assign} => $formact->{vote}->{url}, + $formdata->{posterBody}->{assign}->{value} => $area, + $formdata->{uniqueID} ->{assign}->{value} => plain(unique_id), + $formdata->{followUp} ->{assign}->{value} => plain($param -> {thread}.';'.$param -> {posting}), + $formdata->{quoteChar} ->{assign}->{value} => "ÿ".plain($view -> {quoteChars}), + $formdata->{userID} ->{assign}->{value} => '' + }, + $pars, + $parent_pars + )}; + + return; } -################################ -# sub message_as_HTML +### sub message_as_HTML ($$$) ################################################## +# +# create HTML String for the Messagetext +# +# Params: $xml - XML::DOM::Document object +# $template - Template object +# $param - Hash reference +# (assign, posting, quoteChars, quoting) +# +# Return: HTML String # -# HTML erzeugen -################################ - sub message_as_HTML ($$$) { my ($xml, $template, $param) = @_; my $assign = $param -> {assign}; my $body = get_message_body ($xml, $param -> {posting}); - my $text = message_field ($body, - {quoteChars => '»» ', - quoting => 1, - startCite => ${$template -> scrap ($assign -> {startCite})}, - endCite => ${$template -> scrap ($assign -> {endCite})} - }); + my $text = message_field ( + $body, + { quoteChars => plain ($param -> {quoteChars}), + quoting => $param -> {quoting}, + startCite => ${$template -> scrap ($assign -> {startCite})}, + endCite => ${$template -> scrap ($assign -> {endCite})} + } + ); - # Rueckgabe + # return $text; } -# ==================================================== -# Modulinitialisierung -# ==================================================== - -# making require happy +# keep require happy 1; -# ==================================================== -# end of Template::Posting -# ==================================================== \ No newline at end of file +# +# +### end of Template::Posting ################################################### +