Changeset 23089 for main


Ignore:
Timestamp:
2010-10-11T23:26:16+13:00 (14 years ago)
Author:
davidb
Message:

Use of more portable tmp directory

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/cgi-bin/talkback-progressbar.pl

    r23087 r23089  
    167167    $filename =~ s{^(.*)\/}{};
    168168
    169     open(WIN,"</tmp/tmp2/wait.txt");
     169    my $wait_filename = &util::filename_cat($gsdl_tmp_dir,"wait.txt");
     170    open(WIN,"<$wait_filename");
    170171    my $wait = <WIN>;
    171172    close(WIN);
     
    174175    my $wait_dots = "." x ($wait+1);
    175176
    176     open(WOUT,">/tmp/tmp2/wait.txt");
     177    open(WOUT,">$wait_filename");
    177178    print WOUT "$wait\n";
    178179    close(WOUT);
Note: See TracChangeset for help on using the changeset viewer.