Current location: Hot Scripts Forums » Programming Languages » Perl » convert from perl code to php


convert from perl code to php

Reply
 
LinkBack Thread Tools Display Modes
  #1 (permalink)  
Old 06-15-07, 08:57 AM
hostilio hostilio is offline
New Member
  
Join Date: Jun 2007
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
convert from perl code to php
Hi

I need to convert below perl scripts to php scripts. I dont know much on perl and wonder if anyone there can assist me to convert below perl script to php scripts. thanks in advance.

Hostilio
perl Code:
  1. #!/usr/bin/perl
  2. use DBI;
  3. use User::pwent;
  4. require 'cookie.lib';
  5.  
  6. # Get the input
  7. if($ARGV[0] eq ""){
  8. $buffer=$ENV{'QUERY_STRING'};
  9. if($buffer eq ""){
  10. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  11. }
  12. }
  13. else {
  14. $buffer=$ARGV[0];
  15. }
  16. $buffer=~ s/\\//;
  17.  
  18. # Split the name-value pairs
  19. @pairs = split(/&/, $buffer);
  20.  
  21. foreach $pair (@pairs) {
  22. ($name, $value) = split(/=/, $pair);
  23. $value =~ tr/+/ /;
  24. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  25. $value =~ s/'/´/g;
  26. $FORM{$name} = $value;
  27. }
  29. $buffer=`cat mysql.conf`;
  31. @pairs = split(/\n/, $buffer);
  32. foreach $pair (@pairs) {
  33. ($name, $value) = split(/=/, $pair);
  34. $value =~ tr/+/ /;
  35. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  36. $FORM{$name} = $value;
  37. }
  39. $nome_bd=$FORM{"nome_bd"};
  40. $nome_server=$FORM{"nome_server"};
  41. $login=$FORM{"login"};
  42. $pass=$FORM{"pass"};
  44. $linha_conn = "DBI:mysql:$nome_bd:$nome_server:3306";
  45. $dbh=DBI->connect($linha_conn,$login,$pass,{ RaiseError => 1, AutoCommit => 1 });
  47. print "Content-type: text/html\n";
  48. $cookie = GetCookies ('Maputo');
  49. $COOKIE = $Cookies{'Maputo'};
  50. print "\n";
  51. $sth=$dbh->prepare("select ID from USER where COOKIE='$COOKIE'");
  52. $sth->execute;
  53. @row = $sth->fetchrow_array();
  54. $ID=$row[0];
  55. $sth->finish;
  56. if($row[0] eq ""){
  57. $sth->finish;
  58. $dbh->disconnect;
  59. exit;
  60. }
  61. $sth->finish;
  63. $mostra_dados=0;
  64. if($FORM{'INSERT'} eq "ok"){
  65. &verifica_dados;
  66. if($erro_dados == 0){
  67. if($FORM{'ID'} ne ""){
  68. &actualiza_dados;
  69. }
  70. else { 
  71. &insere_dados;
  72. }
  73. $mostra_dados=1;
  74. &formulario;
  75. }
  76. else {
  77. &formulario;
  78. }
  79. }
  80. else {
  81. &formulario;
  82. }
  83. $dbh->disconnect;
  84. exit;
  86. ########################################################
  87. # CORRIGE DADOS #
  88. ########################################################
  90. sub formulario{
  92. print <<EOM;
  93. <html>
  94. <head>
  95. <title>Maputo Admin</title>
  96. </head>
  97. <link rel="stylesheet" type="text/css" href="/css/estilo.css">
  98. <body leftmargin="5" marginwidth="5" topmargin="5" marginheight="5" >
  99. EOM
  101. if($FORM{'ID'} eq ""){
  102. print <<EOM;
  103. <span class="titre2">Add User</span>
  104. <br><br>
  105. EOM
  106. }
  107. else {
  108. print <<EOM;
  109. <span class="titre2">Edit User</span>
  110. <br><br>
  111. EOM
  112. }
  113. if($erro_dados == 1){
  114. print <<EOM;
  115. <span class="titre3"><font color=red>Please correct the fields with <font size=-0>*</font></font></span>
  116. EOM
  117. }
  118. print <<EOM;
  119. <table border=0 cellpadding=2>
  120. <form method="post" action="/cgi-bin/add_user.pl">
  121. <input type=hidden name="ID" value="$FORM{'ID'}">
  122. <input type=hidden name="INSERT" value="ok">
  123. EOM
  125. if($FORM{'INSERT'} ne "ok" && $mostra_dados == 0){
  126. if($FORM{'ID'} ne ""){
  127. $sth=$dbh->prepare("select * from USER where ID='$FORM{'ID'}'");
  128. $sth->execute;
  129. @row = $sth->fetchrow_array();
  130. $FORM{'LOGIN'} = $row[1];
  131. $FORM{'PASSWORD'} = $row[2];
  132. $FORM{'NAME'} = $row[4];
  133. $FORM{'EMAIL'} = $row[5];
  134. $sth->finish;
  135. }
  136. }
  137. print<<EOM;
  138. <tr>
  139. <td align=right>
  140. <span class=titre3>Login: </span>
  141. </td>
  142. <td>
  143. EOM
  145. if($mostra_dados == 0){
  146. print <<EOM;
  147. <span class="searchField"><input type="text" name="LOGIN" size="60" style="font-family: Arial; font-size: 11; color:#000000; background:#EEEEEE;" value="$FORM{'LOGIN'}"></span>
  148. EOM
  149. }
  150. else {
  151. print <<EOM;
  152. <span class=titre3>$FORM{'LOGIN'} </span>
  153. EOM
  154. }
  156. print <<EOM;
  157. </td>
  158. </tr>
  159. <tr>
  160. <td align=right>
  161. <span class=titre3>Password: </span>
  162. </td>
  163. <td>
  164. EOM
  166. if($mostra_dados == 0){
  167. print <<EOM;
  168. <span class="searchField"><input type="password" name="PASSWORD" size="60" style="font-family: Arial; font-size: 11; color:#000000; background:#EEEEEE;" value="$FORM{'PASSWORD'}"></span>
  169. EOM
  170. }
  171. else {
  172. print <<EOM;
  173. <span class=titre3>$FORM{'PASSWORD'} </span>
  174. EOM
  175. }
  177. print <<EOM;
  178. </td>
  179. </tr>
  180. <tr>
  181. <td align=right>
  182. <span class=titre3>Name: </span>
  183. </td>
  184. <td>
  185. EOM
  187. if($mostra_dados == 0){
  188. print <<EOM;
  189. <span class="searchField"><input type="text" name="NAME" size="60" style="font-family: Arial; font-size: 11; color:#000000; background:#EEEEEE;" value="$FORM{'NAME'}"></span>
  190. EOM
  191. }
  192. else {
  193. print <<EOM;
  194. <span class=titre3>$FORM{'NAME'} </span>
  195. EOM
  196. }
  198. print <<EOM;
  199. </td>
  200. </tr>
  201. <tr>
  202. <td align=right>
  203. <span class=titre3>Email: </span>
  204. </td>
  205. <td>
  206. EOM
  208. if($mostra_dados == 0){
  209. print <<EOM;
  210. <span class="searchField"><input type="text" name="EMAIL" size="60" style="font-family: Arial; font-size: 11; color:#000000; background:#EEEEEE;" value="$FORM{'EMAIL'}"></span>
  211. EOM
  212. }
  213. else {
  214. print <<EOM;
  215. <span class=titre3>$FORM{'EMAIL'} </span>
  216. EOM
  217. }
  219. print <<EOM;
  220. </td>
  221. </tr>
  222. </table>
  223. EOM
  225. $sth=$dbh->prepare("select ID from ACCESS where IDUSER='$ID' and TABLE_NAME='ACCESS' and R=1 and W=1 and D=1");
  226. $sth->execute;
  227. @row = $sth->fetchrow_array();
  228. $table_access=$row[0];
  229. $sth->finish;
  230. if($table_access ne ""){
  231. print <<EOM;
  232. <table border=1 cellpadding=2>
  233. EOM
  235. $sth=$dbh->prepare("select * from ACCESS where ID='$FORM{'ID'}'");
  236. $sth->execute;
  237. @row = $sth->fetchrow_array();
  238. $sth->finish;
  240. print<<EOM;
  241. <tr>
  242. <td bgcolor=black><span class=titre3><b><font color=white>Table</font></b></span></td>
  243. <td bgcolor=black><span class=titre3><b><font color=white>Read</font></b></span></td>
  244. <td bgcolor=black><span class=titre3><b><font color=white>Write</font></b></span></td>
  245. <td bgcolor=black><span class=titre3><b><font color=white>Delete</font></b></span></td>
  246. </tr>
  247. EOM
  249. $sth2=$dbh->prepare("select TABLE_NAME from TABLE_LIST order by TABLE_NAME");
  250. $sth2->execute;
  251. while((@row2) = $sth2->fetchrow_array()){
  252. $estado_r="";
  253. $estado_w="";
  254. $estado_d="";
  255. $mostra_r="&nbsp;";
  256. $mostra_w="&nbsp;";
  257. $mostra_d="&nbsp;";
  258. if($FORM{'INSERT'} ne "ok" && $mostra_dados == 0){
  259. if($FORM{'ID'} ne ""){
  260. $sth3=$dbh->prepare("select R, W, D from ACCESS where IDUSER='$FORM{'ID'}' and TABLE_NAME = '$row2&#91;0]'");
  261. $sth3->execute;
  262. @row3 = $sth3->fetchrow_array();
  263. if($row3&#91;0] eq "1"){
  264. $estado_r='checked="true"';
  265. $mostra_r="X";
  266. }
  267. if($row3&#91;1] eq "1"){
  268. $estado_w='checked="true"';
  269. $mostra_w="X";
  270. }
  271. if($row3&#91;2] eq "1"){
  272. $estado_d='checked="true"';
  273. $mostra_d="X";
  274. }
  275. $sth3->finish;
  276. }
  277. }
  278. else {
  279. if($FORM{"R_$row2[0]"} eq "on"){
  280. $estado_r='checked="true"';
  281. $mostra_r="X";
  282. } 
  283. if($FORM{"W_$row2[0]"} eq "on"){
  284. $estado_w='checked="true"';
  285. $mostra_w="X";
  286. } 
  287. if($FORM{"D_$row2[0]"} eq "on"){
  288. $estado_d='checked="true"';
  289. $mostra_d="X";
  290. } 
  291. }
  292.  
  293. if($mostra_dados == 0){ 
  294. print <<EOM;
  295. <tr>
  296. <td><span class=titre3>$row2&#91;0]</span></td>
  297. <td align=center><input name="R_$row2[0]" type="checkbox" $estado_r></td>
  298. <td align=center><input name="W_$row2[0]" type="checkbox" $estado_w></td>
  299. <td align=center><input name="D_$row2[0]" type="checkbox" $estado_d></td>
  300. </tr>
  301. EOM
  302. }
  303. else {
  304. print <<EOM;
  305. <tr>
  306. <td><span class=titre3>$row2&#91;0]</span></td>
  307. <td align=center><span class="titre2">$mostra_r</span></td>
  308. <td align=center><span class="titre2">$mostra_w</span></td>
  309. <td align=center><span class="titre2">$mostra_d</span></td>
  310. </tr>
  311. EOM
  312. }
  313. }
  314. $sth2->finish;
  315.  
  316. print <<EOM;
  317. </td>
  318. </tr>
  319. </table>
  320. EOM
  321. }
  322.  
  323. if($mostra_dados == 0){
  324. print <<EOM;
  325. <font size=-1><INPUT TYPE=submit VALUE = "Send" style="font-family: Arial; font-size: 9; color:#000000; background:#EEEEEE;"></font>
  326. </form>
  327. EOM
  328. }
  329. else { 
  330. print <<EOM;
  331. <br>
  332. <span class=titre2>&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>Info updated</font></span>
  333. EOM
  334. }
  335.  
  336. print <<EOM;
  337. </body>
  338. </html>
  339. EOM
  340.  
  341. }
  342.  
  343.  
  344. ########################################################
  345. # VERIFICA DADOS #
  346. ########################################################
  347.  
  348. sub verifica_dados{
  349. $erro_dados=0;
  350. if($FORM{'LOGIN'} eq "" || $FORM{'LOGIN'} eq "*"){
  351. $erro_dados=1;
  352. $FORM{'LOGIN'}="*";
  353. }
  354. if($FORM{'PASSWORD'} eq "" || $FORM{'PASSWORD'} eq "*"){
  355. $erro_dados=1;
  356. $FORM{'PASSWORD'}="*";
  357. }
  358. if($FORM{'NAME'} eq "" || $FORM{'NAME'} eq "*"){
  359. $erro_dados=1;
  360. $FORM{'NAME'}="*";
  361. }
  362. if($FORM{'EMAIL'} !~ /\@/ || $FORM{'EMAIL'} eq "*"){
  363. $erro_dados=1;
  364. $FORM{'EMAIL'}="*";
  365. }
  366. $sth=$dbh->prepare("select ID, LOGIN from USER where LOGIN='$FORM{'LOGIN'}'");
  367. $sth->execute;
  368. @row = $sth->fetchrow_array();
  369. if($row&#91;0] ne "" && $row[0] ne $FORM{'ID'}){
  370. $erro_dados=1;
  371. $FORM{'LOGIN'}="*";
  372. }
  373. $sth->finish;
  374.  
  375. } 
  376.  
  377. ########################################################
  378. # ACTUALIZA DADOS #
  379. ########################################################
  380.  
  381. sub actualiza_dados{
  382. $dbh->do("insert into USER_HIST 
  383. (IDINI, LOGIN, PASSWORD, NAME, EMAIL, IDLOGIN)
  384. values ($FORM{'ID'}, '$FORM{'LOGIN'}', '$FORM{'PASSWORD'}', '$FORM{'NAME'}', '$FORM{'EMAIL'}', $ID)");
  385. $dbh->do("update USER set 
  386. LOGIN='$FORM{'LOGIN'}', PASSWORD='$FORM{'PASSWORD'}', NAME='$FORM{'NAME'}', EMAIL='$FORM{'EMAIL'}'
  387. where ID=$FORM{'ID'}");
  388.  
  389. $sth=$dbh->prepare("select ID from ACCESS where IDUSER='$ID' and TABLE_NAME='ACCESS' and R=1 and W=1 and D=1");
  390. $sth->execute;
  391. @row = $sth->fetchrow_array();
  392. $table_access=$row&#91;0];
  393. $sth->finish;
  394. if($table_access ne ""){ 
  395. $sth2=$dbh->prepare("select TABLE_NAME from TABLE_LIST order by TABLE_NAME");
  396. $sth2->execute;
  397. while((@row2) = $sth2->fetchrow_array()){ 
  398. if($FORM{"R_$row2[0]"} eq "on"){
  399. $R=1;
  400. }
  401. else {
  402. $R=0;
  403. }
  404. if($FORM{"W_$row2[0]"} eq "on"){
  405. $W=1;
  406. }
  407. else {
  408. $W=0;
  409. }
  410. if($FORM{"D_$row2[0]"} eq "on"){
  411. $D=1;
  412. }
  413. else {
  414. $D=0;
  415. }
  416.  
  417. $sth3=$dbh->prepare("select ID from ACCESS where IDUSER=$FORM{'ID'} and TABLE_NAME='$row2[0]'");
  418. $sth3->execute;
  419. @row3 = $sth3->fetchrow_array();
  420. $IDAUX=$row3&#91;0];
  421. $sth3->finish;
  422. if($IDAUX ne ""){
  423. $dbh->do("insert into ACCESS_HIST
  424. (IDINI, TABLE_NAME, IDUSER, R, W, D, IDLOGIN)
  425. values ($IDAUX, '$row2[0]', $FORM{'ID'}, $R, $W, $D, $ID)");
  426. $dbh->do("update ACCESS set
  427. R=$R, W=$W, D=$D where ID=$IDAUX");
  428. }
  429. else {
  430. $dbh->do("insert into ACCESS
  431. (TABLE_NAME, IDUSER, R, W, D)
  432. values ('$row2[0]', $FORM{'ID'}, $R, $W, $D)");
  433. $sth3=$dbh->prepare("select ID from ACCESS where IDUSER=$FORM{'ID'} and TABLE_NAME='$row2[0]'");
  434. $sth3->execute;
  435. @row3 = $sth3->fetchrow_array();
  436. $IDAUX=$row3&#91;0];
  437. $sth3->finish;
  438. $dbh->do("insert into ACCESS_HIST
  439. (IDINI, TABLE_NAME, IDUSER, R, W, D, IDLOGIN)
  440. values ($IDAUX, '$row2[0]', $FORM{'ID'}, $R, $W, $D, $ID)");
  441. }
  442. }
  443. $sth2->finish;
  444. }
  445. }
  446.  
  447. ########################################################
  448. # INSERE DADOS #
  449. ########################################################
  450.  
  451. sub insere_dados{
  452. $dbh->do("insert into USER 
  453. (LOGIN, PASSWORD, NAME, EMAIL)
  454. values ('$FORM{'LOGIN'}', '$FORM{'PASSWORD'}', '$FORM{'NAME'}', '$FORM{'EMAIL'}')");
  455. $sth=$dbh->prepare("select ID from USER where LOGIN='$FORM{'LOGIN'}'");
  456. $sth->execute;
  457. @row = $sth->fetchrow_array();
  458. $IDAUX=$row&#91;0];
  459. $sth->finish; 
  460. $dbh->do("insert into USER_HIST
  461. (IDINI, LOGIN, PASSWORD, NAME, EMAIL, IDLOGIN)
  462. values ($IDAUX , '$FORM{'LOGIN'}', '$FORM{'PASSWORD'}', '$FORM{'NAME'}', '$FORM{'EMAIL'}', $ID)");
  463.  
  464. $sth2=$dbh->prepare("select TABLE_NAME from TABLE_LIST order by TABLE_NAME");
  465. $sth2->execute;
  466. while((@row2) = $sth2->fetchrow_array()){
  467. if($FORM{"R_$row2[0]"} eq "on"){
  468. $R=1;
  469. }
  470. else {
  471. $R=0;
  472. }
  473. if($FORM{"W_$row2[0]"} eq "on"){
  474. $W=1;
  475. }
  476. else {
  477. $W=0;
  478. }
  479. if($FORM{"D_$row2[0]"} eq "on"){
  480. $D=1;
  481. }
  482. else {
  483. $D=0;
  484. }
  485.  
  486. $dbh->do("insert into ACCESS
  487. (TABLE_NAME, IDUSER, R, W, D)
  488. values ('$row2[0]', $IDAUX, $R, $W, $D)");
  489. $sth3=$dbh->prepare("select ID from ACCESS where IDUSER=$IDAUX and TABLE_NAME='$row2[0]'");
  490. $sth3->execute;
  491. @row3 = $sth3->fetchrow_array();
  492. $IDAUX2=$row3&#91;0];
  493. $sth3->finish;
  494. $dbh->do("insert into ACCESS_HIST
  495. (IDINI, TABLE_NAME, IDUSER, R, W, D, IDLOGIN)
  496. values ($IDAUX2, '$row2[0]', $IDAUX, $R, $W, $D, $ID)");
  497. }
  498. $sth2->finish;
  499.  
  500. }
Last edited by Nico; 06-15-07 at 09:05 AM. Reason: Please use [highlight=perl] wrappers.
Reply With Quote
  #2 (permalink)  
Old 06-21-07, 05:08 AM
hostilio hostilio is offline
New Member
  
Join Date: Jun 2007
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Please help me...
Reply With Quote
  #3 (permalink)  
Old 06-21-07, 05:38 AM
curbview.com's Avatar
curbview.com curbview.com is offline
Junior Code Guru
  
Join Date: May 2006
Posts: 555
Thanks: 0
Thanked 0 Times in 0 Posts
It is generally not status quo to ask someone on here to port an entire script but rather assist you with debugging code. This should really be moved to script requests or more so to the jobs area. Ideally, you require not only a translator, a person well versed in PHP as well as Perl.
Reply With Quote
Reply

Bookmarks

« Generating a unique number? | Attachement help needed »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Urgent need to convert small snippet from perl to asp.net (asp) hejlsberg ASP.NET 3 04-21-06 06:56 AM
Translate ASP to PHP and PERL POSERA ASP 0 06-12-04 01:12 AM
Perl code : print "." x 20; - How to do it with PHP ? kevin PHP 2 07-04-03 04:29 AM


All times are GMT -5. The time now is 04:47 AM.
vBulletin® Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.