Fetch From Options Cache

   #++++++++++++++++++++++++++++++++++
   #                                 |
   #   Windows NT script (PERL).     |
   #                                 |
   #++++++++++++++++++++++++++++++++++
   #
   #
   #
   #   fetch the content of file directly from the Central AuthServer to a local file
   #   - out of a sub-folder in the Central Options Cache 
   #

   use Sysgem;

   #
   #   the file path from the Options cache
   #
   my $directory  = "TestFolder";             # name of the subdirectory in the options cache
   my $file       = "TestFile.txt";           # name of the file to read
   my $tempfile   = "";                       # for path to local temporary file

   my $path = $directory . "\\" . $file;

   #
   #   retrieve the file
   #
   my $retval = Sysgem::SEMAuthSvrOptionsCacheFetch($path, $tempfile, $error);

   #
   #   show the path to the local temporary file created
   #
   print "Path to temporary file : [$tempfile]\n\n";

   #
   #   print the content of the file
   #
   if (open TEMPFILE, "< $tempfile")
   {
       my @lines = <TEMPFILE>;
       close TEMPFILE;

       print "-- <Start of temporary file> --\n";

       foreach my $item (@lines) 
       { 
           print "$item"; 
       }

       print "-- <End of temporary file> --\n\n";
   }
   else
   {
       print "can't open temp file [$tempfile]\n";
   }

   #
   #   tidy up
   #
       unlink($tempfile);
       print "Temporary file removed\n";