Ignore:
Timestamp:
2000-07-13T10:21:53+12:00 (24 years ago)
Author:
sjboddie
Message:

merged changes to trunk into New_Config_Format branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/New_Config_Format-branch/gsdl/cgi-bin/webpage_buildstatus.pl

    r724 r1279  
    1 #!/usr/local/bin/perl5 -w
     1#!perl -w
    22
    33###########################################################################
    … …  
    3131use CGI;
    3232use GSDLHOME;
    33 use Fcntl ':flock';
    3433
    3534require util;
    … …  
    6665    }
    6766
    68     my $full_tmpname
    69     = &util::filename_cat($ENV{'GSDLHOME'},"tmp",$tmpname);
     67    my $full_tmpname = &util::filename_cat($ENV{'GSDLHOME'},"tmp");
     68
     69    if (!-d $full_tmpname) {
     70    mkdir ($full_tmpname, 0777);
     71    }
     72
     73    $full_tmpname = &util::filename_cat($full_tmpname, $tmpname);
    7074
    7175    if (open(TMPIN,"<$full_tmpname"))
    … …  
    8185    $bc1finished = 1 if ($mess eq "Done");
    8286    $bc1finished = -1 if ($mess =~ m/^Error:/);
     87    # escape backslashes so they don't vanish from printed filenames
     88    $mess =~ s/\\/\\\\/g;
    8389    &webpageutil::status_location($args,$mess,$tmpname,$bc1finished);
    8490
    … …  
    96102
    97103&main();
    98 
    99 
    100 
    101 
    102 
Note: See TracChangeset for help on using the changeset viewer.