[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-bugs-dist
Subject:    Bug#16325: Serious bug in perl highlighting
From:       isd () as ! uaf ! edu
Date:       2000-11-30 20:11:13
[Download RAW message or body]

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 maxlength>  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>First Name:  </TD>
	   	 <TD valign="top"><INPUT type="text" name="fname" value="$fname" size maxlength>  </TD>
		  </TR>
		  <TR>
   		 <TD align="right"><FONT color="red">*</FONT>Last Name:  </TD>
		    <TD valign="top"><INPUT type="text" name="lname" value="$lname" size maxlength >  </TD>
		  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>Password:</TD>
   		 <TD valign="top"><INPUT type="password" name="pass1" value="$pass1" size maxlength>  \
</TD>  </TR>
		  <TR>
	   	 <TD align="right"><FONT color="red">*</FONT>Reenter Password:  </TD>
	   	 <TD valign="top"><INPUT type="password" name="pass2" value="$pass2" size maxlength>  \
</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 \
maxlengthP>  </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 maxlength%> \
</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)


[prev in list] [next in list] [prev in thread] [next in thread]