X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/d8a1fb31ed6883aef6a7ba78a117269218966a10..5eee41e4c8f4a9f494d4457c088803a260efcac3:/selfforum-cgi/shared/Posting/Handle.pm?ds=sidebyside diff --git a/selfforum-cgi/shared/Posting/Handle.pm b/selfforum-cgi/shared/Posting/Handle.pm index 9d2a94a..700a101 100644 --- a/selfforum-cgi/shared/Posting/Handle.pm +++ b/selfforum-cgi/shared/Posting/Handle.pm @@ -4,10 +4,15 @@ package Posting::Handle; # # # File: shared/Posting/Handle.pm # # # -# Authors: Frank Schoenmann , 2001-02-27 # +# Authors: Frank Schoenmann , 2001-03-13 # # # # Description: Allow modifications of postings # # # +# Todo: * Lock files before modification # +# * Change body in change_posting_body() # +# * Recursively set invisibility flag in main forum xml by # +# hide_posting() and recover_posting() # +# # ################################################################################ use strict; @@ -15,13 +20,86 @@ use strict; use vars qw(@EXPORT); use base qw(Exporter); -@EXPORT = qw(hide_posting recover_posting modify_posting); +@EXPORT = qw(hide_posting recover_posting modify_posting add_user_vote level_vote); +use Lock qw(:READ); use Posting::_lib qw(get_message_node save_file get_all_threads create_forum_xml_string); use XML::DOM; +### add_user_vote () ########################################################### +# +# Increase number of user votes (only in thread file) +# +# Params: $forum Path and filename of forum +# $tpath Path to thread files +# \%info Hash reference: 'thread', 'posting', 'percent' +# Return: Status code (Bool) +# +# Todo: +# * Lock files before modification +# +sub add_user_vote() +{ + my ($forum, $tpath, $info) = @_; + my ($tid, $mid, $percent) = ($info->{'thread'}, + $info->{'posting'}, + $info->{'percent'}); + + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + + my $parser = new XML::DOM::Parser; + my $xml = $parser->parsefile($tfile); + + my $mnode = get_message_node($xml, $tid, $mid); + my $votes = $mnode->getAttribute('votingUser') + 1; + $mnode->setAttribute('votingUser', $votes); + + return save_file($tfile, \$xml->toString); +} + +### level_vote () ############################################################## +# +# Set 1st or 2nd level voting (only in thread file) +# +# Params: $forum Path and filename of forum +# $tpath Path to thread files +# \%info Hash reference: 'thread', 'posting', 'level', 'value' +# Return: Status code (Bool) +# +# Todo: +# * Lock files before modification +# +sub level_vote +{ + my ($forum, $tpath, $info´) = @_; + my ($tid, $mid, $level, $value) = ($info->{'thread'}, + $info->{'posting'}, + $info->{'level'}, + $info->{'value'}); + + # Thread + my $tfile = $tpath . '/t' . $tid . '.xml'; + + my $parser = new XML::DOM::Parser; + my $xml = $parser->parsefile($tfile); + + my $mnode = get_message_node($xml, $tid, $mid); + + if ($value == undef) + { + removeAttribute($level); + } + else + { + $mnode->setAttribute($level, $value); + } + + return save_file($tfile, \$xml->toString); +} + ### hide_posting () ############################################################ # # Hide a posting: set 'invisible' flag @@ -31,6 +109,10 @@ use XML::DOM; # \%info Hash reference: 'thread', 'posting', 'indexFile' # Return: -none- # +# Todo: +# * set flags recursively in forum xml +# * lock files before modification +# sub hide_posting($$$) { my ($forum, $tpath, $info) = @_; @@ -43,9 +125,7 @@ sub hide_posting($$$) 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); + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 0, 0); # filter deleted, descending for (@{$f->{$tid}}) { @@ -60,18 +140,23 @@ sub hide_posting($$$) 'lastMessage' => $lmsg, 'lastThread' => $lthread ); - create_forum_xml_string($f, \%cfxs); + 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' +# 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 +# * lock files before modification +# sub recover_posting($$$) { my ($forum, $tpath, $info) = @_; @@ -84,9 +169,7 @@ sub recover_posting($$$) 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); + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); # do not filter deleted, descending for (@{$f->{$tid}}) { @@ -101,7 +184,8 @@ sub recover_posting($$$) 'lastMessage' => $lmsg, 'lastThread' => $lthread ); - create_forum_xml_string($f, \%cfxs); + my $xmlstring = create_forum_xml_string($f, \%cfxs); + save_file($forum, $$xmlstring); } ### change_posting_visibility () ############################################### @@ -141,14 +225,14 @@ sub change_posting_visibility($$$$) # Params: $forum Path and filename of forum # $tpath Path to thread files # \%info Reference: 'thread', 'posting', 'indexFile', 'data' -# (\%hashref: 'subject', 'category', 'body') +# (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'}, + my ($tid, $mid, $indexFile, $data) = ($info->{'thread'}, + $info->{'posting'}, $info->{'indexFile'}, $info->{'data'}); my ($subject, $category, $body) = ($data->{'subject'}, $data->{'category'}, $data->{'body'}); @@ -159,10 +243,32 @@ sub modify_posting($$$) $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); + # 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) + if ($subject or $category) + { + my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0); + + for (@{$f->{$tid}}) + { + if ($_->{'mid'} == $mid) + { + $subject && $_->{'subject'} = $subject; + $category && $_->{'cat'} = $category; + } + } + + my %cfxs = ( + 'dtd' => $dtd, + 'lastMessage' => $lmsg, + 'lastThread' => $lthread + ); + my $xmlstring = create_forum_xml_string($f, \%cfxs); + save_file($forum, $$xmlstring); } ### change_posting_value () #################################################### @@ -195,6 +301,33 @@ sub change_posting_value($$$$) 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 +# +# Todo: +# * Change body +# +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;