Phoenix.pm: Perl stuuf

Glen G. Walker coyotl at primenet.com
Tue Mar 2 14:59:25 CST 1999


On Tue, 2 Mar 1999, Glen G. Walker wrote:

> $text = $FORM{'text'};
> $action = $FORM{'action'};
> $action = "nada" unless $action;
> 
> if ($action =~ "norm") {
>  	unless (open (TEXT, ">$path/idx.txt")) {
>  		$msg = "(1) Could not open $path/idx.txt";
>  		&mailme;
>  		exit;
>  	}
>  	print TEXT "$text";
>  	close <TEXT>;
> 


Well, apparently, it was the fact that I wrote <TEXT> instead of TEXT in
the close statement.... 

Doh...

Boy, ain't that a peach...

-------------------------------------------------------------------------------
Glen G. Walker,  coyotl at primenet.com
www.primenet.com/~coyotl	
-------------------------------------------------------------------------------




More information about the Phoenix-pm mailing list