1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: authors.pl,v 1.4.2.4 2001/09/28 22:07:38 brian Exp $
use strict;
use Slash;
use Slash::Display;
use Slash::Utility;
sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $form = getCurrentForm();
my $section = $slashdb->getSection($form->{section});
my $list = $slashdb->getAuthorDescription();
header("$constants->{sitename}: Authors", $section->{section});
slashDisplay('main', {
list => $list,
title => "The Authors",
admin => getCurrentUser('seclev') >= 1000,
'time' => timeCalc(scalar localtime),
});
footer($form->{ssi});
}
createEnvironment();
main();
|
