X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/0477bd232cbfcfc43a702a7c89fec6acbf99907c..4b009585d72cb50762e6cbea18f2b79ff92278db:/selfforum-cgi/shared/Posting/Handle.pm diff --git a/selfforum-cgi/shared/Posting/Handle.pm b/selfforum-cgi/shared/Posting/Handle.pm index dd05a40..246f4e7 100644 --- a/selfforum-cgi/shared/Posting/Handle.pm +++ b/selfforum-cgi/shared/Posting/Handle.pm @@ -1,5 +1,4 @@ -package Handle; -#package Posting::Handle; +package Posting::Handle; ################################################################################ # # @@ -16,9 +15,10 @@ use strict; use vars qw(@EXPORT); use base qw(Exporter); -@EXPORT = qw(hide_posting); +@EXPORT = qw(hide_posting recover_posting modify_posting); -use Posting::_lib; +use Posting::_lib qw(get_message_node save_file get_all_threads + create_forum_xml_string); use XML::DOM; @@ -26,46 +26,177 @@ use XML::DOM; # # Hide a posting: set 'invisible' flag # +# Params: $forum Path and filename of forum +# $tpath Path to thread files +# \%info Hash reference: 'thread', 'posting', 'indexFile' +# Return: -none- +# +sub hide_posting($$$) +{ + my ($forum, $tpath, $info) = @_; + my ($tid, $mid, $indexFile) = ($info->{'thread'}, + $info->{'posting'}, + $info->{'indexFile'}); + + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 1); + + # Forum + #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 1); # OBSOLETE + + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); + + for (@{$f->{$tid}}) + { + if ($_->{'mid'} == $mid) + { + $_->{'deleted'} = 1; + } + } + + my %cfxs = ( + 'dtd' => $dtd, + 'lastMessage' => $lmsg, + 'lastThread' => $lthread + ); + my $xmlstring = create_forum_xml_string($f, \%cfxs); + save_file($forum, $$xmlstring); +} + +### recover_posting() ########################################################## +# +# Recover a posting: delete 'invisible' flag +# # Params: $forum Path and filename of forum # $tpath Path to thread files # \%hashref Reference: 'thread', 'posting', 'indexFile' -# Return: Boolean +# Return: -none- # -sub hide_posting($$$) +sub recover_posting($$$) { my ($forum, $tpath, $info) = @_; - my ($tid, $mid, $indexFile) = ('t' . $info->{'thread'}, - 'm' . $info->{'posting'}, + my ($tid, $mid, $indexFile) = ($info->{'thread'}, + $info->{'posting'}, $info->{'indexFile'}); - my $tfile = $tpath . '/' . $tid . '.xml'; - change_posting_visibility($tfile, $tid, $mid, 1); - change_posting_visibility($forum, $tid, $mid, 1); + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 0); + + # Forum + #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 0); # OBSOLETE + + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); + + for (@{$f->{$tid}}) + { + if ($_->{'mid'} == $mid) + { + $_->{'deleted'} = 0; + } + } + + my %cfxs = ( + 'dtd' => $dtd, + 'lastMessage' => $lmsg, + 'lastThread' => $lthread + ); + my $xmlstring = create_forum_xml_string($f, \%cfxs); + save_file($forum, $$xmlstring); } ### change_posting_visibility () ############################################### # -# -desc- +# Set a postings visibility flag to $invisible # # Params: $fname Filename # $tid Thread ID # $mid Message ID # $invisible 1 - invisible, 0 - visible -# Return: -none- +# Return: Status code # -sub change_posting_visibility($$$) +sub change_posting_visibility($$$$) { my ($fname, $tid, $mid, $invisible) = @_; my $parser = new XML::DOM::Parser; my $xml = $parser->parsefile($fname); + # Set flag in given msg my $mnode = get_message_node($xml, $tid, $mid); $mnode->setAttribute('invisible', $invisible); - $xml->printToFile($fname.'.temp'); - rename $fname.'.temp', $fname; + # Set flag in sub nodes + for ($mnode->getElementsByTagName('Message')) + { + $_->setAttribute('invisible', $invisible); + } + + return save_file($fname, \$xml->toString); +} + +### modify_posting () ########################################################## +# +# Modify a posting (only subject and category until now!) +# +# Params: $forum Path and filename of forum +# $tpath Path to thread files +# \%info Reference: 'thread', 'posting', 'indexFile', 'data' +# (\%hashref: 'subject', 'category', 'body') +# Return: -none- +# +sub modify_posting($$$) +{ + my ($forum, $tpath, $info) = @_; + my ($tid, $mid, $indexFile, $data) = ('t' . $info->{'thread'}, + 'm' . $info->{'posting'}, + $info->{'indexFile'}, + $info->{'data'}); + my ($subject, $category, $body) = ($data->{'subject'}, $data->{'category'}, $data->{'body'}); + + my %msgdata; + + # These values may be changed by change_posting_value() + $subject && $msgdata{'Subject'} = $subject; + $category && $msgdata{'Category'} = $category; + + # + my $tfile = $tpath . '/' . $tid . '.xml'; + change_posting_value($tfile, $tid, $mid, \$msgdata); + change_posting_value($forum, $tid, $mid, \$msgdata); +} + +### change_posting_value () #################################################### +# +# Change specific values of a posting +# +# Params: $fname Filename +# $tid Thread ID +# $mid Message ID +# \%values New values +# Return: Status code +# +sub change_posting_value($$$$) +{ + my ($fname, $tid, $mid, $values) = @_; + + my $parser = new XML::DOM::Parser; + my $xml = $parser->parsefile($fname); + + my $mnode = get_message_node($xml, $tid, $mid); + + for (keys %$values) + { + # Find first direct child node with name $_ + my $nodes = $mnode->getElementsByTagName($_, 0); + my $node = $nodes->item(0); + $node->setValue($values->{$_}); + } + + return save_file($fname, \$xml->toString); } +# Let it be true 1;