git.p6c8.net
/
selfforum.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added and fixed version check(s)
[selfforum.git]
/
selfforum-cgi
/
user
/
fo_arcview.pl
diff --git
a/selfforum-cgi/user/fo_arcview.pl
b/selfforum-cgi/user/fo_arcview.pl
index 095ad4d4828ff0d7ad21cd3ce6aa7c9358010bb5..073f3f3997f0b1e774815d4551307f86e354740b 100644
(file)
--- a/
selfforum-cgi/user/fo_arcview.pl
+++ b/
selfforum-cgi/user/fo_arcview.pl
@@
-16,6
+16,7
@@
use vars qw(
$Shared
$Script
$Config
$Shared
$Script
$Config
+ $VERSION
);
BEGIN {
);
BEGIN {
@@
-25,25
+26,35
@@
BEGIN {
$Config = "$Bin/../../cgi-config/forum";
$Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
$Config = "$Bin/../../cgi-config/forum";
$Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
-# my $null = $0;
#$null =~ s/\\/\//g; # for win :-(
+# my $null = $0;
# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.';
# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.';
-# $Config = "$Bin/../../
../cgi-config/devforum
";
-# $Shared = "$Bin/../../
../
cgi-shared";
+# $Config = "$Bin/../../
daten/forum/config
";
+# $Shared = "$Bin/../../cgi-shared";
# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
}
# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
}
+# setting umask, remove or comment it, if you don't need
+#
+umask 006;
+
use lib "$Shared";
use CGI::Carp qw(fatalsToBrowser);
use Conf;
use Conf::Admin;
use Template::Archive qw(
use lib "$Shared";
use CGI::Carp qw(fatalsToBrowser);
use Conf;
use Conf::Admin;
use Template::Archive qw(
+ print_overview_as_HTML
+ print_year_as_HTML
print_month_as_HTML
print_thread_as_HTML
);
use CGI qw(param header path_info);
print_month_as_HTML
print_thread_as_HTML
);
use CGI qw(param header path_info);
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
print header(-type => 'text/html');
my $conf = read_script_conf($Config, $Shared, $Script);
print header(-type => 'text/html');
my $conf = read_script_conf($Config, $Shared, $Script);
@@
-96,12
+107,25
@@
if ($year) {
);
}
} else {
);
}
} else {
-# print_year_as_HTML();
+ print_year_as_HTML(
+ $conf->{'files'}->{'archivePath'} . $year . '/',
+ $show_archive->{'templateFile'},
+ {
+ 'assign' => $show_archive->{'assign'},
+ 'year' => $year
+ }
+ );
}
} else {
}
} else {
-# print_overview_as_HTML();
+ print_overview_as_HTML(
+ $conf->{'files'}->{'archivePath'},
+ $show_archive->{'templateFile'},
+ {
+ 'assign' => $show_archive->{'assign'}
+ }
+ );
}
#
#
}
#
#
-### end of fo_view.pl ##########################################################
+### end of fo_view.pl ##########################################################
\ No newline at end of file
patrick-canterino.de