X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/9f19cb68669296f87eefd27f8e9765deeef85106..b2f1ca8d9367d38b919afebbdc2e1b7002dc2563:/selfforum-cgi/shared/Posting/Handle.pm diff --git a/selfforum-cgi/shared/Posting/Handle.pm b/selfforum-cgi/shared/Posting/Handle.pm index 67d5c0b..6873178 100644 --- a/selfforum-cgi/shared/Posting/Handle.pm +++ b/selfforum-cgi/shared/Posting/Handle.pm @@ -1,11 +1,10 @@ -package Handle; -#package Posting::Handle; +package Posting::Handle; ################################################################################ # # # File: shared/Posting/Handle.pm # # # -# Authors: Frank Schoenmann , 2001-02-27 # +# Authors: Frank Schoenmann , 2001-03-08 # # # # Description: Allow modifications of postings # # # @@ -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,68 +26,229 @@ use XML::DOM; # # Hide a posting: set 'invisible' flag # -# Params: $forum Path and filename of forum -# $tpath Path to thread files -# \%hashref Reference: 'thread', 'posting', 'indexFile' -# Return: Boolean +# Params: $forum Path and filename of forum +# $tpath Path to thread files +# \%info Hash reference: 'thread', 'posting', 'indexFile' +# Return: -none- +# +# Todo: +# * set flags recursive in forum xml # sub hide_posting($$$) { - my ($forum, $tpath, $info) = shift; - my ($tid, $pid, $indexFile) = ('t' . $info->{'thread'}, - 'm' . $info->{'posting'}, + my ($forum, $tpath, $info) = @_; + my ($tid, $mid, $indexFile) = ($info->{'thread'}, + $info->{'posting'}, $info->{'indexFile'}); - { - # Change flag in thread xml file - my $tfile = $tpath . '/' . $tid; + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 1); - my $parser = new XML::DOM::Parser; - my $xml = $parser->parsefile($tfile); + # Forum + #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 1); # OBSOLETE - my $msgs = $xml->getElementsByTagName('Message'); + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); - for (my $i = 0; $i < $msgs->getLength; $i++) + for (@{$f->{$tid}}) + { + if ($_->{'mid'} == $mid) { - my $msg = $msgs->item($i); - - if ($msg->getAttribute('id')->getValue == $pid) - { - $msg->setAttribute('invisible', '1'); - last; - } + $_->{'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 +# \%info Hash reference: 'thread', 'posting', 'indexFile' +# Return: -none- +# +# Todo: +# * set flags recursive in forum xml +# +sub recover_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, 0); + + # Forum + #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 0); # OBSOLETE - # Save thread xml file - $xml->printToFile($tfile . '.temp'); - rename $tfile . '.temp', $tfile; + 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 () ############################################### +# +# Set a postings visibility flag to $invisible +# +# Params: $fname Filename +# $tid Thread ID +# $mid Message ID +# $invisible 1 - invisible, 0 - visible +# Return: Status code +# +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); + + # Set flag in sub nodes + for ($mnode->getElementsByTagName('Message')) { - # Change flag in forum xml file - my $parser = new XML::DOM::Parser; - my $xml = $parser->parseFile($forum); + $_->setAttribute('invisible', $invisible); + } - my $msgs = $xml->getElementsByTagName('Message'); + return save_file($fname, \$xml->toString); +} - for (my $i = 0; $i < $msgs->getLength; $i++) - { - my $msg = $msgs->item($i); +### 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' +# (data = \%hashref: 'subject', 'category', 'body') +# Return: -none- +# +sub modify_posting($$$) +{ + my ($forum, $tpath, $info) = @_; + my ($tid, $mid, $indexFile, $data) = ($info->{'thread'}, + $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; + + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + change_posting_value($tfile, 't'.$tid, 'm'.$mid, \$msgdata); + $body && change_posting_body($tfile, 't'.$tid, 'm'.$mid, $body); + + # Forum (does not contain msg bodies) + #change_posting_value($forum, 't'.$tid, 'm'.$mid, \$msgdata); - if ($msg->getAttribute('id')->getValue == $pid) - { - $msg->setAttribute('invisible', '1'); - last; - } + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); + + for (@{$f->{$tid}}) + { + if ($_->{'mid'} == $mid) + { + $subject && $_->{'subject'} = $subject; + $category && $_->{'cat'} = $category; } + } - # Save forum xml file - $xml->printToFile($forum . '.temp'); - rename $forum . '.temp', $forum; + my %cfxs = ( + 'dtd' => $dtd, + 'lastMessage' => $lmsg, + 'lastThread' => $lthread + ); + my $xmlstring = create_forum_xml_string($f, \%cfxs); + save_file($forum, $$xmlstring); +} + +### 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); } +### change_posting_body () ##################################################### +# +# Change body of a posting +# +# Params: $fname Filename +# $tid Thread ID (unused, for compatibility purposes) +# $mid Message ID +# $body New body +# Return: Status code +# +sub change_posting_body($$$$) +{ + my ($fname, $tid, $mid, $body) = @_; + + my $parser = new XML::DOM::Parser; + my $xml = $parser->parsefile($fname); + my $mbnody = get_message_body($xml, $mid); + + # todo: change body + + return save_file($fname, \$xml->toString); +} +# Let it be true 1;