#!/usr/bin/perl -W
use strict;

#
#  This script implements the last-mile communication with the storage RM.
#  The commands currently specified are:
#
# command: stagetime <DstFileName> <DstURL> <TransferRate>
# returns: <StageTime>[,<DstFileSize]
#    exit: 0=success,1=syntax error,2=unrecognized command
#   notes: The stage time should be reported in seconds until completion.
#          The destination file size is reported in bytes.  Returning zero
#          for the stage time means the staging operation is complete, and
#          a negative one indicates an indefinite stage time.  If an error
#          occurs, nothing is returned and the exit value is set.
#

# Verify existence of command parameter.
exit 1 if scalar(@ARGV) < 1;

# Parse arguments.
my $command      = $ARGV[0];
my $fname        = $ARGV[1];
my $url          = $ARGV[2];
my $transferrate = $ARGV[3];

if ('stagetime' eq $command)
  {
  # Verify existence of filename parameter.
  exit 1 if scalar(@ARGV) < 2;

  my $filesize = (stat($fname))[7];
  my $stagetime = int($transferrate > 0.0 ? ($filesize / $transferrate) + .5 : "-1");

  print $stagetime;
  print ",$filesize" if $filesize;

  # Exit and set error code to success.
  exit 0;
  }

# Exit and set error code to unrecognized command.
exit 2;