Package: kwrite
Version: 2.0
Severity: normal
Installed from: Mandrake

Note, if this message is wrapped the way the web form wrapped it, it could be messed up even more.

Instead of trying to describe the problem, here is the text. Paste into kwrite and play around.

Additional instructions:

The first messed up line is $" = '<BR>'  comment that out, and it is better.  But down lower, you can see that it stil does not hightly correctly after the end of the "HERE" document (at END_OF_FORM)

You can see that it does not start highlight correctly until sub send_confirmation_email.  This fragment should show the problem.  If it does not, let me know, and I can send the entire file.

Thanks, here's the fragment.

sub print_signup_form
	{

	#We want to print out the reasons we are reprinting the form...
	if($reprint_reasons[0])
		{
		#$" = '<BR>';
		print '<FONT size="-1" color="red">The following problems were found with your application:<BR>',"\n";
		print "@reprint_reasons\n";
		print '<BR><BR></FONT>', "\n";
		}

	print <<END_OF_FORM; #now, print the form

	To sign up for an account, please enter the requested information in the space provided.<BR>

	<FORM action="signup.cgi" method="post" enctype="application/x-www-form-urlencoded">
		<INPUT TYPE="HIDDEN" NAME="do_what" VALUE="ADD_USER">
		<TABLE>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>User Name:<BR><FONT size="-2">Desired user name.  For student accounts, the URL for<BR> your web page will be www.as.uaf.edu/~username</FONT>  </TD>
   		 <TD valign="top"> <INPUT type="text" name="login" value="$login" size=10 maxlength=16>  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>First Name:  </TD>
	   	 <TD valign="top"><INPUT type="text" name="fname" value="$fname" size=15 maxlength=15>  </TD>
		  </TR>
		  <TR>
   		 <TD align="right"><FONT color="red">*</FONT>Last Name:  </TD>
		    <TD valign="top"><INPUT type="text" name="lname" value="$lname" size=15 maxlength=20>  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>Password:</TD>
   		 <TD valign="top"><INPUT type="password" name="pass1" value="$pass1" size=10 maxlength=10>  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>Reenter Password:  </TD>
	   	 <TD valign="top"><INPUT type="password" name="pass2" value="$pass2" size=10 maxlength=10>  </TD>
		  </TR>
		  <TR>
   		 <TD align="right"><FONT color="red">*</FONT>E-Mail Address:  </TD>
		    <TD valign="top"><INPUT type="text" name="email_address" value="$email_address" size=10 maxlength=50>  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>Aurora ID:<BR><FONT size="-2">Your user id on Aurora</FONT>  </TD>
	   	 <TD valign="top"><INPUT type="text" name="aurora_id" value="$aurora_id" size=10 maxlength=25>  </TD>
		  </TR>
		  <TR>
			 <TD colspan=2> Items with <FONT color="red">*</FONT> are required.<BR>
			 All fields except for e-mail address and password must use only alphanumeric characters.<BR>
			 <INPUT type="submit" value="Sign Up">&nbsp;&nbsp;<INPUT type="reset" value="Clear Form"></TD>
		  </TR>
		</TABLE>
	</FORM>

END_OF_FORM

	}

sub print_confirmation
	{
	print <<END_OF_STUFF;

	Thank you for signing up for Student Web Server/Student Information Center account.<BR><BR>
	We will be sending a confirmation e-mail to <B>$email_address</B> to confirm your e-mail address.  Please follow the instructions contained in that e-mail.<BR><BR>
	If you have any questions, please feel free to e-mail the <A HREF="mailto:webmaster\@as.uaf.edu">webmaster</A>.<BR><BR>
	You may return to the Student Information Center <A HREF="/">home page</A> or follow any of the links at left.

END_OF_STUFF
	}


sub send_confirmation_email
	{
	my $name = "$fname $lname";
	my @message = ( "Welcome to the ASUAF Student Web Server and Student Information Cerver.\n".
			"Your user name is: $login\nYour password is: $pass1\nYour verification key: $key \n",
			"Please keep this information in a safe place.",
			"Thank you for signing up for an account.  To verify your e-mail address,",
			"please click on the link below.\n",
			"http://www.as.uaf.edu/verify.cgi?login=$login&key=$key\n",
			"If that does not work, go to http://www.as.uaf.edu/verify.cgi and enter",
			"your login name and verification key in the form provided.\n",
			"Thank you! We hope you enjoy the Student Information Center.\n",
			"If you did not sign up for an account, you may ignore this message.\n",
			"Sincerely,\n\nThe Management");

	quick_email($name, $email_address, 'Registration Confirmation', 'webmaster@as.uaf.edu', 'Important! Confirm your registration!', @message);

	}


(submitted via bugs.kde.org)