Changeset 763 for trunk


Ignore:
Timestamp:
Oct 29, 2015, 3:47:19 PM (4 years ago)
Author:
Nick Burch
Message:

Fix for CGI modules in Perl 5.20, along the same lines as the Munin did in 9fabbe79671de2ab6b82c9319e69fb7f6878e921

Location:
trunk/npemap.org.uk/cgi
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/cgi/geocoder.fcgi

    r685 r763  
    223223        # Render
    224224        if($output eq "xml") {
    225                 print header("text/xml");
     225                print CGI::header("text/xml");
    226226                print "<?xml version='1.0'?>\n";
    227227                print "<geocoder>\n";
  • trunk/npemap.org.uk/cgi/get-distant-postcodes.fcgi

    r635 r763  
    128128sub print_err {
    129129    my $err = shift;
    130     print header("text/plain", "400 $err");
     130    print CGI::header("text/plain", "400 $err");
    131131    print "Error: $err\n";
    132132}
     
    134134sub print_internal_err {
    135135    my $err = shift;
    136     print header("text/plain", "500 $err");
     136    print CGI::header("text/plain", "500 $err");
    137137    print "Error: $err\n";
    138138}
  • trunk/npemap.org.uk/cgi/get-meta.fcgi

    r676 r763  
    142142        # Render
    143143        if($output eq "xml") {
    144                 print header("text/xml");
     144                print CGI::header("text/xml");
    145145                print "<?xml version='1.0'?>\n";
    146146                print "<metadata>\n";
     
    168168                print "</metadata>\n";
    169169        } elsif ($output eq "js") {
    170                 print header("text/javascript");
     170                print CGI::header("text/javascript");
    171171
    172172                if(defined $cgi->param("callback")) {
     
    196196                print "\n";
    197197    } else {
    198                 print header("text/plain");
     198                print CGI::header("text/plain");
    199199                print "# Easting,Northing,Sheet,Year,Legend\n";
    200200
     
    220220sub print_err {
    221221    my $err = shift;
    222     print header("text/plain", "400 $err");
     222    print CGI::header("text/plain", "400 $err");
    223223    print "Error: $err\n";
    224224}
     
    226226sub print_internal_err {
    227227    my $err = shift;
    228     print header("text/plain", "500 $err");
     228    print CGI::header("text/plain", "500 $err");
    229229    print "Error: $err\n";
    230230}
  • trunk/npemap.org.uk/cgi/get-postcodes.fcgi

    r635 r763  
    126126sub print_err {
    127127    my $err = shift;
    128     print header("text/plain", "400 $err");
     128    print CGI::header("text/plain", "400 $err");
    129129    print "Error: $err\n";
    130130}
     
    132132sub print_internal_err {
    133133    my $err = shift;
    134     print header("text/plain", "500 $err");
     134    print CGI::header("text/plain", "500 $err");
    135135    print "Error: $err\n";
    136136}
  • trunk/npemap.org.uk/cgi/get-reports.fcgi

    r635 r763  
    152152sub print_err {
    153153    my $err = shift;
    154     print header("text/plain", "400 $err");
     154    print CGI::header("text/plain", "400 $err");
    155155    print "Error: $err\n";
    156156}
     
    158158sub print_internal_err {
    159159    my $err = shift;
    160     print header("text/plain", "500 $err");
     160    print CGI::header("text/plain", "500 $err");
    161161    print "Error: $err\n";
    162162}
Note: See TracChangeset for help on using the changeset viewer.