Need some help.

Print Thread

Rate Thread

Setting variable sub:

sub set_vars_admin {

%vars_admin = %in;

# write to file!

open (FILE, ">>/home/puremadnezz/cgi-bin/test/variables/vars_admin.cgi") or die("Unable to open vars_admin.cgi file for writing.");
flock(FILE,LOCK_EX);
print FILE qq!%admin_profile = (n!;
print FILE qq!"$vars_admin{'Username'}" => "$vars_admin{'Password'}",n!;
flock(FILE,LOCK_UN);
close (FILE);
chmod(0777, "/home/puremadnezz/cgi-bin/test/variables/vars_admin.cgi");
print "Administrator(s) updated!";

}

When I submit the changes the vars_admin.cgi file looks somthing like:

%admin_profile = (
"Username" => "Password",
"Username" => "Password",
);
1;
"Username" => "Password",

How can I make the...

);
1;

... always stay at the bottom of the file? Can I add somthing like:

flock(FILE,LOCK_EX);
);
1;
flock(FILE,LOCK_EX); ?

Thanks.

[ June 04, 2001 03:28 PM: Message edited by: Cloud ]

Need some help. #102772 06/04/2001 11:36 AM
Joined: Oct 2000 Posts: 192 Winnipeg, MB, Canada Calvin Member
Calvin Member Joined: Oct 2000 Posts: 192 Winnipeg, MB, Canada	I'm making a perl script and on my script there is a control panel and I'm making a part to add administrators. When I submit it completely overwrites the file instead of adding them. Heres what I got. Form part:
	Add Administrator You can add more administrators that you would like to access the control panel. Simply enter a username and passwrd for them	Username: Password:

UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Need some help.