selfforum-cgi/user/fo_arcview.pl

   1 #!/usr/bin/perl -w
   2
   3 ################################################################################
   4 #                                                                              #
   5 # File:        user/fo_arcview.pl                                              #
   6 #                                                                              #
   7 # Authors:     Frank Schoenmann <fs@tower.de>, 2001-06-02                      #
   8 #                                                                              #
   9 # Description: archive browser                                                 #
  10 #                                                                              #
  11 ################################################################################
  12
  13 use strict;
  14 use vars qw(
  15   $Bin
  16   $Shared
  17   $Script
  18   $Config
  19 );
  20
  21 BEGIN {
  22   my $null = $0; $null =~ s/\\/\//g; # for win :-(
  23   $Bin     = ($null =~ /^(.*)\/.*$/)? $1 : '.';
  24   $Shared  = "$Bin/../../cgi-shared";
  25   $Config  = "$Bin/../../cgi-config/forum";
  26   $Script  = ($null =~ /^.*\/(.*)$/)? $1 : $null;
  27
  28 #  my $null = $0; #$null =~ s/\\/\//g; # for win :-(
  29 #  $Bin     = ($null =~ /^(.*)\/.*$/)? $1 : '.';
  30 #  $Config  = "$Bin/../../../cgi-config/devforum";
  31 #  $Shared  = "$Bin/../../../cgi-shared";
  32 #  $Script  = ($null =~ /^.*\/(.*)$/)? $1 : $null;
  33 }
  34
  35 use lib "$Shared";
  36 use CGI::Carp qw(fatalsToBrowser);
  37
  38 use Conf;
  39 use Conf::Admin;
  40 use Template::Archive qw(
  41     print_month_as_HTML
  42     print_thread_as_HTML
  43 );
  44
  45 use CGI qw(param header path_info);
  46
  47 print header(-type => 'text/html');
  48
  49 my $conf = read_script_conf($Config, $Shared, $Script);
  50 my $show = $conf->{'show'};
  51 my $cgi = $show->{'assign'}->{'cgi'};
  52 my $show_archive = $show->{'Archive'};
  53 my $adminDefault = read_admin_conf($conf->{'files'}->{'adminDefault'});
  54
  55 my ($year, $month, $tid, $mid);
  56
  57 # tid is thread id, mid is not used yet
  58 if (my $path_info = path_info()) {
  59     (undef, $year, $month, $tid, $mid) = split "/", $path_info;
  60 } else {
  61     ($year, $month, $tid, $mid) =
  62         (param($cgi->{'year'}), param($cgi->{'month'}), param($cgi->{'thread'}), param($cgi->{'posting'}));
  63 }
  64
  65 if ($year) {
  66     if ($month) {
  67         if ($tid) {
  68             if ($mid) {
  69 #               print_msg_as_HTML();
  70             } else {
  71                 print_thread_as_HTML(
  72                     $conf->{'files'}->{'archivePath'} . $year .'/'. $month .'/t'. $tid . '.xml',
  73                     $show_archive->{'templateFile'},
  74                     {
  75                         'assign'        => $show_archive->{'assign'},
  76                         'adminDefault'  => $adminDefault,
  77                         'cgi'           => $cgi,
  78                         'year'          => $year,
  79                         'month'         => $month,
  80                         'thread'        => $tid,
  81                         'posting'       => $mid,
  82                         'tree'          => $show->{'assign'}->{'thread'}
  83
  84                     }
  85                 );
  86             }
  87         } else {
  88             print_month_as_HTML(
  89                 $conf->{'files'}->{'archivePath'} . $year . '/' . $month . '/' . $conf->{'files'}->{'archiveIndex'},
  90                 $show_archive->{'templateFile'},
  91                 {
  92                     'assign'        => $show_archive->{'assign'},
  93                     'year'          => $year,
  94                     'month'         => $month
  95                 }
  96             );
  97         }
  98     } else {
  99 #       print_year_as_HTML();
 100     }
 101 } else {
 102 #   print_overview_as_HTML();
 103 }
 104
 105 #
 106 #
 107 ### end of fo_view.pl ##########################################################