Changeset 13395 for trunk/gsdl/cgi-bin/gliserver.pl

Timestamp:

2006-12-01T13:16:56+13:00 (17 years ago)

Author:

mdewsnip

Message:

(Remote building) Now creates lock files that are compatible with the GLI.

File:

• trunk/gsdl/cgi-bin/gliserver.pl (modified) (2 diffs)

trunk/gsdl/cgi-bin/gliserver.pl

@@ -189 +189 @@
     if (-e $lock_file_name) {
     # A lock file already exists... check if it's ours
+    my $lock_file_content = "";
     open(LOCK_FILE, "<$lock_file_name");
-    my $lock_file_owner = <LOCK_FILE>;
+    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;
 
     # The lock file is ours, so there is no problem
@@ -204 +211 @@
     }
 
-    # Create a lock file for us and we're done
+    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
+    my $current_time = sprintf("%02d/%02d/%d %02d:%02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min, $sec);
+
+    # Create a lock file for us (in the same format as the GLI) and we're done
     open(LOCK_FILE, ">$lock_file_name");
-    print LOCK_FILE "$username";
+    print LOCK_FILE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
+    print LOCK_FILE "<LockFile>\n";
+    print LOCK_FILE "    <User>" . $username . "</User>\n";
+    print LOCK_FILE "    <Machine>(Remote)</Machine>\n";
+    print LOCK_FILE "    <Date>" . $current_time . "</Date>\n";
+    print LOCK_FILE "</LockFile>\n";
     close(LOCK_FILE);
 }