#!/usr/bin/perl
use strict;
use Fcntl;
use File::Basename;
print "Deploy adaptations (y/n)?\n";
$s=<STDIN>;
chomp ($s);
if ($s eq 'y'){
print "Please enter apadtation path\n";
$path=<>;
chomp($path);
@files = <$path/*.zip>;
foreach $file (@files) {
$base=basename($file);
print "$base\n";
 }
}
my @user;

do{
print "Select adaptations to be deployed\n";
$userinput = <STDIN>;
chomp($userinput);
push(@user ,"$userinput");
print "Select more adaptations ? (y/n)\n";
$result=<STDIN>;
chomp ($result);
}while ($result eq 'y'); 
#print "@user\n";
foreach (@user){
print "Hello\n";
}
print "Enter number of objects to be created\n";
$a =<STDIN>;
chomp ($a);
print "Enter the name of Managed object\n";
$m =<STDIN>;
chomp ($m);
print "Do you want child objects to be created?(y/n)\n";
$r=<STDIN>;
chomp ($r);
if ($r eq 'y') {
				print "Enter number of child objects present under parent DN\n";
				$b =<STDIN>;#children hiearchy
				chomp ($b);
			   }
my ($ext)=0;
#$file_count=0;
while ($a >=1) {

sysopen (FILE,"/opt/robot/testcases/gep/tools/sample_$file_count++.xml", O_RDWR|O_EXCL|O_CREAT,0755);
printf FILE qq(<?xml version="1.0" encoding="UTF-8"?>\n);
printf FILE qq(<!--DOCTYPE raml SYSTEM "ocos20.dtd"-->\n);
printf FILE qq (<ocos version="2.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation='ocos20.xsd'>\n);
printf FILE qq (<!--ocos version="2.0" xmlns="ocos20.xsd"-->\n);
printf FILE qq(<cmData type="actual" scope="changes">\n);
#printf FILE qq (<managedObject class="PLMN" version="1" operation="create" distName="PLMN-$a"/>\n);
#printf FILE qq (</managedObject>\n);
$linecount=0;
do
{

	if ($b==1) {
                              printf FILE qq (<managedObject class="$m" version="1" operation="create" distName="$m-$a"/>\n);
                              printf FILE qq (<managedObject class="PLMN" version="1" operation="create" distName="PLMN-$a"/>\n);
                              printf FILE qq (</managedObject>\n);
				  printf FILE qq (<managedObject class="GPBB" version="1" operation="create" distName="$m-$m/GPBB-$a">\n);
				  printf FILE qq (</managedObject>\n);
				}
				elsif($b==2){
                                                 printf FILE qq (<managedObject class="$m" version="1" operation="create" distName="$m-$a"/>\n);
							printf FILE qq (<managedObject class="GPBB" version="1" operation="create" distName="$m-$a/GPBB-$a">\n);
							printf FILE qq (</managedObject>\n);
							printf FILE qq (<managedObject class="GPST" version="1" operation="create" distName="$m-$a/GPBB-$a/GPST-$a">\n);
							printf FILE qq (</managedObject>\n);
							}
							elsif($b==3){
                                                                      printf FILE qq (<managedObject class="$m" version="1" operation="create" distName="$m-$a"/>\n);
										printf FILE qq (<managedObject class="GPBB" version="1" operation="create" distName="$m-$a/GPBB-$a">\n);
										printf FILE qq (</managedObject>\n);
										printf FILE qq (<managedObject class="GPST" version="1" operation="create" distName="$m-$a/GPBB-$a/GPST-$a">\n);
										printf FILE qq (</managedObject>\n);
										printf FILE qq (<managedObject class="GGSN" version="6.0" operation="create" distName="$m-$a/GPBB-$a/GPST-$a/GGSN-$a">\n);
										printf FILE qq (</managedObject>\n);
										
										}
										
 $linecount= system ("wc -l < sample_$file_count++.xml");
}while ($linecount <=100);
                                                                      
printf FILE qq (</cmData>\n);
printf FILE qq (</ocos>\n);
close (FILE);
$a--;
}