4 use vars qw(@EXPORT_OK @ISA);
7 use CGI::Carp qw(fatalsToBrowser);
11 @EXPORT_OK = qw(header menubar idiot eidiot);
15 FS::CGI - Subroutines for the web interface
19 use FS::CGI qw(header menubar idiot eidiot);
21 print header( 'Title', '' );
22 print header( 'Title', menubar('item', 'URL', ... ) );
24 idiot "error message";
25 eidiot "error message";
29 Provides a few common subroutines for the web interface.
35 =item header TITLE, MENUBAR
37 Returns an HTML header.
42 my($title,$menubar)=@_;
51 <BODY BGCOLOR="#ffffff">
52 <FONT COLOR="#FF0000" SIZE=7>
61 =item menubar ITEM, URL, ...
63 Returns an HTML menubar.
67 sub menubar { #$menubar=menubar('Main Menu', '../', 'Item', 'url', ... );
70 ($item,$url)=splice(@_,0,2);
71 push @html, qq!<A HREF="$url">$item</A>!;
78 Sends headers and an HTML error message.
84 my($cgi)=FS::UID::cgi;
85 if ( $cgi->isa('CGI::Base') ) {
87 &CGI::Base::SendHeaders;
94 <TITLE>Error processing your request</TITLE>
98 <H4>Error processing your request</H4>
100 Your request could not be processed because of the following error:
102 <P>Hit the <I>Back</I> button in your web browser, correct this mistake, and try again.
111 Sends headers and an HTML error message, then exits.
134 subroutines for the HTML/CGI GUI, not properly OO. :(
136 ivan@sisd.com 98-apr-16
137 ivan@sisd.com 98-jun-22
139 lose the background, eidiot ivan@sisd.com 98-sep-2
141 pod ivan@sisd.com 98-sep-12
144 Revision 1.6 1998-11-09 05:44:20 ivan
145 *** empty log message ***
147 Revision 1.4 1998/11/09 04:55:42 ivan
148 support depriciated CGI::Base as well as CGI.pm (for now)
150 Revision 1.3 1998/11/08 10:50:19 ivan
151 s/CGI::Base/CGI/; etc.