Changeset 1181 for trunk/gsdl/cgi-bin/webpage_buildcol.pl
- Timestamp:
- 2000-05-23T00:26:44+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/cgi-bin/webpage_buildcol.pl
r1175 r1181 32 32 # an already running cgi program. 33 33 34 use Fcntl ':flock';35 34 use File::Basename; 36 35 use GSDLHOME; 36 use gflock; 37 37 38 38 my $args; … … 61 61 if (open(TMPOUT,">$full_tmpname")) 62 62 { 63 if (flock(TMPOUT,LOCK_EX)) 64 { 63 if (&gflock::lock (TMPOUT)) { 65 64 print TMPOUT $text; 66 65 close(TMPOUT); 67 flock(TMPOUT,LOCK_UN); 68 } 69 else 70 { 66 &gflock::unlock (TMPOUT); 67 68 } else { 71 69 # Problem locking file 72 70 my $mess = "Unable to lock temporary communication file:"; … … 171 169 } 172 170 173 if ( $copy_dir =~ /^no$/i)171 if ((defined $copy_dir) && ($copy_dir =~ /^no$/i)) 174 172 { 175 173 # link it
Note:
See TracChangeset
for help on using the changeset viewer.