Changeset 11227

Timestamp:

08/18/08 08:11:54 (5 months ago)

Author:

/C=ES/O=Warp Networks S.L./CN=ejhernandez@…

Message:

Fix start script session and added finish script session refs #1103

Location:

branches/remote-services/ebox/src/libexec

Files:

• Makefile.am (modified) (1 diff)
• ebox-finish-script-session (added)
• ebox-start-script-session (modified) (2 diffs)

branches/remote-services/ebox/src/libexec/Makefile.am

@@ -3 +3 @@
 scriptsdir = @DATADIR@/ebox
 
-scripts_SCRIPTS = ebox-loggerd ebox-kill-pid ebox-start-script-session
+scripts_SCRIPTS = ebox-loggerd ebox-kill-pid ebox-start-script-session \
+                  ebox-finish-script-session
 
 MAINTAINERCLEANFILES = Makefile.in

branches/remote-services/ebox/src/libexec/ebox-start-script-session

@@ -1 +1 @@
 #!/usr/bin/perl
 
+use EBox;
 use EBox::Config;
 use Fcntl qw(:flock);
+
+EBox::init();
+
+my $time = time();
+if ( @ARGV > 0 ) {
+    $time = $ARGV[0];
+}
 
 my $sessionFile;
@@ -10 +18 @@
 }
 open ($sessionFile, $openMode, EBox::Config->scriptSession() )
-  die 'Could not open ' . EBox::Config->scriptSession() . ": $!";
+  or die 'Could not open ' . EBox::Config->scriptSession() . ": $!";
 
 # Lock the file in exclusive mode
 flock($sessionFile, LOCK_EX)
-  die 'Could not get the lock for ' . EBox::Config->scriptSession() . ": $!";
+  or die 'Could not get the lock for ' . EBox::Config->scriptSession() . ": $!";
 
 # Truncate the file before writing
 truncate( $sessionFile, 0);
-print $sessionFile time() . $/;
+print $sessionFile "$time$/";
 
 # Release the lock and close the file