#!/usr/bin/perl 

#************* File Header ******************************
# File Name    : nas_add_new_operation_url_logic.cgi
# Module       : WebInterfaces
# Notes        : Logic page for writing new Oeration URL along with access rules 
#				 into Rules.txt	
# History      : $Date: 26/01/05 12:34 $ $Revision: 3 $
# All Rights Reserved, Copyright (C) 2004, Hitachi, Ltd.
#*********************************************************

use CGI qw/:standard/;

my @dataWrite;
my @dataRead;
my $x;

undef @dataWrite;
undef @dataRead;

open (fileReadWrite,"../Rules1.txt");
my @dataRead = <fileReadWrite>;

foreach my $value1 (@dataRead) {
	push @dataWrite , $value1;
} 


push @dataWrite, "Code1\n";

open(fileOUT,">../Rules1.txt") or dienice("Can't open counter.txt: $!");;
flock(fileOUT,2); 
seek(fileOUT,0,0);

foreach my $value3 (@dataWrite) {
	print fileOUT $value3;
} 

close(fileOUT);

print "Content-type: text/html\n";
print("\n");


###########################################################