<br><br><div><span class="gmail_quote">Em 27/03/07, <b class="gmail_sendername">Luis Motta Campos</b> <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Mar 27, 2007, at 3:08 PM, roan Brasil wrote:<br>> 1. $ENV{ORACLE_OWNER} = 'roanbrasil';<br>> $ENV{ORACLE_HOME} = '/home/roanbrasil/oracle/product/10.2.0/client_1';<br>> $ENV{TNS_ADMIN} = $ENV{ORACLE_HOME};
<br>> $ENV{NLS_LANG} = 'AMERICAN_AMERICA.WE8ISO8859P1';<br><br> Isto não é o dump do ambiente do script que eu pedi.<br> Você tirou isto do seu .bash_profile.<br> Por favor preste atenção por que os dois scripts podem obter estes
<br>valores de lugares diferentes.<br> Eles certamente não rodam como o seu usuário. ;-)</blockquote><div><br>Não tirei do meu .bash_profile. Isto está no meu CGI. Ou seja... os valores são idênticos apesar de que cada script tem o seu, ele foi copiado um do outro.
<br>--------8<---------------------------8<---------------------------------------<br><br>#!/usr/bin/perl<br>use strict;<br>use CGI;<br>use CGI::Carp qw(fatalsToBrowser);<br>use DBI;<br>use Switch;<br><br>$ENV{ORACLE_OWNER} = 'spider';
<br>$ENV{ORACLE_HOME} = '/home/spider/oracle/product/10.2.0/client_1';<br>$ENV{TNS_ADMIN} = $ENV{ORACLE_HOME};<br>$ENV{LD_RUN_PATH} = '/home/spider/oracle/product/10.2.0/client_1/lib';<br>$ENV{NLS_LANG} = 'AMERICAN_AMERICA.WE8ISO8859P1';
<br><br><br>my $dbh = DBI->connect("dbi:Oracle:host=HOST;sid=XXXX", 'XXXXX', 'XXXXX');<br>my $q = CGI->new;<br>my $from_catid = $q->param("from_catid") ;<br>my $to_catid = $q->param("to_catid") ;
<br>my $prod_nome = $q->param("produto_nome") ;<br>my $prod_nome_txt = $q->param("produto_nome_text");<br>my $submit = $q->param("submit") ;<br>my $sql_update;<br>my $out;<br>my $rows_affected;
<br>my $msg;<br><br>switch ($submit)<br>{<br> case "alterar"<br> {<br> my $sucess;<br> if($from_catid && $to_catid)<br> {<br> $sql_update =<br> '
<br> UPDATE produtos<br> SET categoria_id = ?<br> WHERE categoria_id = ?<br> ';<br> if($prod_nome && $prod_nome_txt)<br> {
<br> if($prod_nome eq "1")<br> {<br> $sql_update .= ' AND lower(produto_nome) like \'%'.$prod_nome_txt.'%\' ';<br> }<br> elsif($prod_nome == "2")
<br> {<br> $sql_update .= ' AND lower(produto_nome) like \''.$prod_nome_txt.'%\' ';<br> }<br> elsif($prod_nome == "3")<br> {<br> $sql_update .= ' AND lower(produto_nome) like \'%'.$prod_nome_txt.'\' ';
<br> }<br> }<br> my $sth = $dbh->prepare($sql_update);<br> $rows_affected = $sth->execute( "$to_catid", "$from_catid") or die $sth->errstr;<br> $dbh->commit or die $dbh->errstr;
<br> $msg = "O número de linhas afetadas foi de $rows_affected linhas";<br> $dbh->disconnect;<br> }<br> }<br> case "consultar"<br> {<br> my $sql =<br> '<br> SELECT
p.produto_id, p.produto_nome, p.cod_fabricante, c.categoria_nome<br> FROM produtos p, categorias c<br> WHERE p.categoria_id = c.categoria_id<br> AND c.categoria_id = ?<br> ';<br> if($prod_nome && $prod_nome_txt)
<br> {<br> if($prod_nome eq "1")<br> {<br> $sql .= ' AND lower(produto_nome) like \'%'.$prod_nome_txt.'%\' ';<br> }<br>
elsif($prod_nome == "2")<br> {<br> $sql .= ' AND lower(produto_nome) like \''.$prod_nome_txt.'%\' ';<br> }<br> elsif($prod_nome == "3")
<br> {<br> $sql .= ' AND lower(produto_nome) like \'%'.$prod_nome_txt.'\' ';<br> }<br> }<br><br> my $sth = $dbh->prepare($sql);<br>
$sth->execute("$from_catid");<br> my $row;<br> while(my @row = $sth->fetchrow_array) {<br> foreach $row (@row)<br> {<br> $out.= "$row<br/>";
<br> }<br> $out .= "<br/><br/>";<br> }<br><br> $dbh->disconnect;<br> }<br>}<br>###########################################<br>#### HTML ####
<br>###########################################<br><br>print "Content-type:text/html\n\n";<br>print <<"FORM"<br> <html><br> <head><title>Sistema de Mudança de Produtos e Categorias de Produtos - SiMu-PCP -
0.1 alfa - by RO\@N BRASIL</title>></head><br> <body><br> <table><br> <tr><br> <td><h1>Sistema de Mudança de Produtos e Categorias de Produtos - SiMu-PCP -
0.1 alfa</h1></td><br> </tr><br> <tr><br> <td><br> <table><br> <form name="processo" method="get" >
<br> <tr><br> <td>De ID:</td><td> <input type="text" name="from_catid" value="$from_catid" /></td><br> </tr>
<br> <tr><br> <td>Para ID:</td><td> <input type="text" name="to_catid" value="$to_catid"/></td><br> </tr>
<br> <tr><br> <td>Produto Nome:</td><td> <SELECT NAME="produto_nome"><br> <OPTION VALUE=""></OPTION>
<br> <OPTION VALUE="1">Contém a palavra</OPTION><br> <OPTION VALUE="2">Começa com a palavra</OPTION>
<br> <OPTION VALUE="3">Termina com a palavra</OPTION><br> </SELECT><br> </td><br> </tr>
<br> <tr><br> <td>Digite Produto Nome:</td><td> <input type="text" name="produto_nome_text" value="$prod_nome_txt"/></td><br> </tr>
<br> <tr><br> <td><input type="submit" name="submit" value="alterar" /></td><br> <td><input type="submit" name="submit" value="consultar" /></td>
<br> </tr><br> </table><br> </td><br> </tr><br> </table><br> </form><br> <br/><br>
<h3>$msg</h3><br> <br/><br> $sql_update<br> <br/><br> <br/><br> $out<br> </body><br> </html><br>FORM
<br>---------8<----------------------------8<------------------------------------ <br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
> 2. /usr/lib/libc5-compat<br>> /lib/libc5-compat<br>> /usr/i486-linuxlibc1/lib<br><br> Eu estou presumindo que isto é o resultado de $(cat /etc/<br>ld.so.conf), certo?<br> Não consigo ver nenhuma referência a bibliotecas do Oracle aí...
<br>não deveria ter alguma?</blockquote><div><br>Não sei.... pois esse código acima se chama mudacategoria.cgi e o código do webapp.cgi (que funciona) está no mesmo local.... <br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
> 3. O apache é o mesmo pra ambos.<br><br> Certo, mas onde estão as tuas configurações para o Apache?<br> Por que um dos seus scripts funcionam, eu não vou assumir que você<br>fez tudo certo - sou paranóico e gosto de conferir tudo umas três
<br>vezes. ;-)<br><br>> DIRETORIO CORRENTE$ ls<br>> changecategory.cgi qmailadmin simu test.cgi vqadmin webapp.cgi<br><br> Não sacaneia, por favor... tenta o $(ls -l), que pelo menos vai me<br>deixar ver as permissões dos seus arquivos (que são importantes!).
</blockquote><div><br>hum... <br>$ ls -lh<br>total 164K<br>-rwxr-xr-x 1 www-data root 5,5K 2007-03-23 15:45 changecategory.cgi<br>-rwxr-xr-x 1 www-data www-data 371 2007-02-26 16:01 webapp.cgi<br><br> </div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
> Então o script webapp.cgi funciona blz... e change category não<br>> funfa... e tem as mesma configuraçõ no codigo perl de variavel de<br>> ambiente acima.<br>> Sacou?<br><br> Saquei que você não está querendo ser ajudado.
<br> Me desculpe a insistência, carinha.<br> É que eu tenho por norma ajudar todo mundo que eu posso.<br> E já resolvi problemas como o seu milhares de vezes.<br> Claro, as pessoas normalmente querem ser ajudadas.
</blockquote><div><br>Foi mal man... quero ser ajudado sim... vc quer alguma parte especifica da configuração do apache ou tudo?<br><br>Valeu pela tentativa de ajuda :)<br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Boa sorte com seu problema.<br> Putamplexos!<br>--<br>Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br><br clear="all"><br>-- <br>Atenciosamente,<br><br>Roan Brasil Monteiro<br>Presidente do Rotaract Club Lauro de Freitas D4550<br>Gestão 2006/2007<br>________________________________<br>*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*
<br>Faculdade UNIME<br><a href="http://www.unime.com.br">www.unime.com.br</a><br>BSI - Bacharelado de Sistema de Informação<br>Roan Brasil Monteiro <br>_____________________<br>*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*,*-*<br><br>
"NA LUTA ENTRE BATMAN E PINGÜIM,<br>EU SOU MAIS O PINGÜIM..." by Roan<br>____<br> °v° NÃO USE DROGAS,<br>/(_)\ USE GNU/LINUX<br> ^ ^<br>Por que ver o MUNDO através de 'janelas'<br>Se você pode usar portas.
<br><br>"Software Livre:<br> Socialmente Justo,<br> Economicamente Viável,<br> Tecnologicamente Sustentável"