Orpheus — Sat, 26 Aug 2000 18:03:23 +0000

*bows*

Edge — Sat, 26 Aug 2000 15:20:03 +0000

Your code worked, Orpheus! Thanks!!!!!! Sorry it took so long to figure out such a simple problem, guys. Thanks to both of your for your help!

--Edge

uh oh..

Mark Hensler — Sat, 26 Aug 2000 06:26:10 +0000

I copied and pasted from the first post, and forgot to change ' to "

also, this is kinda sloppy with the memory, if you can get the splice to work, that would be better.

Mark Hensler — Sat, 26 Aug 2000 06:24:00 +0000

try something other than splice...

$file = '$data_path/categories.txt';
$line = $FORM{'category'};
$line--;
	open(IN,"<$file");
	@array = <IN>;
	close(IN); 

$count = "0";
foreach $thing (@array) {
unless ($count == $line) {
push(@New, $thing);
}
$count++;
}

	open(IN,">$file");
	print IN @New;
	close(IN);

Orpheus — Sat, 26 Aug 2000 06:03:41 +0000

Use the code I posted earlier in the thread.

splice DOES NOT use pattern matching when it deletes.

Edge — Sat, 26 Aug 2000 00:47:13 +0000

Great! Now we're making some progress. I did what you told me and changed it to:
$file = "$data_path/categories.txt";

Then, it deleted every file EXCEPT the one I was trying to delete. Then I changed it from:
@array = splice(@array,$line,1);
to:
@array = splice(@array,$line,0);

Then it deleted all the lines. Before, it wouldn't do anything.

--Edge

Edge — Fri, 25 Aug 2000 23:27:31 +0000

As far as I know, it does the same thing as doing it this way:

sub delcat {
open(DATA, "$data_path/categories.txt");
	if ($flock eq "y") {
		flock DATA, 2; 
	}
@data = <DATA>;
close(DATA);
foreach $line (@data) {
  ($catnum, $catname, $blabla) = split(/\|/, $line);
  if ($catnum eq $FORM{'category'}) {

print <<TAGS;
<FORM ACTION="admin.cgi" METHOD="post">
<INPUT TYPE="hidden" NAME="action" VALUE="delete">
<INPUT TYPE="hidden" NAME="delete" VALUE="category">
<INPUT TYPE="hidden" NAME="category" VALUE="$FORM{'category'}">
<INPUT TYPE="hidden" NAME="password" VALUE="$FORM{'password'}"> 
<TABLE WIDTH="100%" CELLPADDING="3" CELLSPACING="1" BORDER="0">
<TR>
<TD COLSPAN="2" BGCOLOR="#e8e8e8"> <FONT SIZE="2" FACE="Verdana"> <B>Delete
Category</B></FONT></TD>
</TR>
<TR>
<TD COLSPAN="2" BGCOLOR="#f8f8f8" ALIGN="LEFT"><FONT SIZE="2" FACE="Verdana"><B>Are you sure you want to delete $catname?</B></FONT><BR>
<CENTER>
<INPUT TYPE="submit" VALUE="  Yes  "> 
</CENTER>
</TD>
</TR>
<TR>
</TR>
</TABLE>
</FORM>
TAGS
}
}
}

Maybe someone else can offer a better explanation.

--Edge

Mark Hensler — Fri, 25 Aug 2000 18:36:40 +0000

one thing that was wrong... In your original code you had:
$file = '$data_path/categories.txt';
it should be:
$file = "$data_path/categories.txt";

question... What does this do:
if ($catnum eq $FORM{'category'}) { last }

Edge — Fri, 25 Aug 2000 17:27:29 +0000

Okay, here are the subs that interact with it:

sub delcat {
open(DATA, "$data_path/categories.txt");
	if ($flock eq "y") {
		flock DATA, 2; 
	}
@data = <DATA>;
close(DATA);
foreach $line (@data) {
  ($catnum, $catname, $blabla) = split(/\|/, $line);
  if ($catnum eq $FORM{'category'}) { last }
}
print <<TAGS;
<FORM ACTION="admin.cgi" METHOD="post">
<INPUT TYPE="hidden" NAME="action" VALUE="delete">
<INPUT TYPE="hidden" NAME="delete" VALUE="category">
<INPUT TYPE="hidden" NAME="category" VALUE="$FORM{'category'}">
<INPUT TYPE="hidden" NAME="password" VALUE="$FORM{'password'}"> 
<TABLE WIDTH="100%" CELLPADDING="3" CELLSPACING="1" BORDER="0">
<TR>
<TD COLSPAN="2" BGCOLOR="#e8e8e8"> <FONT SIZE="2" FACE="Verdana"> <B>Delete
Category</B></FONT></TD>
</TR>
<TR>
<TD COLSPAN="2" BGCOLOR="#f8f8f8" ALIGN="LEFT"><FONT SIZE="2" FACE="Verdana"><B>Are you sure you want to delete $catname?</B></FONT><BR>
<CENTER>
<INPUT TYPE="submit" VALUE="  Yes  "> 
</CENTER>
</TD>
</TR>
<TR>
</TR>
</TABLE>
</FORM>
TAGS
}

sub viewcats {
open(DATA, "$data_path/categories.txt");
	if ($flock eq "y") {
		flock DATA, 2; 
	}
@data = <DATA>;
close(DATA);
print <<TAGS;
<TABLE WIDTH="100%" CELLPADDING="3" CELLSPACING="1" BORDER="0">
<TR>
<TD COLSPAN="2" BGCOLOR="#e8e8e8"> <FONT SIZE="2" FACE="Verdana">
<B>Categories</B></FONT></TD>
</TR>
<TR>
</TR>
<TR>
<TD COLSPAN="2"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="3" CELLSPACING="1">
TAGS

foreach $line (@data) {
  ($catnum, $catname, $blabla) = split(/\|/, $line);
print <<TAGS;
<TR BGCOLOR="#f8f8f8">
<TD WIDTH="50%" VALIGN="TOP" ALIGN="LEFT"><FONT SIZE="2" FACE="Verdana"><B>$catname</B></FONT></TD>
<TD VALIGN="MIDDLE" ALIGN="LEFT"><FORM ACTION="admin.cgi" METHOD="post">
<INPUT TYPE="hidden" NAME="action" VALUE="viewcoupons"><INPUT TYPE="hidden" NAME="category" VALUE="$catnum"><INPUT TYPE="hidden" NAME="password" VALUE="$FORM{'password'}"><INPUT TYPE="SUBMIT" VALUE="View"> 
</FORM>
</TD>
<TD VALIGN="MIDDLE" ALIGN="LEFT"><FORM ACTION="admin.cgi" METHOD="post">
<INPUT TYPE="hidden" NAME="action" VALUE="edit"><INPUT TYPE="hidden" NAME="category" VALUE="$catnum"><INPUT TYPE="hidden" NAME="password" VALUE="$FORM{'password'}"><INPUT TYPE="SUBMIT" VALUE="Edit"> 
</FORM>
</TD>
<TD VALIGN="MIDDLE" ALIGN="LEFT"><FORM ACTION="admin.cgi" METHOD="post">
<INPUT TYPE="hidden" NAME="action" VALUE="delcat"><INPUT TYPE="hidden" NAME="category" VALUE="$catnum"><INPUT TYPE="hidden" NAME="password" VALUE="$FORM{'password'}"><INPUT TYPE="SUBMIT" VALUE="Delete"> 
</FORM>
</TD>
</TR>
TAGS
}

print <<TAGS;
</TABLE>
</TD>
</TR>
</TABLE>
TAGS
}

--Edge

Orpheus — Fri, 25 Aug 2000 16:49:02 +0000

Just post the code that intereacts with that block you posted above. The stuff I pasted SHOULD work because i've used it in a guestbook before.