4 use vars qw(@EXPORT_OK @ISA);
7 use CGI::Carp qw(fatalsToBrowser);
10 @EXPORT_OK = qw(header menubar idiot eidiot);
14 FS::CGI - Subroutines for the web interface
18 use FS::CGI qw(header menubar idiot eidiot);
20 print header( 'Title', '' );
21 print header( 'Title', menubar('item', 'URL', ... ) );
23 idiot "error message";
24 eidiot "error message";
28 Provides a few common subroutines for the web interface.
34 =item header TITLE, MENUBAR
36 Returns an HTML header.
41 my($title,$menubar)=@_;
50 <BODY BGCOLOR="#ffffff">
51 <FONT COLOR="#FF0000" SIZE=7>
60 =item menubar ITEM, URL, ...
62 Returns an HTML menubar.
66 sub menubar { #$menubar=menubar('Main Menu', '../', 'Item', 'url', ... );
69 ($item,$url)=splice(@_,0,2);
70 push @html, qq!<A HREF="$url">$item</A>!;
77 Sends headers and an HTML error message.
83 CGI::Base::SendHeaders();
87 <TITLE>Error processing your request</TITLE>
91 <H4>Error processing your request</H4>
93 Your request could not be processed because of the following error:
95 <P>Hit the <I>Back</I> button in your web browser, correct this mistake, and try again.
104 Sends headers and an HTML error message, then exits.
121 Uses CGI-modules instead of CGI.pm
129 subroutines for the HTML/CGI GUI, not properly OO. :(
131 ivan@sisd.com 98-apr-16
132 ivan@sisd.com 98-jun-22
134 lose the background, eidiot ivan@sisd.com 98-sep-2
136 pod ivan@sisd.com 98-sep-12
139 Revision 1.2 1998-11-07 10:24:23 ivan
140 don't use depriciated FS::Bill and FS::Invoice, other miscellania