selfforum-cgi/shared/Conf/Admin.pm

   1 # Admin.pm
   2
   3 # ====================================================
   4 # Autor: n.d.p. / 2001-01-05
   5 # lm   : n.d.p. / 2001-02-25
   6 # ====================================================
   7 # Funktion:
   8 #      Einlesen der Admindefaultkonfiguration
   9 # ====================================================
  10
  11 use strict;
  12
  13 package Conf::Admin;
  14
  15 use vars qw(@EXPORT);
  16
  17 use Lock qw(:READ);
  18
  19 use XML::DOM;
  20
  21 # ====================================================
  22 # Funktionsexport
  23 # ====================================================
  24
  25 use base qw(Exporter);
  26 @EXPORT = qw(read_admin_conf);
  27
  28 ################################
  29 # sub read_admin_conf
  30 #
  31 # Default-Admin-Konf. lesen
  32 ################################
  33
  34 sub read_admin_conf ($) {
  35   my $filename=shift;
  36   my %conf;
  37
  38   if (-f $filename) {                                                    # gibts die Datei ueberhaupt?
  39     if (lock_file ($filename)) {                                         # sperren...
  40       my $xml = new XML::DOM::Parser -> parsefile ($filename);           # ...einlesen und parsen...
  41       violent_unlock_file ($filename) unless (unlock_file ($filename));  # ...freigeben
  42
  43       # =================================
  44       # jetzt Daten in den Hash schreiben
  45
  46       my $forum = $xml -> getElementsByTagName ('Forum',0) -> item (0);
  47
  48       # View
  49       my $forum_view      = $forum       -> getElementsByTagName ('ForumView', 0) -> item (0);
  50         my $thread_view   = $forum_view  -> getElementsByTagName ('ThreadView', 0) -> item (0);
  51           my $show_thread = $thread_view -> getElementsByTagName ('ShowThread', 0) -> item (0);
  52             my $show_how  = $show_thread -> getElementsByTagName ('*', 0) -> item (0);
  53             my $how_name  = $show_how -> getTagName;
  54         my $message_view  = $forum_view  -> getElementsByTagName ('MessageView', 0) -> item (0);
  55         my $flags         = $forum_view  -> getElementsByTagName ('Flags', 0) -> item (0);
  56         my $quoting       = $forum_view  -> getElementsByTagName ('Quoting', 0) -> item (0);
  57           my $char        = $quoting     -> getElementsByTagName ('Chars', 0) -> item (0);
  58
  59       $conf {View} = {threadOpen    => $thread_view -> getAttribute ('threadOpen'),
  60                       countMessages => $thread_view -> getAttribute ('countMessages'),
  61                       sortThreads   => $thread_view -> getAttribute ('sortThreads'),
  62                       sortMessages  => $thread_view -> getAttribute ('sortMessages'),
  63                       showThread    => (($how_name eq 'showAll')?undef:
  64                                        (($how_name eq 'showNone')?1:
  65                                        ($show_how -> getFirstChild -> getData))),
  66                       showPreview   => $message_view -> getAttribute ('previewON'),
  67                       showNA        => $flags -> getAttribute ('showNA'),
  68                       showHQ        => $flags -> getAttribute ('showHQ'),
  69                       quoting       => $quoting -> getAttribute ('quotingON'),
  70                       quoteChars    => $char?$char -> getFirstChild -> getData:undef};
  71
  72       # Severance
  73       $conf {Severance} = &get_severance ($forum -> getElementsByTagName ('Severance', 0) -> item (0));
  74
  75       # Messaging
  76       my $messaging      = $forum     -> getElementsByTagName ('Messaging', 0) -> item (0);
  77         my $call_by_user = $messaging -> getElementsByTagName ('CallByUser', 0) -> item (0);
  78
  79       $conf {Messaging} = {userAnswer => $messaging -> getAttribute ('callUserAnswer'),
  80                            thread     => $messaging -> getAttribute ('callAdminThread'),
  81                            na         => $messaging -> getAttribute ('callAdminNA'),
  82                            hq         => $messaging -> getAttribute ('callAdminHQ'),
  83                            voting     => $messaging -> getAttribute ('callAdminVoting'),
  84                            archiving  => $messaging -> getAttribute ('callAdminArchiving'),
  85                            byUser     => $messaging -> getAttribute ('callUserAnswer'),
  86                            callByName => [map {$_ -> getFirstChild -> getData} $call_by_user -> getElementsByTagName ('Name', 0)],
  87                            callByMail => [map {$_ -> getFirstChild -> getData} $call_by_user -> getElementsByTagName ('Email', 0)],
  88                            callByIP   => [map {$_ -> getFirstChild -> getData} $call_by_user -> getElementsByTagName ('IpAddress', 0)]};
  89
  90       # Instant
  91       my $instant    = $forum   -> getElementsByTagName ('InstantJob', 0) -> item (0);
  92         my $job      = $instant -> getElementsByTagName ('*',0) -> item (0);
  93         my $job_name = $job -> getTagName;
  94         $job_name = $job -> getAttribute ('reason') if ($job_name ne 'Severance');
  95
  96       $conf {Instant} = {execute     => $instant -> getAttribute ('executeJob'),
  97                          description => $job_name,
  98                          url         => (($job_name ne 'Severance')?$job -> getElementsByTagName ('FileUrl', 0) -> item (0) -> getFirstChild -> getData:undef),
  99                          Severance   => (($job_name eq 'Severance')?&get_severance ($job):undef)};
 100
 101       # User
 102       my $user = $forum -> getElementsByTagName ('UserManagement', 0) -> item (0);
 103
 104       $conf {User} = {deleteAfterDays => $user -> getElementsByTagName ('DeleteUser', 0) -> item (0)
 105                                                -> getElementsByTagName ('AfterDays', 0) -> item (0)
 106                                                -> getFirstChild -> getData};
 107     }
 108
 109     else {
 110       violent_unlock_file ($filename);}}
 111
 112   # Rueckgabe
 113   \%conf;
 114 }
 115
 116 # ====================================================
 117 # Private Funktionen
 118 # ====================================================
 119
 120 sub get_severance ($) {
 121   my $severance = shift;
 122
 123   my $after_byte    = $severance -> getElementsByTagName ('AfterByte', 0) -> item (0);
 124   my $after_message = $severance -> getElementsByTagName ('AfterMessage', 0) -> item (0);
 125   my $after_thread  = $severance -> getElementsByTagName ('AfterThread', 0) -> item (0);
 126   my $last_posting  = $severance -> getElementsByTagName ('AfterLastPosting', 0) -> item (0);
 127
 128   my %conf =( exArchiving  => $severance -> getAttribute ('executeArchiving'),
 129               archiving    => $severance -> getElementsByTagName ('Archiving', 0) -> item (0)
 130                                 -> getElementsByTagName ('*', 0) -> item (0) -> getTagName,
 131               severance    => $severance -> getAttribute ('executeSeverance'),
 132               afterByte    => ($after_byte?$after_byte -> getFirstChild -> getData:undef),
 133               afterThread  => ($after_thread?$after_thread -> getFirstChild -> getData:undef),
 134               afterMessage => ($after_message?$after_message -> getFirstChild -> getData:undef),
 135               lastPosting  => ($last_posting?$last_posting -> getFirstChild -> getData:undef));
 136
 137   \%conf;
 138 }
 139
 140 # ====================================================
 141 # Modulinitialisierung
 142 # ====================================================
 143
 144 # making require happy
 145 1;
 146
 147 # ====================================================
 148 # end of Conf::Admin
 149 # ====================================================