From rafael em suldigital.com.br  Sat Feb  1 04:41:53 2003
From: rafael em suldigital.com.br (Rafael Machado)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Desescrever!
Message-ID: <001401c2c9de$88f25220$3a000082@suldigital.com.br>

Como fasso para me desescrever da cascavel.pm.org não que não seja boa mais que não curto perl ... akele abraço

Rafael Machado
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20030201/4504a504/attachment.htm
From ednardo em elobo.cjb.net  Mon Feb  3 09:12:20 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] msgs mais leves
In-Reply-To: <1044070495.370.3.camel@debian>
References: <1044070495.370.3.camel@debian>
Message-ID: <20030203151220.GB1675@pinguim.elobo.cjb.net>

On Sat, Feb 01, 2003 at 12:34:53AM -0300, Albert Knox wrote:
> olá,  eu  sou novo  no  grupo  e tudo  mais.  Não  quero atrapalhar  o
> andamento da lista  mas só queria expor a minha  opnião à respeito das
> mensagens enviadas.  Teve uma esses  dias que tinha imagem  de fundo..
> figurinhas.. e tudo que tem direito. Acho  que é um caso de bom censo.
> Sempre que possível  seria legal que enviassem as msgs  em modo texto,
> pois estas  são super  legíveis e mais  leves que as  em html.  Sei lá
> também.. é a minnha opnião. ;) t+

    Concordo com você, Albert!!

    A simplicidade e  praticidade de mensagens em texto  puro é bastante
desejavel, principalmente por se tratar de uma lista de discussão.


-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
BOFH excuse #12:

dry joints on cable plug

From fabiano em cascavel.pm.org  Mon Feb  3 09:22:03 2003
From: fabiano em cascavel.pm.org (Fabiano)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] AVISO: Problemas com e-mail!
Message-ID: <20030203152203.M982@cascavel.pm.org>

    Quem  mandou e-mail para cascavel@pm.org entre 27-01-2003 á 03-02-2003
favor re-enviar, pois tivemos problemas e acabamos perdendo os mesmos.
    Desculpe pelo transtorno.

[]'s
--Fabiano Reese Righetti (fabiano@cascavel.pm.org)



From mouse em oscara.com.br  Mon Feb  3 13:21:41 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] problema com query sql
Message-ID: <1044300101.5214.20.camel@charles-linux.integral.inf.br>

Ola pessoas da lista!
Estou a desenvolver um programa para relatório de e-mails e estou com um
problema no retorno de uma instrução ao Banco de Dados Mysql.

Isso é o que tenho no banco:

mysql> select remetente,destinatarios from email where email_id like
'%35';
+------------------------------+----------------------------+
| remetente                    | destinatarios              |
+------------------------------+----------------------------+
| "mouse" <mouse@oscara.com.br>| <charles@integral.inf.br>  |
+------------------------------+----------------------------+

e a instrução perl que uso para pegar o retorno é essa:

_____________

$QUERY = "select email_id, sendmail_id, data, remetente, destinatarios,
assunto, cabecalhos, corpo,anexos from email where email_id =
'$email_id'";

my $sth = $dbh->prepare($QUERY) or die "Couldn't prepare statement:
$__LINE__  " . $dbh->errstr;

$sth->execute() or die "Couldn't prepare statement: " . $dbh->errstr;

while (@dados = ($sth ->fetchrow_array() )){

( $EMAIL_ID, $SENDMAIL_ID, $DATA, $REMETENTE, $DESTINATARIOS, $ASSUNTO,
$CABECALHOS, $CORPO, $ANEXOS) = @dados;
}
______________

A variável $DESTINATARIOS esta voltando em branco...

Alguém ai tem uma luz para mim?

.o)

]['s

|mouse|


From ednardo em elobo.cjb.net  Mon Feb  3 13:54:05 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] problema com query sql
In-Reply-To: <1044300101.5214.20.camel@charles-linux.integral.inf.br>
References: <1044300101.5214.20.camel@charles-linux.integral.inf.br>
Message-ID: <20030203195405.GD1675@pinguim.elobo.cjb.net>

    Não vejo nada errado!!

    Provavelmente a  linha da tabela cujo  o campo `email_id' é  igual a
`$email_id' está com  o campo `destinatarios' em branco. O  erro de deve
estar na inicialização da variável `$email_id'. Verifique!

    Para  a QUERY  que  está  utilizando, sempre  uma  única linha  será
retornada e,  portanto, o  `while' no seu  código é  desnecessário. Você
poderia codificar apenas:

        @dados = $sth->fetchrow_array()
        ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
         $DESTINATARIOS,$ASSUNTO,$CABECALHOS,$CORPO,$ANEXOS) = @dados;

    Ou, simplificando ainda mais:
    
        ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
         $DESTINATARIOS,$ASSUNTO,$CABECALHOS,
         $CORPO,$ANEXOS) = $sth->fetchrow_array();
    

On Mon, Feb 03, 2003 at 05:21:41PM -0200, |mouse| wrote:
> Ola pessoas da lista!
> Estou a desenvolver um programa para  relatório de e-mails e estou com
> um problema no retorno de uma instrução ao Banco de Dados Mysql.
>
> Isso é o que tenho no banco:
> 
> mysql> select remetente,destinatarios from email where email_id like
> '%35';
> +------------------------------+----------------------------+
> | remetente                    | destinatarios              |
> +------------------------------+----------------------------+
> | "mouse" <mouse@oscara.com.br>| <charles@integral.inf.br>  |
> +------------------------------+----------------------------+
> 
> e a instrução perl que uso para pegar o retorno é essa:
> 
> _____________
> 
> $QUERY = "select email_id, sendmail_id, data, remetente, destinatarios,
> assunto, cabecalhos, corpo,anexos from email where email_id =
> '$email_id'";
> 
> my $sth = $dbh->prepare($QUERY) or die "Couldn't prepare statement:
> $__LINE__  " . $dbh->errstr;
> 
> $sth->execute() or die "Couldn't prepare statement: " . $dbh->errstr;
> 
> while (@dados = ($sth ->fetchrow_array() )){
> 
> ( $EMAIL_ID, $SENDMAIL_ID, $DATA, $REMETENTE, $DESTINATARIOS, $ASSUNTO,
> $CABECALHOS, $CORPO, $ANEXOS) = @dados;
> }
> ______________
> 
> A variável $DESTINATARIOS esta voltando em branco...
> 
> Alguém ai tem uma luz para mim?
> 
> .o)
> 
> ]['s
> 
> |mouse|

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

From mouse em oscara.com.br  Tue Feb  4 05:20:12 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] problema com query sql
In-Reply-To: <20030203195405.GD1675@pinguim.elobo.cjb.net>
References: <1044300101.5214.20.camel@charles-linux.integral.inf.br>
	 <20030203195405.GD1675@pinguim.elobo.cjb.net>
Message-ID: <1044357612.968.9.camel@charles-linux.integral.inf.br>

Fala Elobo! Blz?

Olha soh, o campo remetente ou destinatarios, tem duas strings cada,
talvez seja esse o problema. A variável só está recebendo a primeira
parte da string.

Campo remetente:

+----------------------------------------------+
| remetente                                    |
+----------------------------------------------+
| Charles Bauer <charles@integral.inf.br>      |
------------------------------------------------

O campo destinatarios da no mesmo, as variaves soh estão recebendo a
primeira parte (Charles Bauer)

Se puder me ajudar... agradeço...

]['s


|mouse|





Em Seg, 2003-02-03 às 17:54, Ednardo Lobo escreveu:
>     Não vejo nada errado!!
> 
>     Provavelmente a  linha da tabela cujo  o campo `email_id' é  igual a
> `$email_id' está com  o campo `destinatarios' em branco. O  erro de deve
> estar na inicialização da variável `$email_id'. Verifique!
> 
>     Para  a QUERY  que  está  utilizando, sempre  uma  única linha  será
> retornada e,  portanto, o  `while' no seu  código é  desnecessário. Você
> poderia codificar apenas:
> 
>         @dados = $sth->fetchrow_array()
>         ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
>          $DESTINATARIOS,$ASSUNTO,$CABECALHOS,$CORPO,$ANEXOS) = @dados;
> 
>     Ou, simplificando ainda mais:
>     
>         ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
>          $DESTINATARIOS,$ASSUNTO,$CABECALHOS,
>          $CORPO,$ANEXOS) = $sth->fetchrow_array();
>     
> 



From mouse em oscara.com.br  Tue Feb  4 05:56:24 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] problema com query sql
In-Reply-To: <20030203195405.GD1675@pinguim.elobo.cjb.net>
References: <1044300101.5214.20.camel@charles-linux.integral.inf.br>
	 <20030203195405.GD1675@pinguim.elobo.cjb.net>
Message-ID: <1044359784.959.12.camel@charles-linux.integral.inf.br>

Pow!
Eu sou ruinzinho mesmo, achei o erro.
Sabe, coisa de BIOS, iniciante.
O problema é que estou fazendo uma página em html, e a minha query ta
retornando campos com o sinais  "<" e ">", que acabam se tornando tag's
html...

Foi mal...

]['s


|mouse|

Em Seg, 2003-02-03 às 17:54, Ednardo Lobo escreveu:
>     Não vejo nada errado!!
> 
>     Provavelmente a  linha da tabela cujo  o campo `email_id' é  igual a
> `$email_id' está com  o campo `destinatarios' em branco. O  erro de deve
> estar na inicialização da variável `$email_id'. Verifique!
> 
>     Para  a QUERY  que  está  utilizando, sempre  uma  única linha  será
> retornada e,  portanto, o  `while' no seu  código é  desnecessário. Você
> poderia codificar apenas:
> 
>         @dados = $sth->fetchrow_array()
>         ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
>          $DESTINATARIOS,$ASSUNTO,$CABECALHOS,$CORPO,$ANEXOS) = @dados;
> 
>     Ou, simplificando ainda mais:
>     
>         ($EMAIL_ID,$SENDMAIL_ID,$DATA,$REMETENTE,
>          $DESTINATARIOS,$ASSUNTO,$CABECALHOS,
>          $CORPO,$ANEXOS) = $sth->fetchrow_array();
>     
> 



From mouse em oscara.com.br  Wed Feb  5 12:49:29 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Problema com abertura de arquivo "ioctl inapropriado para
 dispositivo"
Message-ID: <1044470969.891.14.camel@charles-linux.integral.inf.br>

Ola pessoas!

Estou com um problema na abertura de um arquivo.

Quando faço:

open (ARQUIVO_MAIL,  ">>$arquivo");

a variável $! retorna o seguinte valor: 

"ioctl inapropriado para dispositivo"

Mas a escrita ao arquivo funciona.

O arquivo não existe até eu chamar a função e já tentei também
utilizando o modo ">" de criação do arquivo.

Já verifiquei o valor da variável $arquivo e está ok.


Alguma luz?

Ah! a variável $arquivo recebo ela assim:

my $arquivo = $dados_ref->{arquivo_mail};


]['s

|mouse|



From spooker em spooker.com.br  Wed Feb  5 13:11:33 2003
From: spooker em spooker.com.br (Sp0oKeR Labs)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Problema com abertura de arquivo "ioctl inapropriado para dispositivo"
References: <1044470969.891.14.camel@charles-linux.integral.inf.br>
Message-ID: <027001c2cd4a$6647a300$a201a8c0@4n>

 Tenta

 #!/usr/bin/perl


open(ARQUIVO,"arquivo");

        while( $arquivo=<ARQUIVO>)
                {
                print "-- $arquivo";
                }

close(ARQUIVO);


                                                        []z!Sp0oKeR!

----- Original Message -----
From: "|mouse|" <mouse@oscara.com.br>
To: "cascavel-pm" <cascavel-pm@mail.pm.org>
Sent: Wednesday, February 05, 2003 4:49 PM
Subject: [Cascavel-pm] Problema com abertura de arquivo "ioctl inapropriado
para dispositivo"


> Ola pessoas!
>
> Estou com um problema na abertura de um arquivo.
>
> Quando faço:
>
> open (ARQUIVO_MAIL,  ">>$arquivo");
>
> a variável $! retorna o seguinte valor:
>
> "ioctl inapropriado para dispositivo"
>
> Mas a escrita ao arquivo funciona.
>
> O arquivo não existe até eu chamar a função e já tentei também
> utilizando o modo ">" de criação do arquivo.
>
> Já verifiquei o valor da variável $arquivo e está ok.
>
>
> Alguma luz?
>
> Ah! a variável $arquivo recebo ela assim:
>
> my $arquivo = $dados_ref->{arquivo_mail};
>
>
> ]['s
>
> |mouse|
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27/1/2003


From mhenke em inf.ufrgs.br  Wed Feb 12 08:44:01 2003
From: mhenke em inf.ufrgs.br (Marcia Henke)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Interface em Perl
Message-ID: <002201c2d2a5$2f0097c0$4253368f@inf.ufrgs.br>

Conteúdo pulado do tipo multipart/alternative-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : não disponível
Tipo  : image/gif
Tam   : 862 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030212/d2a6d2a9/attachment.gif
From lup em terra.com.br  Wed Feb 12 07:43:53 2003
From: lup em terra.com.br (Luciano)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Interface em Perl
References: <002201c2d2a5$2f0097c0$4253368f@inf.ufrgs.br>
Message-ID: <3E4A4F99.10305@terra.com.br>

Oi Márcia...

    Sim, é possível fazer Interfaces de Classes em Perl sim. A palavra 
use seria considerado o import do Java, não um extends. Isso fando em um 
contexto orientado a objetos.
Você não pode confundir isso. A implementação de Orientação a Objetos na 
Perl 5 não é muito trivial se comparada a C++ ou Java, mas é bem 
completa, tanto que implementa recursos avançados como herança múltipla 
e meta-classes. A Perl 6 será mais trivial de programar. Mas mesmo assim 
não quero desencorajar você a aprender OOP em Perl. Este tutorial vai 
ajudar:

http://www.perl.com/doc/manual/html/pod/perltoot.html

As classes em Perl 5 são packages.

Espero ter ajudado.

    Luciano Greiner


Marcia Henke wrote:

> Olá pessoal !
>  
> Gostaria de saber se em Perl, consegue-se trabalhar com Interface, 
> para implementar métodos, como ocorre em java. Saliento que não estou 
> falando de GUI.
> A palavra reservada "use", funciona como um extends ????
>  
> Agradeço a atenção
> _________________________________
> Márcia Henke
> mhenke@inf.ufrgs.br <mailto:mhenke@inf.ufrgs.br>
> marciahenke@ibest.com.br <mailto:marciahenke@ibest.com.br>
> 0XX(51)3316-7024
> 0XX(51)9121-0947
>
> ------------------------------------------------------------------------
> Esta mensagem foi verificada pelo E-mail Protegido Terra 
> <http://www.emailprotegido.terra.com.br/>.
> Scan engine: VirusScan / Atualizado em 05/02/2003 / Versão: 1.3.13
> Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
>




From mhenke em inf.ufrgs.br  Thu Feb 13 11:02:13 2003
From: mhenke em inf.ufrgs.br (Marcia Henke)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Re: Cascavel-pm digest, Vol 1 #26 - 2 msgs
References: <200302121801.h1CI16r10422@mail.pm.org>
Message-ID: <001d01c2d381$a873d2c0$4253368f@inf.ufrgs.br>

Olá Pessoal e Luciano !!!

Agradeço o link da apostila, Luciano. Mas ela não fala em Herança de
Interface para Perl. Eu até achei uma pequena descrição no Advanced Perl
Programming, mas nenhum exemplo, nem ao menos qual palavra reservado se usa
para uma herança de interface.
Estou fazendo um programa para monitorar serviços  de um servidor, já
implementei todos os serviços como um pacote (.pm), e os intanciei para
minha classe monitor.pl,  mas gostaria de cria um pacote de interface para
armazenar nele os metodos públicos para esses serviços.
Meu programa esta totalmente orientado a objeto.

Agradeço alguma dica
Márcia


----- Original Message -----
From: <cascavel-pm-request@mail.pm.org>
To: <cascavel-pm@mail.pm.org>
Sent: Wednesday, February 12, 2003 3:00 PM
Subject: Cascavel-pm digest, Vol 1 #26 - 2 msgs


> Send Cascavel-pm mailing list submissions to
> cascavel-pm@mail.pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> or, via email, send a message with subject or body 'help' to
> cascavel-pm-request@mail.pm.org
>
> You can reach the person managing the list at
> cascavel-pm-admin@mail.pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Cascavel-pm digest..."
>
>
> Today's Topics:
>
>    1. Interface em Perl (Marcia Henke)
>    2. Re: Interface em Perl (Luciano)
>
> --__--__--
>
> Message: 1
> From: "Marcia Henke" <mhenke@inf.ufrgs.br>
> To: "ListaPerl Cascavel" <cascavel-pm@mail.pm.org>
> Date: Wed, 12 Feb 2003 11:44:01 -0300
> Subject: [Cascavel-pm] Interface em Perl
> Reply-To: cascavel-pm@mail.pm.org
>
> This is a multi-part message in MIME format.
>
> ------=_NextPart_000_001E_01C2D28C.09703C40
> Content-Type: multipart/alternative;
> boundary="----=_NextPart_001_001F_01C2D28C.09703C40"
>
>
> ------=_NextPart_001_001F_01C2D28C.09703C40
> Content-Type: text/plain;
> charset="Windows-1252"
> Content-Transfer-Encoding: quoted-printable
>
> Ol=E1 pessoal !
>
> Gostaria de saber se em Perl, consegue-se trabalhar com Interface, para =
> implementar m=E9todos, como ocorre em java. Saliento que n=E3o estou =
> falando de GUI.
> A palavra reservada "use", funciona como um extends ????
>
> Agrade=E7o a aten=E7=E3o
> _________________________________
> M=E1rcia Henke
> mhenke@inf.ufrgs.br
> marciahenke@ibest.com.br
> 0XX(51)3316-7024
> 0XX(51)9121-0947
>
>
> ------=_NextPart_001_001F_01C2D28C.09703C40
> Content-Type: text/html;
> charset="Windows-1252"
> Content-Transfer-Encoding: quoted-printable
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <HTML><HEAD>
> <META http-equiv=3DContent-Type content=3D"text/html; =
> charset=3Dwindows-1252"><BASE=20
> href=3D"file://C:\Arquivos de Programas\Arquivos comuns\Microsoft =
> Shared\Stationery\">
> <STYLE>BODY {
> BACKGROUND-POSITION: left top; FONT-SIZE: 10pt; COLOR: #000000; =
> BACKGROUND-REPEAT: no-repeat; FONT-FAMILY: Arial
> }
> </STYLE>
>
> <META content=3D"MSHTML 5.50.4522.1800" name=3DGENERATOR></HEAD>
> <BODY bgColor=3D#c0c0c0=20
> background=3Dcid:001d01c2d2a5$2eb5d320$4253368f@inf.ufrgs.br>
> <DIV>Ol=E1 pessoal !</DIV>
> <DIV>&nbsp;</DIV>
> <DIV>Gostaria de saber se em Perl, consegue-se trabalhar com Interface, =
> para=20
> implementar m=E9todos, como ocorre em java. Saliento que n=E3o estou =
> falando de=20
> GUI.</DIV>
> <DIV>A palavra reservada "use", funciona como um extends ????</DIV>
> <DIV>&nbsp;</DIV>
> <DIV>Agrade=E7o a aten=E7=E3o</DIV>
> <DIV>_________________________________<BR>M=E1rcia Henke<BR><A=20
> href=3D"mailto:mhenke@inf.ufrgs.br">mhenke@inf.ufrgs.br</A><BR><A=20
> href=3D"mailto:marciahenke@ibest.com.br">marciahenke@ibest.com.br</A><BR>=
> 0XX(51)3316-7024<BR>0XX(51)9121-0947<BR></DIV></BODY></HTML>
>
> ------=_NextPart_001_001F_01C2D28C.09703C40--
>
> ------=_NextPart_000_001E_01C2D28C.09703C40
> Content-Type: image/gif;
> name="tech.gif"
> Content-Transfer-Encoding: base64
> Content-ID: <001d01c2d2a5$2eb5d320$4253368f@inf.ufrgs.br>
>
>
R0lGODlhFAAUAPcAAP//////zP//mf//Zv//M///AP/M///MzP/Mmf/MZv/MM//MAP+Z//+ZzP+Z
>
mf+ZZv+ZM/+ZAP9m//9mzP9mmf9mZv9mM/9mAP8z//8zzP8zmf8zZv8zM/8zAP8A//8AzP8Amf8A
>
Zv8AM/8AAMz//8z/zMz/mcz/Zsz/M8z/AMzM/8zMzMzMmczMZszMM8zMAMyZ/8yZzMyZmcyZZsyZ
>
M8yZAMxm/8xmzMxmmcxmZsxmM8xmAMwz/8wzzMwzmcwzZswzM8wzAMwA/8wAzMwAmcwAZswAM8wA
>
AJn//5n/zJn/mZn/Zpn/M5n/AJnM/5nMzJnMmZnMZpnMM5nMAJmZ/5mZzJmZmZmZZpmZM5mZAJlm
>
/5lmzJlmmZlmZplmM5lmAJkz/5kzzJkzmZkzZpkzM5kzAJkA/5kAzJkAmZkAZpkAM5kAAGb//2b/
>
zGb/mWb/Zmb/M2b/AGbM/2bMzGbMmWbMZmbMM2bMAGaZ/2aZzGaZmWaZZmaZM2aZAGZm/2ZmzGZm
>
mWZmZmZmM2ZmAGYz/2YzzGYzmWYzZmYzM2YzAGYA/2YAzGYAmWYAZmYAM2YAADP//zP/zDP/mTP/
>
ZjP/MzP/ADPM/zPMzDPMmTPMZjPMMzPMADOZ/zOZzDOZmTOZZjOZMzOZADNm/zNmzDNmmTNmZjNm
>
MzNmADMz/zMzzDMzmTMzZjMzMzMzADMA/zMAzDMAmTMAZjMAMzMAAAD//wD/zAD/mQD/ZgD/MwD/
>
AADM/wDMzADMmQDMZgDMMwDMAACZ/wCZzACZmQCZZgCZMwCZAABm/wBmzABmmQBmZgBmMwBmAAAz
>
/wAzzAAzmQAzZgAzMwAzAAAA/wAAzAAAmQAAZgAAMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
>
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
>
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAFAAUAEAIQwBJCBxI
>
sKBBAAgTKlyYUCDDhwsdQpwoceLDihYjksh4cSNHjR9BhmzocSQAjCFRflTJkWVGlxZhUiw5UiZE
> gzhzBgQAOw==
>
> ------=_NextPart_000_001E_01C2D28C.09703C40--
>
>
> --__--__--
>
> Message: 2
> Date: Wed, 12 Feb 2003 11:43:53 -0200
> From: Luciano <lup@terra.com.br>
> To: cascavel-pm@mail.pm.org
> Subject: Re: [Cascavel-pm] Interface em Perl
> Reply-To: cascavel-pm@mail.pm.org
>
> Oi Márcia...
>
>     Sim, é possível fazer Interfaces de Classes em Perl sim. A palavra
> use seria considerado o import do Java, não um extends. Isso fando em um
> contexto orientado a objetos.
> Você não pode confundir isso. A implementação de Orientação a Objetos na
> Perl 5 não é muito trivial se comparada a C++ ou Java, mas é bem
> completa, tanto que implementa recursos avançados como herança múltipla
> e meta-classes. A Perl 6 será mais trivial de programar. Mas mesmo assim
> não quero desencorajar você a aprender OOP em Perl. Este tutorial vai
> ajudar:
>
> http://www.perl.com/doc/manual/html/pod/perltoot.html
>
> As classes em Perl 5 são packages.
>
> Espero ter ajudado.
>
>     Luciano Greiner
>
>
> Marcia Henke wrote:
>
> > Olá pessoal !
> >
> > Gostaria de saber se em Perl, consegue-se trabalhar com Interface,
> > para implementar métodos, como ocorre em java. Saliento que não estou
> > falando de GUI.
> > A palavra reservada "use", funciona como um extends ????
> >
> > Agradeço a atenção
> > _________________________________
> > Márcia Henke
> > mhenke@inf.ufrgs.br <mailto:mhenke@inf.ufrgs.br>
> > marciahenke@ibest.com.br <mailto:marciahenke@ibest.com.br>
> > 0XX(51)3316-7024
> > 0XX(51)9121-0947
> >
> > ------------------------------------------------------------------------
> > Esta mensagem foi verificada pelo E-mail Protegido Terra
> > <http://www.emailprotegido.terra.com.br/>.
> > Scan engine: VirusScan / Atualizado em 05/02/2003 / Versão: 1.3.13
> > Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
> >
>
>
>
>
>
> --__--__--
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
>
> End of Cascavel-pm Digest


From ednardo em elobo.cjb.net  Thu Feb 13 11:06:03 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Re: Cascavel-pm digest, Vol 1 #26 - 2 msgs
In-Reply-To: <001d01c2d381$a873d2c0$4253368f@inf.ufrgs.br>
References: <200302121801.h1CI16r10422@mail.pm.org> <001d01c2d381$a873d2c0$4253368f@inf.ufrgs.br>
Message-ID: <20030213170602.GA308@pinguim.elobo.cjb.net>

On Thu, Feb 13, 2003 at 02:02:13PM -0300, Marcia Henke wrote:
> Olá Pessoal e Luciano !!!
>
> Agradeço o link  da apostila, Luciano. Mas ela não  fala em Herança de
> Interface para  Perl. Eu até  achei uma pequena descrição  no Advanced
> Perl  Programming,  mas nenhum  exemplo,  nem  ao menos  qual  palavra
> reservado se usa para uma herança de interface.
> Estou fazendo um  programa para monitorar serviços de  um servidor, já
> implementei todos  os serviços  como um pacote  (.pm), e  os intanciei
> para  minha classe  monitor.pl,  mas  gostaria de  cria  um pacote  de
> interface para armazenar nele os metodos públicos para esses serviços.
> Meu programa esta totalmente orientado a objeto.
>
> Agradeço alguma dica
> Márcia

    Márcia,

    A herança de  métodos, na perl, é implementada usando  o array @ISA,
que deverá ser inicializado como o nome das classes (.pm) que contiverem
métodos a serem herdados.

    Para mais detalhes, dê uma olhada em 'man perltoot'.
    
-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
It's hard to tune heavily tuned code.  :-)
             -- Larry Wall in <199801141725.JAA07555@wall.org>

From ednardo em elobo.cjb.net  Thu Feb 13 11:17:47 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] Convertendo caracteres acentuados para entidades HTML
Message-ID: <20030213171747.GB308@pinguim.elobo.cjb.net>

    Fábio,

    Escrevi uma versão melhorada desse programa com suporte a PIPE.

    O mesmo pode ser executado da seguinte forma:


    asc2cod artigo.xml

    ou

    asc2cod.pl < artigo.xml

    ou 

    cat artigo.xml | asc2cod.pl


    Também otimizei a conversão dos caracteres acentuáveis!!


    O fonte está e anexo!!
    

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : asc2cod.pl
Tipo  : application/x-perl
Tam   : 1122 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030213/54efb305/asc2cod.bin
From mouse em oscara.com.br  Thu Feb 13 13:27:06 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] CGI + =?ISO-8859-1?Q?Autentica=E7=E3o?=
Message-ID: <1045164425.4132.15.camel@charles-linux.integral.inf.br>

Ola, estou fazendo uns cgis em perl + apache e gostaria de implementar
uma tela de login para que pudesse ser acessado as demais páginas...

Não tenho nem idéia por onde começar, alguém pode me mostrar o início do
caminho?
-- 


    
                 |mouse|
          Linux user    #159540
          UiN           #36351944
                  WR 27
   Eletronic mail  mouse@200.247.227.246
  "Sem saber que era impossivel, ele fez." 
         www.oscara.com.br/mouse
    www.joinvillepanzers.hpg.ig.com.br


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/M d++ s-:- a-- C+++ UL+++ P+ L+++$
E-- W++ K- w O- M- PS+ PGP- tv- b++
G++ h-- r y+++
------END GEEK CODE BLOCK------


From ednardo em elobo.cjb.net  Thu Feb 13 17:16:40 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] CGI + =?iso-8859-1?Q?Aut?=
	=?iso-8859-1?B?ZW50aWNh5+Nv?=
In-Reply-To: <1045164425.4132.15.camel@charles-linux.integral.inf.br>
References: <1045164425.4132.15.camel@charles-linux.integral.inf.br>
Message-ID: <20030213231640.GD308@pinguim.elobo.cjb.net>

On Thu, Feb 13, 2003 at 05:27:06PM -0200, |mouse| wrote:
> Ola, estou fazendo uns cgis em perl + apache e gostaria de implementar
> uma tela de login para que pudesse ser acessado as demais páginas...
>
> Não tenho nem idéia por onde  começar, alguém pode me mostrar o início
> do caminho?
> -- 
> 
> 
>     
>                  |mouse|
>           Linux user    #159540
>           UiN           #36351944
>                   WR 27
>    Eletronic mail  mouse@200.247.227.246
>   "Sem saber que era impossivel, ele fez." 
>          www.oscara.com.br/mouse
>     www.joinvillepanzers.hpg.ig.com.br

    Há duas formas de se fazer isso: uma simples e outra complexa

    A forma  simples, é  através de uma  reconfiguração no  Apache. Essa
reconfiguração consiste  em atribuir a  uma determinada pasta  abaixo do
seu diretório raiz  (ROOT) ou no próprio, onde o  site está hospedado, a
caracterista  de protegida  e atribuir-lhe  um 'login/senha'  de acesso.
Toda vez  que alguém  tentar acessar  essa pasta  o apache  notificará o
navegador (ex:  Mozilla, Netscape)  da necessidade de  um 'login/senha',
esse  por sua  vez  apresentará  uma tela  ao  usuário  onde ele  deverá
informar o 'login/senha'.  Em muitos casos, essa  reconfiguração só pode
ser  feita pelo  administrador do  servidor, mas  em alguns  casos basta
apenas  criar um  arquivo chamado  '.htaccess'  na pasta  que se  deseja
proteger com a seguinte configuração (essa não é a única configuração
possível, mas para a maioria é adequada):

    AuthType Basic
    AuthName "Pasta protegida"
    AuthUserFile htpasswd
    Require valid-user

    Essa não  é a única  configuração possível,  mas para a  maioria dos
casos  é  adequada.  É  preciso  criar também  o  arquivo  'htpasswd'  e
inicializá-lo com linhas no formato '<login>:<senha>' contendo o 'login'
e 'senha' de acesso. Por exemplo:

    jose:kWrGsXDe/hIEs

    A  senha deve  ser criptografada  (SHA/MD5) e  para isso,  você pode
utilizar a função  'crypt' da própria Perl ou o  programa 'htpasswd' que
acompanha o Apache.
                    

    A  forma  complexa, bem,  na  verdade  realmente bastante  complexa,
não  sei ao  certo  como fazê-la!  :-) Mas  você  precisará, no  mínimo,
utilizar  'cookies' e  um  sistema para  controle  de sessão  (recomendo
Apache::Session). E ainda assim, não sei  se será tão eficiente e segura
quando a forma simples que expliquei anteriormente.


    Boa sorte !!!

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
BOFH excuse #320:

You've been infected by the Telescoping Hubble virus.

From emaildozeh em bol.com.br  Thu Feb 13 18:09:53 2003
From: emaildozeh em bol.com.br (nerdz)
Date: Mon Aug  2 21:26:33 2004
Subject: [Cascavel-pm] hora e data
Message-ID: <20030213210953.2a1d7e55.emaildozeh@bol.com.br>

Olá. Perdoem a minha pergunta de iniciante mas tenho que perguntar. Como que faz para pegar a hora e a data e colocálas em variáveis? Não achei funções que fizessem isso. Se alguém puder me ajudar...! ;)

From emaildozeh em bol.com.br  Thu Feb 13 18:12:26 2003
From: emaildozeh em bol.com.br (nerdz)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] (no subject)
Message-ID: <20030213211226.1f933c9a.emaildozeh@bol.com.br>

ha! se alguém puder me indicar tb uma boa apostila em *português* de cgi/perl, ficarei imensamente grato. ;)

From ednardo em elobo.cjb.net  Thu Feb 13 19:02:32 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] hora e data
In-Reply-To: <20030213210953.2a1d7e55.emaildozeh@bol.com.br>
References: <20030213210953.2a1d7e55.emaildozeh@bol.com.br>
Message-ID: <20030214010232.GF308@pinguim.elobo.cjb.net>

On Thu, Feb 13, 2003 at 09:09:53PM -0300, nerdz wrote:
> Olá. Perdoem  a minha pergunta  de iniciante mas tenho  que perguntar.
> Como que faz para pegar a hora  e a data e colocálas em variáveis? Não
> achei funções que fizessem isso. Se alguém puder me ajudar...! ;)
>

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);


    Veja 'man perlfunc' para maiores detalhes!

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
	Esperar? O que? Esta tudo em ti.
		-- Enrique Agilda 

From ednardo em elobo.cjb.net  Thu Feb 13 19:06:30 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] (no subject)
In-Reply-To: <20030213211226.1f933c9a.emaildozeh@bol.com.br>
References: <20030213211226.1f933c9a.emaildozeh@bol.com.br>
Message-ID: <20030214010630.GG308@pinguim.elobo.cjb.net>

On Thu, Feb 13, 2003 at 09:12:26PM -0300, nerdz wrote:
> ha! se alguém  puder me indicar tb uma boa  apostila em *português* de
> cgi/perl, ficarei imensamente grato. ;)
>

    http://www.elobo.cjb.net/index.cgi?op=4

    Para iniciantes apenas!!

    Se  encontrar   qualquer  erro,  mesmo  de   português,  por  favor,
notifique-me.  Escrevi esse  tutorial há  algum tempo  e já  devia tê-lo
revisado. Ainda farei isso! Espero que o ajude!!


-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

From mouse em oscara.com.br  Fri Feb 14 07:50:24 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] CGI + =?ISO-8859-1?Q?Autentica=E7=E3o?=
In-Reply-To: <20030213231640.GD308@pinguim.elobo.cjb.net>
References: <1045164425.4132.15.camel@charles-linux.integral.inf.br>
	 <20030213231640.GD308@pinguim.elobo.cjb.net>
Message-ID: <1045230624.1058.46.camel@charles-linux.integral.inf.br>

Lendo isso e mais algumas coisas, lembrei de uma luz.... usar
mod_auth_mysql...

,o)

]['s

|mouse|

Em Qui, 2003-02-13 às 21:16, Ednardo Lobo escreveu:
> On Thu, Feb 13, 2003 at 05:27:06PM -0200, |mouse| wrote:
> > Ola, estou fazendo uns cgis em perl + apache e gostaria de implementar
> > uma tela de login para que pudesse ser acessado as demais páginas...
> >
> > Não tenho nem idéia por onde  começar, alguém pode me mostrar o início
> > do caminho?
> > -- 
> > 
> > 
> >     
> >                  |mouse|
> >           Linux user    #159540
> >           UiN           #36351944
> >                   WR 27
> >    Eletronic mail  mouse@200.247.227.246
> >   "Sem saber que era impossivel, ele fez." 
> >          www.oscara.com.br/mouse
> >     www.joinvillepanzers.hpg.ig.com.br
> 
>     Há duas formas de se fazer isso: uma simples e outra complexa
> 
>     A forma  simples, é  através de uma  reconfiguração no  Apache. Essa
> reconfiguração consiste  em atribuir a  uma determinada pasta  abaixo do
> seu diretório raiz  (ROOT) ou no próprio, onde o  site está hospedado, a
> caracterista  de protegida  e atribuir-lhe  um 'login/senha'  de acesso.
> Toda vez  que alguém  tentar acessar  essa pasta  o apache  notificará o
> navegador (ex:  Mozilla, Netscape)  da necessidade de  um 'login/senha',
> esse  por sua  vez  apresentará  uma tela  ao  usuário  onde ele  deverá
> informar o 'login/senha'.  Em muitos casos, essa  reconfiguração só pode
> ser  feita pelo  administrador do  servidor, mas  em alguns  casos basta
> apenas  criar um  arquivo chamado  '.htaccess'  na pasta  que se  deseja
> proteger com a seguinte configuração (essa não é a única configuração
> possível, mas para a maioria é adequada):
> 
>     AuthType Basic
>     AuthName "Pasta protegida"
>     AuthUserFile htpasswd
>     Require valid-user
> 
>     Essa não  é a única  configuração possível,  mas para a  maioria dos
> casos  é  adequada.  É  preciso  criar também  o  arquivo  'htpasswd'  e
> inicializá-lo com linhas no formato '<login>:<senha>' contendo o 'login'
> e 'senha' de acesso. Por exemplo:
> 
>     jose:kWrGsXDe/hIEs
> 
>     A  senha deve  ser criptografada  (SHA/MD5) e  para isso,  você pode
> utilizar a função  'crypt' da própria Perl ou o  programa 'htpasswd' que
> acompanha o Apache.
>                     
> 
>     A  forma  complexa, bem,  na  verdade  realmente bastante  complexa,
> não  sei ao  certo  como fazê-la!  :-) Mas  você  precisará, no  mínimo,
> utilizar  'cookies' e  um  sistema para  controle  de sessão  (recomendo
> Apache::Session). E ainda assim, não sei  se será tão eficiente e segura
> quando a forma simples que expliquei anteriormente.
> 
> 
>     Boa sorte !!!
-- 


    
                 |mouse|
          Linux user    #159540
          UiN           #36351944
                  WR 27
   Eletronic mail  mouse@200.247.227.246
  "Sem saber que era impossivel, ele fez." 
         www.oscara.com.br/mouse
    www.joinvillepanzers.hpg.ig.com.br


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/M d++ s-:- a-- C+++ UL+++ P+ L+++$
E-- W++ K- w O- M- PS+ PGP- tv- b++
G++ h-- r y+++
------END GEEK CODE BLOCK------


From alex em less.com.br  Tue Feb 18 06:44:33 2003
From: alex em less.com.br (Alex Fernando Kirsten)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] Re: Curiosidade
Message-ID: <000801c2d74b$7d023190$5501a8c0@RAS>

bash# cat code 
print "yo\n";
bash# perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code > new
bash# cat new
                            
                              
                     
                          
                                
                                
                                  
                                     
                           
                                                  
                          
                                  
                 
bash# perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new
yo
bash# 

*****************************

Poderiamos chamar isso de "Codificação por tabulação"

[]'s

Alex

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20030218/c0e143c6/attachment.htm
From ednardo em elobo.cjb.net  Thu Feb 20 10:59:47 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] [OFF TOPIC]: =?iso-8859-1?Q?Por=E9?=
 =?iso-8859-1?Q?m?= importante !!
Message-ID: <20030220165947.GA308@pinguim.elobo.cjb.net>

----- Forwarded message from Dicas-L-Owner@unicamp.br -----

Date: Thu, 20 Feb 2003 13:00:17 -0300 (BRT)
From: Dicas-L-Owner@unicamp.br
To: undisclosed-recipients: ;

Estou  enviando a  vocês  uma  mensagem do  Ronaldo  Cardozo Lages,  com
relação ao Projeto Software Livre RS. O Ronaldo é uma das muitas pessoas
ativamente envolvidas no movimento software livre no Rio Grande do Sul e
trabalhou  na organização  dos  três fóruns  internacionais de  software
livre de Porto Alegre.

Esta mensagem  trata da continuidade desta  iniciativa importantíssima e
de algumas ações para que isto ocorra.

Quem se interessar, por favor, continue lendo.

Obrigado,

Rubens
----------------------------------------------------------------------
Apoiadores do Software Livre!

Se não sabem ainda, o Projeto Software Livre RS [PSL-RS], articulação de
entidades  públicas  e  privadas,  universidades,  governos,  grupos  de
usuários e voluntários que apóiam  a ampla disseminação dos conceitos de
Software  Livre,  Código  Aberto  e Software  Público  Brasileiro,  está
disponibilizando um  novo servidor  "livre" de listas  e quer  que vocês
colaborem divulgando esse informe em  suas listas de usuários, canais de
chat ou contatos com outros apoiadores nacionais dessa causa.

Para quem  desconhece, o PSL-RS  é o organizador do  Fórum Internacional
Software  Livre 2003  [FISL2003], maior  evento multi-disciplinar  nessa
área, que este ano será de 5 a 7 de junho, no Centro de Eventos da PUCRS
[mesmo  local de  2002]. O  espaço está  confirmado e  temos o  apoio de
infra-estrutura da PROCEMPA  [estatal do município de  Porto Alegre, com
apoio oficial da Prefeitura]. Mas, como sabem, o atual governo do estado
do RS não se posicionou quanto ao  Software Livre como o fez o anterior,
portanto a parceria  com a PROCERGS não é certa.  Então, para realizar a
demanda amplamente  votada no encerramento do  FISL2002, precisaremos de
muitas  iniciativas  e  colaborações da  Comunidade,  principalmente  de
voluntários do GUs e seus contatos  em empresas que queiram divulgar sua
marca junto e durante o FISL2003. Como foi dito na época, está em nossas
mãos!

Mas para  organizar tudo isso,  o PSL-RS disponibilizou  diversas listas
que agregam voluntários [inclusive  empresários] que querem colaborar de
fato nessa organização. Na minha  assinatura [ao pé desta mensagem] está
o link para o diretório de  listas. Algumas delas, devo já sinalizar sua
finalidade [todas elas dão preferência ao modo texto]:

*  Coordenação: membros  da  Coordenação  do PSL-RS  e  debates sobre  a
organização  do  FISL2003.  Somente pessoas  convidadas  serão  aceitas,
devendo   elas   se   apresentarem  formalmente   aos   adiministradores
[coordenacao-owner@listas.softwarelivre.org].  Representantes de  outras
ONGs, GUs, empresas, universidades,  cursos, escolas, órgãos de governo,
etc.  podem  ser   aceitos  contando  que  sigam   o  procedimento  aqui
apresentado.

* GTs: verão  que existem vários GTs que tem  finalidades específicas na
organização do  FISL2003. Aceitamos voluntários de  outros estados desde
que  se  apresentem  formalmente  aos  administradores  de  cada  lista:
GT-<nome>-owner@listas.softwarelivre.org  e  assumam  o  compromisso  de
atuar [assumir tarefas] para a realização do FISL2003.

*  Notícias:  lista pública  de  divulgação  [não debates]  de  qualquer
notícia  sobre  Software Livre,  Código  Aberto,  Softwares Públicos  no
Brasil e no exterior, visando disseminar o está acontecendo no mundo. As
notícias devem sempre explicitar a  fonte da informação [colocar o link]
e seus autores e serão monitoradas antes da publicação.

* Informes:  lista pública [não debates]  de iniciativas do PSL-RS  e de
seus membros. Segue as mesmas regras da lista Notícias.

*  Estratégia:  lista  pública  de  debates  sobre  estratégias  para  a
promoção  do  Software  Livre.  Ela  é  uma  iniciativa  do  pessoal  do
QuilomboDigital.org e é administrada por eles.

* ONG-BR:  Atenção pois essa merece  um destaque especial! O  PSL-RS crê
que  está  na  hora  do  Movimento Software  Livre  no  Brasil  ter  uma
identidade que o apresente nos fóruns oficiais de discussão de politicas
de Tecnologia de  Informação e Comunicações e de  Inclusão Digital. Para
isso  precisamos  de  uma  entidade  nacional  que  congregue  todos  os
apoiadores  dessa causa  e que  prestigie seus  afiliados como  os reais
atuantes em  suas regiões. Para  isso estamos fazendo o  debate nacional
através  desta lista,  buscando ter  durante o  FISL2003 uma  assembléia
geral que oficialize tudo que debatemos na fundação de uma ONG. Portanto
quanto mais amplo for esse debate maior aceitação e penetração terá essa
ONG  e essa  lista pública  visa justamente  isso, aproximar  todos para
realizar esse sonho.

Feita nossa  apresentação, queremos extender  o convite para  que venham
integrar-se  a nossa  luta. Não  prometemos facilidades,  mas sim  muito
trabalho e  a gratificação de  construir algo que certamente  ajudará na
democratização  da informação,  na inclusão  digital sem  restrições, na
informatização dos serviços públicos e  no maior controle do Estado pela
população, fazendo  a revolução  social e  pacífica que  todos almejamos
para o Brasil.

Sejam bem-vindos  as nossas listas e  vamos construir a ONG  nacional do
Software Livre!

Obrigado pela especial atenção.
Paz, Vida Longa e Prospere!
   ____   ____   _
  |  _ \ / ___| | |    __ _  __ _  ___  ___  Ronaldo Cardozo Lages
  | |_) | |     | |   / _` |/ _` |/ _ \/ __| E-mail rclages@via-rs.net
  |  _ <| |___  | |__| (_| | (_| |  __/\__ \ ICQ #3640360 [licq 1.2.2]
  |_| \_\\____| |_____\__,_|\__, |\___||___/ Porto Alegre, RS - Brasil
                            |___/
Debian-BR #407 [Woody] GNU/LinuxCounter #128171 GNU/LinuxMachine #178124
Portal do Projeto Software Livre RS [http://www.softwarelivre.org]
Servidor de Listas [http://listas.softwarelivre.org/mailman/listinfo]


----- End forwarded message -----

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
She asked me, "What's your sign?"
I blinked and answered "Neon,"
I thought I'd blow her mind...

From emaildozeh em bol.com.br  Fri Feb 21 19:45:27 2003
From: emaildozeh em bol.com.br (nerdz)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] query string
Message-ID: <20030221214527.29147586.emaildozeh@bol.com.br>

oi! como faço para manipular os dados enviados ao meu cgi script pelo método GET?

tem algum texto na net ae que eu possa ler? estou atrás já faz o maior tempão e não acho! ;(

From lup em terra.com.br  Fri Feb 21 20:06:24 2003
From: lup em terra.com.br (=?iso-8859-1?Q?lup?=)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] =?iso-8859-1?Q?Re:[Cascavel-pm]_query_string?=
Message-ID: <HAOTUO$EE83A882BA75FDAFAABA4FCB06D83F76@terra.com.br>

Olá, isso vai ajudar:

coloque essa função no seu código:
sub get_data {
        my $temp;
        my @data;
        foreach $temp (split(/&|=/,$ENV{'QUERY_STRING'})) {
                $temp =~ tr/+/ /;
                $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
		$temp =~ s/[\r\n]/ /g;
                push @data, $temp;
        }
        return @data;
}

no início do programa vc coloca, por exemplo:

my %form = &get_data;

pronto, agora vc pode acessar no seu programa os dados enviados pelo método get já formatados corretamente.
Você pode fazer isso assim, por exemplo:

$form{NOME} ... isso retorna o valor de NOME no formulário... assim vai.

Espero ter ajudado.
Gosto sempre de citar... esse código foi retirado de sua forma original de everysoft.com (Everyaucion), software sob GPL, e foi modificado ligeiramente por mim.

Um abraço a todos!

    Luciano Greiner 


De:cascavel-pm-admin@mail.pm.org

Para:cascavel-pm@mail.pm.org

Cópia:

Data:Fri, 21 Feb 2003 21:45:27 -0400

Assunto:[Cascavel-pm] query string

  

> oi! como faço para manipular os dados enviados ao meu cgi script pelo método GET?
> 
> tem algum texto na net ae que eu possa ler? estou atrás já faz o maior tempão e não acho! ;(
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: VirusScan / Atualizado em 19/02/2003 / Versão: 1.3.13
> Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
> 
> 


From emaildozeh em bol.com.br  Sat Feb 22 13:21:10 2003
From: emaildozeh em bol.com.br (nerdz)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] rodando um script dentro de outro
Message-ID: <20030222152110.6f7a2e47.emaildozeh@bol.com.br>

antes de mais nada, obrigado pela ajuda com o query string.
agora eu estou com outra dúvida, hehe!
como eu faço para rodar um script dentro de outro? 
eu quero fazer isso de forma que eu possa usar as variáveis do primeiro no segundo. tem jeito? como?

From ednardo em elobo.cjb.net  Sat Feb 22 13:37:56 2003
From: ednardo em elobo.cjb.net (Ednardo Lobo)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] rodando um script dentro de outro
In-Reply-To: <20030222152110.6f7a2e47.emaildozeh@bol.com.br>
References: <20030222152110.6f7a2e47.emaildozeh@bol.com.br>
Message-ID: <20030222193756.GI308@pinguim.elobo.cjb.net>

On Sat, Feb 22, 2003 at 03:21:10PM -0400, nerdz wrote:
> antes de mais nada, obrigado pela ajuda com o query string.
> agora eu estou com outra dúvida, hehe!
> como eu faço para rodar um script dentro de outro? 
> eu  quero fazer  isso  de forma  que  eu possa  usar  as variáveis  do
> primeiro no segundo. tem jeito? como?
>

    Existe a função "system", porém, o que ela faz, é uma "system call",
isso  significa que  as variáveis  internas  ao seu  "script" não  serão
acessíveis pelo outro "script", acionado através da função "system".

    O  que  você  deve  fazer,  é criar  um  conjunto  de  funções,  uma
biblioteca (.pm), e chamar essas funções  para as tarefas que desejar. A
inclusão de uma  bibliote/módulo em um script pode ser  feita através da
funções  "use"  (preferencialmente)  ou  "require".  Dê  uma  olhada  na
documentação em "man perlfunc".

-- 
    Ednardo Lobo - www.elobo.cjb.net

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html

--
The real trouble with reality is that there's no background music.

From mouse em oscara.com.br  Mon Feb 24 06:58:07 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] Problemas com paginas incompletas nos cgis
Message-ID: <1046091487.1558.6.camel@charles-linux.integral.inf.br>

Ola pessoas, be ele ze?

Estou trabalhando em cima de um CGI feito em perl com acessoa ao banco
MySQL.

Tenho umas funcoes assim para motar a pagina:

Select no banco.
Enquanto @data = Retorno do select {
	outro select no banco usando outro filehandle usando a var @data
}

Quando o retorno do primeiro select eh pequeno, a pagina eh montada e
terminada corretamente e nao fica nenhum processo pendente.
Mas quando o retorno eh muito grande (100 linhas +-), a pagina nao eh
montada totalmente, e fica o processo pendente, como se estivesse em um
looop, e o problema nao eh sempre na mesma linha

Alguma luz?

-- 


    
                 |mouse|
          Linux user    #159540
          UiN           #36351944
                  WR 27
   Eletronic mail  mouse@200.247.227.246
  "Sem saber que era impossivel, ele fez." 
         www.oscara.com.br/mouse
    www.joinvillepanzers.hpg.ig.com.br


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/M d++ s-:- a-- C+++ UL+++ P+ L+++$
E-- W++ K- w O- M- PS+ PGP- tv- b++
G++ h-- r y+++
------END GEEK CODE BLOCK------


From mouse em oscara.com.br  Mon Feb 24 08:07:08 2003
From: mouse em oscara.com.br (|mouse|)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] Problemas com paginas incompletas nos cgis
In-Reply-To: <1046091487.1558.6.camel@charles-linux.integral.inf.br>
References: <1046091487.1558.6.camel@charles-linux.integral.inf.br>
Message-ID: <1046095628.1563.10.camel@charles-linux.integral.inf.br>

Opa!
Achei o problema, era dentro da funcao do segundo select que dava um
return na hora errada...
Agora esta ok e o processo termina susussegado...

]['s

|mouse|


Em Seg, 2003-02-24 às 09:58, |mouse| escreveu:
> Ola pessoas, be ele ze?
> 
> Estou trabalhando em cima de um CGI feito em perl com acessoa ao banco
> MySQL.
> 
> Tenho umas funcoes assim para motar a pagina:
> 
> Select no banco.
> Enquanto @data = Retorno do select {
> 	outro select no banco usando outro filehandle usando a var @data
> }
> 
> Quando o retorno do primeiro select eh pequeno, a pagina eh montada e
> terminada corretamente e nao fica nenhum processo pendente.
> Mas quando o retorno eh muito grande (100 linhas +-), a pagina nao eh
> montada totalmente, e fica o processo pendente, como se estivesse em um
> looop, e o problema nao eh sempre na mesma linha
> 
> Alguma luz?
-- 


    
                 |mouse|
          Linux user    #159540
          UiN           #36351944
                  WR 27
   Eletronic mail  mouse@200.247.227.246
  "Sem saber que era impossivel, ele fez." 
         www.oscara.com.br/mouse
    www.joinvillepanzers.hpg.ig.com.br


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/M d++ s-:- a-- C+++ UL+++ P+ L+++$
E-- W++ K- w O- M- PS+ PGP- tv- b++
G++ h-- r y+++
------END GEEK CODE BLOCK------


From mhenke em inf.ufrgs.br  Tue Feb 25 14:32:52 2003
From: mhenke em inf.ufrgs.br (Marcia Henke)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] Atributos
Message-ID: <1046205172.3e5bd2f407ba1@webmail.inf.ufrgs.br>

Olá pessoal,

estou tendo um probleminha com o código que estou implementando.
Eu ainda não entendi, como o Perl se comporta quando trabalhando orientado a 
objeto. 
Tenho o pacote LogManager.pm :
package LogManager;
my %month = ();
sub new {
  my $type = shift;
  my $self = {};
  readNameFile();
  $self->{month} = \%month;
  bless $self;
  return $self;
}
sub readNameFile {
  open (FILE, "< /home/monitor/novo/nameFile.dat") or die "Impossível abrir 
nameFile.dat:$!";
  while (<FILE>) {
    chomp;
    ($value, $name) = split(" ", $_, 2);
    if ($value) {
      $month{$value} = $name;
    }
  }
  close (FILE);
}
sub getName {
  my ($this, $value) = @_;
  $value = $_[1];
  return $month{$value};
}
1;
####################
Tenho um pacote de controle ServerController.pm:
package ServiceController;
use LogManager;
@ISA = ("LogManager");
$objLog = new LogManager();
sub new {
  my $type = shift;
  my $self = {};
  bless $self;
  return $self;
}
####################
E uma classe Principal (teste.pl) que contém minha Lógica, onde estou testando 
alguns metodos e estou tendo retorno "vázio":

#!/usr/bin/perl -I/home/monitor/novo

$valueSERVICES = ServiceController->getValue($flagFileSERVICES);
print "$valueSERVICES\n"; 
$file1 = ServiceController->getName($valueSERVICES);
print $file1 . "\n";


O problema é que não consigo obter o nome do arquivo, pois pelo que entendi 
quando chamo métodos herdados de outros pacotes como o getName(), que é do 
LogManager.pm, que é herdado pelo ServiceController.pm ele se perde e não acha 
o valor e nome que são atributos do pacote.
Como trato isso em perl.
Espero ter conseguido me expressar.
Agradeço atenção e toda ajuda é bem vinda
Márcia











From glasswalk3r em yahoo.com.br  Fri Feb 28 12:37:42 2003
From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Mon Aug  2 21:26:34 2004
Subject: [Cascavel-pm] =?ISO-8859-1?Q?refer=EAncias?= e pseudohashes
Message-ID: <20030228153742.04785a20.glasswalk3r@yahoo.com.br>

Olá lista,

Hoje eu estava consultando a bíblia do Perl (Programação Perl) e lendo sobre referências e pseudohashes...

Eu não sei se eu é que sou burro, ou a tradução para o português ficou horrível ou o assunto é complicado mesmo... enfim, eu não entendi lhufas!

Até referências rígidas eu entendi que seriam úteis para criar arrays e hashes multidimensionais, mas depois de tantas notações diferentes eu acabei me perdendo.

Alguém poderia me explicar melhor para que servem tais estruturas?

Grato à todos,



-- 
Alceu Rodrigues de Freitas Junior
glasswalk3r@yahoo.com.br
---------------------------------------------------------------
"The 7 Deadly Sins are:/ Wealth without work/ Pleasure without
conscience/ Knowledge without character/ Business without
morality/ Science without humanity/ Worship without sacrifice/
Politics without principle" - Mahatma Ghandi
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁºÇa¨h£ó¬z»âþ‡^nëjf¢±Ê&¦W­¡Öˆž×«�ëÿ:«ž¾‡ÿ¥éìjºj(ýéÜ¢{kkøm¶Ÿÿýºÿnëküš†Šÿr‰¿

From glasswalk3r em yahoo.com.br  Fri Feb 28 13:57:06 2003
From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Mon Aug  2 21:26:35 2004
Subject: [Cascavel-pm] captura de mensagens de programa
Message-ID: <20030228165706.0faeb54d.glasswalk3r@yahoo.com.br>

Olá lista,

Estou tentando criar um CGI que executa um comando de sistema. Como iniciativa de torná-lo mais seguro, eu ativei o modo Taint (-T).

Para poder executar o programa sem chamar o shell eu tenho que fazer:

system ("/usr/bin/programa","parametro1","parametro2");

ou então

my $pid = open (PROG,"-|");
die "cannot fork $!" unless defined $pid;
unless ($pid) {
	exec /usr/bin/programa, $parametro1, $parametro2 or die "cannot open pipe programa: $!";
}

Como eu quero capturar a saída do programa, eu logicamente deveria utilizar a segunda forma. O problema é que eu queria testar a execução do programa, e em caso de erro, utilizar a própria mensagem do programa e criar uma mensagem acompanhada de header http e tudo o mais.

my $pid = open (PROG,"-|");
die "cannot fork $!" unless defined $pid;
unless ($pid) {
	my $resultado = exec /usr/bin/programa, $parametro1, $parametro2;
}

A variável escalar $resultado simplesmente não recebe valor algum! Eu não quero usar die para verificar a saída do programa, e sim checar o valor da variável para exibir ou não uma mensagem de erro.

Alguém já passou por situação semelhante? Eu variações do uso de open, sem sucesso.

[]'s


-- 
Alceu Rodrigues de Freitas Junior
glasswalk3r@yahoo.com.br
---------------------------------------------------------------
"The 7 Deadly Sins are:/ Wealth without work/ Pleasure without
conscience/ Knowledge without character/ Business without
morality/ Science without humanity/ Worship without sacrifice/
Politics without principle" - Mahatma Ghandi

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁºÇa¨h£ó¬z»âþ‡^nëjf¢±Ê&¦W­¡Öˆž×«�ëÿ:«ž¾‡ÿ¥éìjºj(ýéÜ¢{kkøm¶Ÿÿýºÿnëküš†Šÿr‰¿

From glasswalk3r em yahoo.com.br  Fri Feb 28 19:15:09 2003
From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Mon Aug  2 21:26:35 2004
Subject: [Cascavel-pm] =?ISO-8859-1?Q?refer=EAncias?= e pseudohashes
In-Reply-To: <20030310044226.GB467@pinguim.elobo.cjb.net>
References: <20030228153742.04785a20.glasswalk3r@yahoo.com.br>
	<20030310044226.GB467@pinguim.elobo.cjb.net>
Message-ID: <20030228221509.2bd32872.glasswalk3r@yahoo.com.br>

Senhores,

Agradeço À todos pela ajuda. Mas consultando o Tutorial de Referências em www.perl.com eu descobri que está complicado mesmo no livro. Agora se a linguagem do livro é complicada ou a tradução é ruim, aí eu não sei responder mesmo.

[]'s


-- 
Alceu Rodrigues de Freitas Junior
glasswalk3r@yahoo.com.br
---------------------------------------------------------------
"The 7 Deadly Sins are:/ Wealth without work/ Pleasure without
conscience/ Knowledge without character/ Business without
morality/ Science without humanity/ Worship without sacrifice/
Politics without principle" - Mahatma Ghandi


On Mon, 10 Mar 2003 01:42:26 -0300
Ednardo Lobo <ednardo@elobo.cjb.net> wrote:

> On Fri, Feb 28, 2003 at 03:37:42PM -0300, Alceu Rodrigues de Freitas Junior wrote:
> > Olá lista,
> > 
> > Hoje eu estava consultando a bíblia do Perl (Programação Perl) e lendo
> > sobre referências e pseudohashes...
> >
> > Eu não sei se eu é que sou burro, ou a tradução para o português ficou
> > horrível  ou o  assunto é  complicado mesmo...  enfim, eu  não entendi
> > lhufas!
> >
> > Até referências rígidas eu entendi  que seriam úteis para criar arrays
> > e hashes  multidimensionais, mas depois de  tantas notações diferentes
> > eu acabei me perdendo.
> >
> > Alguém poderia me explicar melhor para que servem tais estruturas?
> >
> > Grato à todos,
> > 
> 
>     Olha, não li esse livro e não sei como o assunto esta sendo abordado
> nele, portanto,  fica difícil  dar algum palpite.  Porém, se  você puder
> enviar algum  trecho do livro  para lista, talvez possamos  analisá-lo e
> discutí-lo juntos, e chegar a algum entendimento.
> 
> -- 
>     Ednardo Lobo - www.elobo.cjb.net
> 
>     Por favor, evitem enviar anexos no formato MS-Office, obrigado!
>     Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁºÇa¨h£ó¬z»âþ‡^nëjf¢±Ê&¦W­¡Öˆž×«�ëÿ:«ž¾‡ÿ¥éìjºj(ýéÜ¢{kkøm¶Ÿÿýºÿnëküš†Šÿr‰¿