selfforum-cgi/shared/Posting/Handle.pm

   1 package Posting::Handle;
   2
   3 ################################################################################
   4 #                                                                              #
   5 # File:        shared/Posting/Handle.pm                                        #
   6 #                                                                              #
   7 # Authors:     Frank Schoenmann <fs@tower.de>, 2001-02-27                      #
   8 #                                                                              #
   9 # Description: Allow modifications of postings                                 #
  10 #                                                                              #
  11 ################################################################################
  12
  13 use strict;
  14
  15 use vars qw(@EXPORT);
  16 use base qw(Exporter);
  17
  18 @EXPORT = qw(hide_posting recover_posting);
  19
  20 use Posting::_lib qw(get_message_node);
  21
  22 use XML::DOM;
  23
  24 ### hide_posting () ############################################################
  25 #
  26 # Hide a posting: set 'invisible' flag
  27 #
  28 # Params: $forum     Path and filename of forum
  29 #         $tpath     Path to thread files
  30 #         \%hashref  Reference: 'thread', 'posting', 'indexFile'
  31 # Return: -none-
  32 #
  33 sub hide_posting($$$)
  34 {
  35     my ($forum, $tpath, $info) = @_;
  36     my ($tid, $mid, $indexFile) = ('t' . $info->{'thread'},
  37                                    'm' . $info->{'posting'},
  38                                    $info->{'indexFile'});
  39
  40     my $tfile = $tpath . '/' . $tid . '.xml';
  41     change_posting_visibility($tfile, $tid, $mid, 1);
  42     change_posting_visibility($forum, $tid, $mid, 1);
  43 }
  44
  45 ### recover_posting() ##########################################################
  46 #
  47 # Recover a posting: delete 'invisible' flag
  48 #
  49 # Params: $forum     Path and filename of forum
  50 #         $tpath     Path to thread files
  51 #         \%hashref  Reference: 'thread', 'posting', 'indexFile'
  52 # Return: -none-
  53 #
  54 sub recover_posting($$$)
  55 {
  56     my ($forum, $tpath, $info) = @_;
  57     my ($tid, $mid, $indexFile) = ('t' . $info->{'thread'},
  58                                    'm' . $info->{'posting'},
  59                                    $info->{'indexFile'});
  60
  61     my $tfile = $tpath . '/' . $tid . '.xml';
  62     change_posting_visibility($tfile, $tid, $mid, 0);
  63     change_posting_visibility($forum, $tid, $mid, 0);
  64 }
  65
  66 ### change_posting_visibility () ###############################################
  67 #
  68 # Set a postings visibility flag to $invisible
  69 #
  70 # Params: $fname      Filename
  71 #         $tid        Thread ID
  72 #         $mid        Message ID
  73 #         $invisible  1 - invisible, 0 - visible
  74 # Return: -none-
  75 #
  76 sub change_posting_visibility($$$)
  77 {
  78     my ($fname, $tid, $mid, $invisible) = @_;
  79
  80     my $parser = new XML::DOM::Parser;
  81     my $xml = $parser->parsefile($fname);
  82
  83     # Set flag in given msg
  84     my $mnode = get_message_node($xml, $tid, $mid);
  85     $mnode->setAttribute('invisible', $invisible);
  86
  87     # Set flag in sub nodes
  88     for ($mnode->getElementsByTagName('Message'))
  89     {
  90         $_->setAttribute('invisible', $invisible);
  91     }
  92
  93     $xml->printToFile($fname.'.temp');
  94     rename $fname.'.temp', $fname;
  95 }
  96
  97
  98 1;