root/main/trunk/greenstone2/perllib/webpageutil.pm @ 31877

Revision 15894, 0.5 KB (checked in by mdewsnip, 12 years ago)

Added "use strict" to the files missing it.

  • Property svn:keywords set to Author Date Id Revision
Line 
1package webpageutil;
2
3use ghtml;
4use strict;
5
6sub error_location
7{
8    my ($args,$text) = @_;
9
10    &ghtml::urlsafe($text);
11    my $mess_url = "$args->{'httpbuild'}&bca=mess&head=_headerror_";
12    print "Location: $mess_url&mess=$text\n\n";
13}
14
15sub status_location
16{
17    my ($args,$text,$tmpname,$bc1finished) = @_;
18
19    &ghtml::urlsafe($text);   
20    my $mess_url = "$args->{'httpbuild'}&bca=buildstatus";
21    $mess_url .= "&bc1tmpfilename=$tmpname&bc1finished=$bc1finished";
22    print "Location: $mess_url&mess=$text\n\n";
23}
24
251;
Note: See TracBrowser for help on using the browser.