X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/25784c0f4cca98b8d646fb450df866758a531f44..c6b8e3075d2fd6cd5ef345aa686a68cc899eb5fe:/selfforum-cgi/user/fo_view.pl?ds=sidebyside diff --git a/selfforum-cgi/user/fo_view.pl b/selfforum-cgi/user/fo_view.pl index f92d376..bc9190f 100644 --- a/selfforum-cgi/user/fo_view.pl +++ b/selfforum-cgi/user/fo_view.pl @@ -1,13 +1,36 @@ -#!/usr/bin/perl +#!/usr/bin/perl -w + +################################################################################ +# # +# File: user/fo_view.pl # +# # +# Authors: André Malo , 2001-04-01 # +# # +# Description: display the forum main file or a single posting # +# # +################################################################################ use strict; - -use vars qw($Bin $Shared $Script $t0); +use vars qw( + $Bin + $Shared + $Script + $Config +); BEGIN { - ($Bin) = ($0 =~ /^(.*)\/.*$/)? $1 : '.'; - $Shared = "$Bin/../shared"; - ($Script) = ($0 =~ /^.*\/(.*)$/)? $1 : $0;} + my $null = $0; $null =~ s/\\/\//g; # for win :-( + $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; + $Shared = "$Bin/../shared"; + $Config = "$Bin/config"; + $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; + +# my $null = $0; #$null =~ s/\\/\//g; # for win :-( +# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; +# $Config = "$Bin/../../../cgi-config/devforum"; +# $Shared = "$Bin/../../../cgi-shared"; +# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; +} use lib "$Shared"; use CGI::Carp qw(fatalsToBrowser); @@ -21,45 +44,50 @@ use CGI qw(param header); print header(-type => 'text/html'); -my $conf = read_script_conf ($Bin, $Shared, $Script); - -$conf -> {wwwRoot} = 'i:/i_selfhtml/htdocs' unless ($ENV{GATEWAY_INTERFACE} =~ /CGI/); +my $conf = read_script_conf ($Config, $Shared, $Script); my $show = $conf -> {show}; my $show_forum = $show -> {Forum}; my $show_posting = $show -> {Posting}; my $cgi = $show -> {assign} -> {cgi}; my $tree = $show -> {assign} -> {thread}; -my $adminDefault = read_admin_conf ("$Bin/".$conf -> {files} -> {adminDefault}); +my $adminDefault = read_admin_conf ($conf -> {files} -> {adminDefault}); -my $forum_file = $conf -> {wwwRoot}.$conf -> {files} -> {forum}; -my $message_path = $conf -> {wwwRoot}.$conf -> {files} -> {messagePath}; - -#use Lock qw(:ALL);release_file(forum_file);die; +my $forum_file = $conf -> {files} -> {forum}; +my $message_path = $conf -> {files} -> {messagePath}; my ($tid, $mid) = (param ($cgi -> {thread}), param ($cgi -> {posting})); if (defined ($tid) and defined ($mid)) { - print_posting_as_HTML ($message_path, - "$Bin/".$show_posting -> {templateFile}, - {assign => $show_posting -> {assign}, - thread => $tid, - posting => $mid, - adminDefault => $adminDefault, - messages => $show_posting -> {messages}, - form => $show_posting -> {form}, - cgi => $cgi, - tree => $tree - });} + print_posting_as_HTML ( + $message_path, + $show_posting -> {templateFile}, + { assign => $show_posting -> {assign}, + thread => $tid, + posting => $mid, + adminDefault => $adminDefault, + messages => $conf -> {template} -> {messages}, + form => $show_posting -> {form}, + cgi => $cgi, + tree => $tree, + firsttime => 1, + cachepath => $conf -> {files} -> {cachePath} + } + ); +} else { - print_forum_as_HTML ($forum_file, - "$Bin/".$show_forum -> {templateFile}, - {assign => $show_forum -> {assign}, - adminDefault => $adminDefault, - cgi => $cgi, - tree => $tree - });} - -print "t1 "; -# eos \ No newline at end of file + print_forum_as_HTML ( + $forum_file, + $show_forum -> {templateFile}, + { assign => $show_forum -> {assign}, + adminDefault => $adminDefault, + cgi => $cgi, + tree => $tree + } + ); +} + +# +# +### end of fo_view.pl ########################################################## \ No newline at end of file