$script = Maasha::Common::get_scriptname();
$pid = Maasha::Common::get_processid();
- $file = "$ENV{ 'BP_TMP' }/" . join( ".", $user, $script, $pid ) . ".status";
+ $file = bp_tmp() . "/" . join( ".", $user, $script, $pid ) . ".status";
$fh = Maasha::Filesys::file_write_open( $file );
flock($fh, 2);
$script = Maasha::Common::get_scriptname();
$pid = Maasha::Common::get_processid();
- $file = "$ENV{ 'BP_TMP' }/" . join( ".", $user, $script, $pid ) . ".status";
+ $file = bp_tmp() . "/" . join( ".", $user, $script, $pid ) . ".status";
return if not -f $file;
my ( $tmpdir, @dirs, $curr_pid, $dir, $user, $sid, $pid );
- $tmpdir = $ENV{ 'BP_TMP' } || Maasha::Common::error( 'No BP_TMP variable in environment.' );
+ $tmpdir = bp_tmp();
$curr_pid = Maasha::Common::get_processid();
my ( $user, $sid, $pid, $script, $path, $file, $fh, $line );
- Maasha::Common::error( qq(no BP_TMP set in %ENV) ) if not -d $ENV{ 'BP_TMP' };
-
$user = Maasha::Common::get_user();
$sid = Maasha::Common::get_sessionid();
$pid = Maasha::Common::get_processid();
$script = Maasha::Common::get_scriptname();
- $path = "$ENV{ 'BP_TMP' }/" . join( "_", $user, $sid, $pid, "bp_tmp" );
- $file = "$ENV{ 'BP_TMP' }/" . join( ".", $user, $script, $pid ) . ".status";
+ $path = bp_tmp() . "/" . join( "_", $user, $sid, $pid, "bp_tmp" );
+ $file = bp_tmp() . "/" . join( ".", $user, $script, $pid ) . ".status";
$fh = Maasha::Filesys::file_read_open( $file );
flock($fh, 1);
}
}
+sub bp_tmp
+{
+ # Martin A. Hansen, March 2013.
+
+ # Returns the BP_TMP path.
+ # Errs if no BP_TMP in ENV and
+ # creates BP_TMP if it doesn't exists.
+
+ my ( $path );
+
+ Maasha::Common::error( qq(no BP_TMP set in %ENV) ) if not -d $ENV{ 'BP_TMP' };
+
+ $path = $ENV{ 'BP_TMP' };
+
+ unless ( -d $path ) { # No BP_TMP so we create it
+ mkdir $path or die qq(failed to create dir "$path": $!);
+ }
+
+ return $path;
+}
END
{