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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
NAME
FS::CGI - Subroutines for the web interface
SYNOPSIS
use FS::CGI qw(header menubar idiot eidiot popurl);
print header( 'Title', '' );
print header( 'Title', menubar('item', 'URL', ... ) );
idiot "error message";
eidiot "error message";
$url = popurl; #returns current url
$url = popurl(3); #three levels up
DESCRIPTION
Provides a few common subroutines for the web interface.
SUBROUTINES
header TITLE, MENUBAR
Returns an HTML header.
menubar ITEM, URL, ...
Returns an HTML menubar.
idiot ERROR
This is depriciated. Don't use it.
Sends headers and an HTML error message.
eidiot ERROR
This is depriciated. Don't use it.
Sends headers and an HTML error message, then exits.
popurl LEVEL
Returns current URL with LEVEL levels of path removed from
the end (default 0).
table
Returns HTML tag for beginning a table.
itable
Returns HTML tag for beginning an (invisible) table.
ntable
This is getting silly.
BUGS
Not OO.
Not complete.
SEE ALSO
the CGI manpage, the CGI::Base manpage
HISTORY
subroutines for the HTML/CGI GUI, not properly OO. :(
ivan@sisd.com 98-apr-16 ivan@sisd.com 98-jun-22
lose the background, eidiot ivan@sisd.com 98-sep-2
pod ivan@sisd.com 98-sep-12
$Log: CGI.txt,v $
Revision 1.4 1999-04-08 13:39:31 ivan
convert from pod for 1.2.0 release
Revision 1.17 1999/02/07 09:59:43 ivan more
mod_perl fixes, and bugfixes Peter Wemm sent via email
Revision 1.16 1999/01/25 12:26:05 ivan yet more mod_perl stuff
Revision 1.15 1999/01/18 09:41:48 ivan all $cgi->header calls
now include ( '-expires' => 'now' ) for mod_perl (good idea
anyway)
Revision 1.14 1999/01/18 09:22:37 ivan changes to track email
addresses for email invoicing
Revision 1.12 1998/12/23 02:23:16 ivan popurl always has
trailing slash
Revision 1.11 1998/11/12 07:43:54 ivan *** empty log message ***
Revision 1.10 1998/11/12 01:53:47 ivan added table command
Revision 1.9 1998/11/09 08:51:49 ivan bug squash
Revision 1.7 1998/11/09 06:10:59 ivan added sub url
Revision 1.6 1998/11/09 05:44:20 ivan *** empty log message ***
Revision 1.4 1998/11/09 04:55:42 ivan support depriciated
CGI::Base as well as CGI.pm (for now)
Revision 1.3 1998/11/08 10:50:19 ivan s/CGI::Base/CGI/; etc.
|
