#!/usr/local/bin/perl
# 
# $Header: cacheSuseBootFiles.pl 10-aug-2007.04:44:27 rattipal Exp $
#
# cacheSuseBootFiles.pl
# 
# Copyright (c) 2007, Oracle. All rights reserved.  
#
#    NAME
#      cacheSuseBootFiles.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)
#    rattipal    08/09/07 - Creation
# 
#
use strict;

my $suse_initrd_dir = shift;
my $bootDir = shift;
print " Printing parameters\n";
print "rpmUrl = $suse_initrd_dir\n";
print "bootDir= $bootDir\n";
system("mv $suse_initrd_dir/initrd* $bootDir");
my $cmd_status = $? >> 8;
if ($cmd_status != 0){
	print "failed to mv the initrd from $suse_initrd_dir to $bootDir\n";
	exit $cmd_status;
}