blob: e1a42ec5921fb45bfd91cd445b9c1ce8158cc50b (
plain)
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
<HTML>
<HEAD>
<TITLE>FS::CGI - Subroutines for the web interface</TITLE>
<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
</HEAD>
<BODY>
<!-- INDEX BEGIN -->
<UL>
<LI><A HREF="#NAME">NAME</A>
<LI><A HREF="#SYNOPSIS">SYNOPSIS</A>
<LI><A HREF="#DESCRIPTION">DESCRIPTION</A>
<LI><A HREF="#SUBROUTINES">SUBROUTINES</A>
<LI><A HREF="#BUGS">BUGS</A>
<LI><A HREF="#SEE_ALSO">SEE ALSO</A>
</UL>
<!-- INDEX END -->
<HR>
<P>
<H1><A NAME="NAME">NAME</A></H1>
<P>
FS::CGI - Subroutines for the web interface
<P>
<HR>
<H1><A NAME="SYNOPSIS">SYNOPSIS</A></H1>
<P>
<PRE> use FS::CGI qw(header menubar idiot eidiot popurl);
</PRE>
<P>
<PRE> print header( 'Title', '' );
print header( 'Title', menubar('item', 'URL', ... ) );
</PRE>
<P>
<PRE> idiot "error message";
eidiot "error message";
</PRE>
<P>
<PRE> $url = popurl; #returns current url
$url = popurl(3); #three levels up
</PRE>
<P>
<HR>
<H1><A NAME="DESCRIPTION">DESCRIPTION</A></H1>
<P>
Provides a few common subroutines for the web interface.
<P>
<HR>
<H1><A NAME="SUBROUTINES">SUBROUTINES</A></H1>
<DL>
<DT><STRONG><A NAME="item_header">header TITLE, MENUBAR</A></STRONG><DD>
<P>
Returns an HTML header.
<DT><STRONG><A NAME="item_menubar">menubar ITEM, URL, ...</A></STRONG><DD>
<P>
Returns an HTML menubar.
<DT><STRONG><A NAME="item_idiot">idiot ERROR</A></STRONG><DD>
<P>
This is depriciated. Don't use it.
<P>
Sends headers and an HTML error message.
<DT><STRONG><A NAME="item_eidiot">eidiot ERROR</A></STRONG><DD>
<P>
This is depriciated. Don't use it.
<P>
Sends headers and an HTML error message, then exits.
<DT><STRONG><A NAME="item_popurl">popurl LEVEL</A></STRONG><DD>
<P>
Returns current URL with LEVEL levels of path removed from the end (default
0).
<DT><STRONG><A NAME="item_table">table</A></STRONG><DD>
<P>
Returns HTML tag for beginning a table.
<DT><STRONG><A NAME="item_itable">itable</A></STRONG><DD>
<P>
Returns HTML tag for beginning an (invisible) table.
<DT><STRONG><A NAME="item_ntable">ntable</A></STRONG><DD>
<P>
This is getting silly.
</DL>
<P>
<HR>
<H1><A NAME="BUGS">BUGS</A></H1>
<P>
Not OO.
<P>
Not complete.
<P>
<HR>
<H1><A NAME="SEE_ALSO">SEE ALSO</A></H1>
<P>
<A HREF=".././FS/CGI.html#">the CGI manpage</A>, <A HREF="../CGI/Base.html">CGI::Base</A>
</BODY>
</HTML>
|