Jump to content


Photo

Web-mail


  • Faça o login para participar
11 replies to this topic

#1 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 06/11/2003, 04:38

>> OBSERVAÇÃO IMPORTANTE <<

Este sistema funciona perfeitamente com q-mail.
para funcionar com outras contas ... poderá ser necessário mudar o $email.
alguns provedores naum precisam do e-mail completo para acessar a conta.
e em alguns outros casos sera necessário trocar o local onde tem \% por \@


A um tempo atras eu tava querendo desenvolver um web-mail mas num tive tempo para termina-lo.... de qualquer forma vou postar os testes que fiz de recepção de email...


Para que o sistema funcione, o servidor deve possuir as modules:
CGI
CGI::Cookie
Mail::POP3Client
Socket

Caso você esteja em um servidor windows, entre na pasta do perl:
c:\perl\bin\
execute o arquivo ppm.exe
e instale você msm as modules.
para instalar basta digitar
install Mail::POP3Client
e ele instala sozinho.


De o nome de pop3.pl a este arquivo.

#!/usr/bin/perl

use CGI qw/:standard/;
use CGI::Cookie;
use Mail::POP3Client;
use Socket;

$form = new CGI;
$alias  = $form->param('alias');
$senha  = $form->param('senha');
$server = $form->param('server');
$smtp = $form->param('smtp');
$email = "$alias" . "\%" . "$server";

@cookies = ('alias','senha');
@valores = ($alias,$senha);

for($i = 0; $i < 2; $i++){
    $cookie = new CGI::Cookie(
            -name   => $cookies[$i],
            -value  => $valores[$i],
            -domain => $domain,
            -path   => $path
    );
    $cookie =~ s/%([a-fA-F0-9][a-fA-F0-9])/ pack("C", hex($1))/eg;
    print "Set-Cookie: $cookie\n";
}

    $pop2 = new Mail::POP3Client( HOST  => "$smtp.$server", AUTH_MODE => 'PASS' );
    $pop2->User( "$email" );
    $pop2->Pass( "$senha" );
    $pop2->Connect();
    $num_mens = $pop2->Count;

if ($num_mens <= 0) { $num_mens = '0'; }
print "Content-type: text/html\n\n";
print "<DIV ALIGN=\"LEFT\">\n";
print "<FONT SIZE=\"1\" FACE=\"TAHOMA\">\n";
print "Ola! $alias, você tem $num_mens mensagen(s) em sua caixa de entrada!<BR>&nbsp;<BR>\n";

for($i = 1; $i <= $num_mens; $i++){
    foreach($pop2->Head($i)){
       print "<A HREF=\"mens.pl?alias=$email&senha=$senha&server=$server&smtp=$smtp&mens=$i\">".$_."</A><BR>\n" if(/^(From|Subject)/);
    }
    print "<BR>&nbsp;<BR>\n";
}

print "</FONT>\n";
print "</DIV>\n";
$pop2->Close();


Salve este outro arquivo como mens.pl

#!/usr/bin/perl

use Mail::POP3Client;
use Socket;
&Leia_pedido;

$server ="$in{'server'}";
$alias ="$in{'alias'}";
$senha ="$in{'senha'}";
$smtp = "$in{'smtp'}";
$email = "$alias" . "\%" . "$server";

    $pop2 = new Mail::POP3Client( HOST  => "$smtp.$server", AUTH_MODE => 'PASS' );
    $pop2->User( "$email" );
    $pop2->Pass( "$senha" );
    $pop2->Connect() & $pop2->POPStat();

$body = $pop2->Body($in{'mens'});
#print "Content-type: text/html\n\n";
print "$body\n";
$pop2->Close();

sub Leia_pedido {
    @pares = split(/&/, $ENV{'QUERY_STRING'});

    foreach $par(@pares) {
       ($nome, $valor) = split(/=/, $par);
       $valor =~ s/~/=/g;
       $in{$nome} = $valor;
    }
}


quase ia me esquecendo, a pagina de login:
salve-a como index.html

<HTML>
<HEAD>
<TITLE>Web-Mail</TITLE>
<STYLE TYPE="text/css"><!--
    .input { Font-Size:11px; Font-Family:Tahoma; BackGround-Color:#F0F0F0; }
    .desc  { Font-Size:11px; Font-Family:Tahoma; Font-Weight:Normal; }
//--></STYLE>
</HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000">
<FORM METHOD="POST" ACTION="pop3.pl">
<INPUT TYPE="HIDDEN" NAME="smtp" VALUE="smtp">
<TABLE BORDER="1" BORDERCOLOR="#808080" CELLPADDING="0" CELLSPACING="0">
<TR><TD BGCOLOR="#F0F0F0"><FONT CLASS="desc">&nbsp;Nome:&nbsp;</FONT></TD>
<TD BGCOLOR="#F0F0F0"><INPUT TYPE="TEXT" NAME="alias" SIZE="15" CLASS="input"></TD>
<TD BGCOLOR="#F0F0F0" valign="middle"><FONT CLASS="desc">&nbsp;@<select size="1" name="server" CLASS="input">
    <option value="algumacoisa.net" selected>algumacoisa.net</option>
    <option value="lalala.com.br">lalala.com.br</option>   
  </select></FONT></TD></TR>
<TD BGCOLOR="#F0F0F0"><FONT CLASS="desc">&nbsp;Senha:&nbsp;</FONT></TD>
<TD BGCOLOR="#F0F0F0"><INPUT TYPE="PASSWORD" NAME="senha" SIZE="15" CLASS="input"></TD>
<TD BGCOLOR="#F0F0F0"><FONT CLASS="desc">&nbsp;<INPUT TYPE="SUBMIT" VALUE=" OK " CLASS="input" STYLE="Font-Size:10px;"></FONT></TD>
</FORM>
</BODY>
</HTML>


Façam bom uso... (y)

Esse sistema ta bem simples msm era so um teste .... :rolleyes:

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#2 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 06/11/2003, 05:00

Qualquer dúvida por favor não deixem de perguntar...

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#3 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 27/07/2005, 01:19

Interessante o sistema (tive que modifica-lo para funcionar)...

como eu faço pra saber se X mensagem já foi lida?

como deletar as mensagens do servidor?

flws
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#4 Gabriel

Gabriel

    CGI & PHP até Morre!!!!

  • Usuários
  • 573 posts
  • Sexo:Não informado
  • Localidade:Santo Andre-SP
  • Interesses:http://www.divulgue-me.com

Posted 27/07/2005, 13:24

lsitar numero de msg
$msg->cont();
deletar mensagem

$msg->delete($i);

flw
Editado pela equipe Forum Wmo, favor ler as regras.

#5 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 27/07/2005, 13:28

isso eu já sei...

agora só me resta saber se já foi lida ou não...
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#6 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 27/07/2005, 13:53

para este tipo de informação se ele leu ou nao voce tem q fazer uma verificação tipo apos ele entrar em uma determinada mensagem gerar um txt por exemplo:

id_do_email|lido

ai todos que tiverem id lido ele marca como lido e os outro como nao lido, seria algo do genero.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 14/09/2017, 01:48

Amoxicillin Dosage Infection Sinus cialis online Suhagra Cipla Dangers
Cephalexin Pain When Urinating Naproxen
Priligy In Canada <a href=http://cialtobuy.com>generic cialis</a> Amoxicillin No Rx
Canadian Pharmacies Mail Order cialis Prompt Pill Store
Levitra Comparison
Cialis Levitra Viagra <a href=http://cialtobuy.com>cheap cialis</a> Viagra Generico Con Receta
Amoxicillin Counter Indications cialis Clomid Absence Ovulation
Zentel Saturday Delivery No Prescription Needed On Line
All Natural Antibiotic Amoxicillin <a href=http://cialtobuy.com>buy cialis</a> Cephalexin Medication
Buy Zithromax Online Us cialis Cheap Brand Name Viagra
Viagra Indian Pharmacy Levitra Gebraucht Acheter Du Cialis Lilly
Cialis Quotidien <a href=http://cialtobuy.com>cialis</a> Buy Propecia Online In Canada

#8 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 02/10/2017, 08:03

Viagra Cialis Levitra Prezzo viagra Insuffisance Renale Lasix Spain Nebenwirkungen Cialis 10mg
Discount Erectile Dysfunction Drugs viagra vs cialis vs levitra reviews Propecia Best Price Acheter Du Propecia Rx Online
Donde Comprar Priligy Barcelona Best Site To Buy Periactins Online Buy Genuine Kamagra Online viagra online Cephalexin Lifelearn How To Last Longer Bed Can You Buy Ciprofloxacin 500 Mg Online
On Line Sales Of Viagra Cipro 10mg Cpr 4 cialis Thiazides Diuretics Buy Canadian Pharm Pamelor Priligy Generico Ecuador
Propecia Informacion online pharmacy Comprar Cialis Generico Online Amoxicillin Physician Desk Reference

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 10/10/2017, 09:28

Discount Cialis levitra 40 mg best price Levitra Order Online
Viagra 100 Mg Comprime Cialis 10 Rembourse buy viagra online Buy Woma Viagra In Canada Lasix No Prescription Overnight Levitra Sin Receta Farmacia

#10 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 06:47

Flagyl online pharmacy Viagra E Dieta Viagra Kaufen Dusseldorf Quotazione Propecia
Que Es Cialis O Levitra No Perscription Diflucan Zithromax Tendonitis buy viagra online Acheter Kamagra Oral Jelly Site Serieux Vente De Kamagra

#11 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 27/10/2017, 11:58

Vidal Levitra Potenzmittel Viagra Holland Acheter Cialis cialis price Tadalafil 40 Online Kaufen Purchase Synthroid
Priligy Kaufen Deutschland viagra Isotretinoin Cod Accepted Website
Cialis Scaduto Effetti Levitra Nuevo Cialis Effetti Collaterali viagra Moyens Eprouves Pour Durer Plus Longtemps Au Lit Candian Pharmacy Online Canada
Buy Cheap Prednisone No Prescription online pharmacy Cephalexin And Birth Control Prix Cialis 20mg
Frontal Hair Finasteride Propecia How Safe Is Propecia viagra Cialis Esiste Il Generico Viagra And Cialis Cheap

#12 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 12/11/2017, 15:15

Xenical Manufacturer Coupon Wirkung Viagra Samenerguss viagra Real On Line Stendra How To Buy Medication Overseas Buy Fluconazole 200 Mg
Donormyl Kaufen Cialis Comprare In Svizzera Rock It Man Erection Pills For Sale viagra FarmРÑСÑcia Italiana Q Vende Cytotec Acquisto Kamagra 25 Mg
Name Brand Cialis Cialis Generico Effetti Collaterali Cephalexin For Upper Respiratory Infection viagra online pharmacy Amoxicillin Online Provera Get Low Price Cialis Plus Efficace Que Viagra




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq