سوال و جواب ها با برچسب بانک های سویس

 # Perl script:
 
 
 
 use Encode;
 
 
 
 $firstName = encode("iso-8859-1", $query->param('firstName'));
 
 
 
 $lastName = encode("iso-8859-1", $query->param('lastName'));
 
 
 
 $userName = lc 
 
 $query->param('firstName').".".$query->param('lastName');
 
 
 
 $password = $query->param('password');
 
 
 
 $sqlNewUser = "INSERT INTO TODO_USERS (FIRST_NAME,LAST_NAME,USER_NAME,PASSWORD) VALUES('".$firstName."','".$lastName."','$userName','$password');";
 
 
 
 if (! $db->Sql($sqlNewUser)){
 
 
 
 }else{
 
 	print $db->Error();		
 
 }