Changeset 21715 for main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

Timestamp:

2010-02-04T13:04:56+13:00 (14 years ago)

Author:

mdewsnip

Message:

Adding some comments and error checking. By Jeffrey Ke.

File:

• main/trunk/greenstone2/perllib/cgiactions/baseaction.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -370 +370 @@
 
 
+# Release the gli.lck otherwise no one else will be able to use the collection again.
+sub unlock_collection
+{
+    my $self = shift @_;
+    my ($username, $collection) = @_;
+    my $gsdl_cgi = $self->{'gsdl_cgi'};
+
+    # Obtain the path to the collection GLI lock file
+    my $lock_file_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "gli.lck");
+
+    # If the lock file does exist, check if it is ours
+    if (-e $lock_file_path)
+    {
+    my $lock_file_content = "";
+    open(LOCK_FILE, "<$lock_file_path");
+    while (<LOCK_FILE>) {
+        $lock_file_content .= $_;
+    }
+    close(LOCK_FILE);
+
+    # Pick out the owner of the lock file
+    $lock_file_content =~ /\<User\>(.*?)\<\/User\>/;
+    my $lock_file_owner = $1;
+
+    # If we are the owner of this lock, we have the right to delete it
+    if ($lock_file_owner eq $username) {
+            unlink($lock_file_path );
+    }
+        else {
+        $gsdl_cgi->generate_error("Collection is locked by: $lock_file_owner. Cannot be unlocked");
+        }
+    }
+}
+
+
 sub send_mail
 {