Changeset 1279 for branches/New_Config_Format-branch/gsdl/cgi-bin/webpage_editcol.pl

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/cgi-bin/webpage_editcol.pl (modified) (3 diffs)

branches/New_Config_Format-branch/gsdl/cgi-bin/webpage_editcol.pl

@@ -1 @@
-#!/usr/local/bin/perl5 -w
+#!perl -w
 
 ###########################################################################
@@ -28 +28 @@
 # This program is a webpage wrapper for saving an edited config file
 
+package webpage_editcol;
+
 use CGI;
 use GSDLHOME;
-use Fcntl ':flock';
+use gflock;
 
 require util;
@@ -70 +72 @@
     if (open(CFGOUT,">$cfg_filename"))
     {
-    if (flock(CFGOUT,LOCK_EX))
-    {
+    if (&gflock::lock (webpage_editcol::CFGOUT)) {
         my $cfg_text = $args->{'bc1cfgfile'};
         print CFGOUT "$cfg_text";
-        flock(CFGOUT,LOCK_UN);
+        &gflock::unlock (webpage_editcol::CFGOUT);
         close(CFGOUT);
     }