Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\createJarStream

Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\createJarStream_v2.pl

#!/usr/local/bin/perl
# 
# $Header: emdb/sysman/admin/scripts/createJarStream_v2.pl /st_emdbsa_11.2/1 2009/02/06 23:27:16 hasriniv Exp $
#
# createJarStream_v2.pl
# 
# Copyright (c) 2007, 2009, Oracle and/or its affiliates.All rights reserved. 
#
#    NAME
#      createJarStream_v2.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    hasriniv    12/06/08 - Creation
# 
# 
use strict;

my $jarCmd = shift(@ARGV);
my $metaFile=shift(@ARGV);

my $isWindows=0;
my $os= `ver`;
if($os =~ "Microsoft")
{
  $isWindows = 1; 
}

my $fileSep = "/";
if ($isWindows eq 1)
{
         $fileSep="\\";
}
open(METAFILE, "< $metaFile" ) or die "Can't open $metaFile : $!";
my @metadataarray = ();
while(my $content = <METAFILE> )
{
   chomp($content);
   push(@metadataarray,$content);
}
close(METAFILE);
#process meta data in order
my $numofDestFiles = @metadataarray;
my $jarArg;
my $fname;
for (my $idx=0;$idx <= $numofDestFiles-1; $idx++)
{
    # this array represents sourcefile, dest file and type
    my @metadata=split(";",$metadataarray[$idx]);
    if ($metadata[2] eq 'DIR')
    {
        $fname = $metadata[0];
        my $position = rindex($fname,$fileSep)+1;
        my $dirName = substr($fname,0,$position-1);
        my $fileName = substr($fname,$position);
        $jarArg = $jarArg." -C ".$dirName." $fileName";
    }
    else
    {
      $fname = $metadata[0];
      my $position = rindex($fname,$fileSep)+1;
      my $dirName = substr($fname,0,$position-1);
      my $fileName = substr($fname,$position);
      $jarArg = $jarArg." -C ".$dirName." $fileName";
    }
}#end of for loop
#open STDOUT
open(FILEHANDLE,'>-');
binmode FILEHANDLE;
my $BUFSIZE=32768;

$jarArg = $jarArg." ".$metaFile;
open JAR,"$jarCmd -cM $jarArg |" or die "cant fork:$!";
binmode JAR;
my $data;
my $bytes;
while (($bytes = read(JAR,$data,$BUFSIZE)) > 0)
{
  print FILEHANDLE $data;
}
if ($bytes eq undef)
{
 die "Error reading JAR stream";
}
close JAR or die "Error while grouping file!";
close FILEHANDLE;

#cleanup temp file created.
#unlink($metaFile);

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de