#========== CHECK IF USER EXISTS & OR TRYING TO REGISTER MORE THAN ONC
+E ========
local *STDERR = *STDOUT;
$! = 0;

$select = $db->prepare( "SELECT username, DATE_FORMAT(date, '%d %b, %H
+:%i') AS f_date FROM users WHERE username = ?" );
$select->execute( $username );
$row = $select->fetchrow_hashref;
die( h1( {class=>'cyan'}, "&#924;&#945; &#949;&#943;&#963;&#945;&#953;
+ &#942;&#948;&#951; &#956;&#941;&#955;&#959;&#962; $row->{username}! 
+&#928;&#961;&#945;&#947;&#956;&#945;&#964;&#959;&#960;&#959;&#943;&#9
+51;&#963;&#949;&#962; &#949;&#947;&#947;&#961;&#945;&#966;&#942; &#96
+3;&#964;&#953;&#962; $row->{f_date}." ))  if( $select->rows );

$select = $db->prepare( "SELECT username FROM users WHERE host = ?" );
$select->execute( $host );
$row = $select->fetchrow_hashref;
die( h1( {class=>'cyan'}, "&#922;&#972;&#966;&#964;&#959; $row->{usern
+ame}! &#924;&#951;&#957; &#960;&#961;&#959;&#963;&#960;&#945;&#952;&#
+949;&#943;&#962; &#957;&#945; &#954;&#940;&#957;&#949;&#953;&#962; &#
+960;&#959;&#955;&#955;&#941;&#962; &#949;&#947;&#947;&#961;&#945;&#96
+6;&#941;&#962; &#956;&#949; &#948;&#953;&#945;&#966;&#959;&#961;&#949
+;&#964;&#953;&#954;&#940; o&#957;&#972;&#956;&#945;&#964;&#945;!" )) 
+ if( $select->rows );
[download]

I liek the approach you mentioned ikegami, thank you but:

Software error:

Μα είσαι ήδη μέλος marmel13! Πραγματοποίησες εγγραφή στις 25 Apr, 01:16.

at D:\www\cgi-bin\register.pl line 74. For help, please send mail to the webmaster (nikos1337@gmail.com), giving this error message and the time and date of the error. Sat Apr 28 13:05:09 2007 register.pl: Μα είσαι ήδη μέλος marmel13! Πραγματοποίησες εγγραφή στις 25 Apr, 01:16.

Iam getting both the error that i want to print colored which is good but the software error above....

Comment on Re^2: Merge 2 lines in 1 die statement Download Code

Replies are listed 'Best First'.
Re^3: Merge 2 lines in 1 die statement by rhesa (Vicar) on Apr 28, 2007 at 13:35 UTC
die not only exits your program, it also sets a non-zero return code. Your webserver sees that, and concludes there was an error in your program. Either use ikegami's hint of setting `$!=0`, or do the sensible thing and use `exit`.	[reply] [d/l] [select]