Changeset 23089 for main/trunk/greenstone2/cgi-bin/talkback-progressbar.pl
- Timestamp:
- 2010-10-11T23:26:16+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/talkback-progressbar.pl
r23087 r23089 167 167 $filename =~ s{^(.*)\/}{}; 168 168 169 open(WIN,"</tmp/tmp2/wait.txt"); 169 my $wait_filename = &util::filename_cat($gsdl_tmp_dir,"wait.txt"); 170 open(WIN,"<$wait_filename"); 170 171 my $wait = <WIN>; 171 172 close(WIN); … … 174 175 my $wait_dots = "." x ($wait+1); 175 176 176 open(WOUT,"> /tmp/tmp2/wait.txt");177 open(WOUT,">$wait_filename"); 177 178 print WOUT "$wait\n"; 178 179 close(WOUT);
Note:
See TracChangeset
for help on using the changeset viewer.