Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   получения письма с gmail.com (https://forum.antichat.xyz/showthread.php?t=140617)

demond 10.09.2009 20:45
получения письма с gmail.com
 
кто-нибудь пытался получить тело письма с gmail.com? получалось ли вообще. я знаю что там нужно использовать SSL. Вот мой код:
Код:
#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my  $pop = new Mail::POP3Client( USER    => $username,
                              PASSWORD => $password,
                              HOST    => "pop.gmail.com",
                              PORT => 995,
                              USESSL => 'true',
                              DEBUG => 1 );
  for(my $i = 1; $i <= $pop->Count(); $i++ ) {
    foreach( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i && print $_, "\n";
    }
  }
  $pop->Close();
но он что-то ничего не возвращает! даже DEBUG что-то ничего не выдает!
В чем может быть проблема?

Kaimi 10.09.2009 21:13
Работает все, мб у аккаунта поп3 не включен

vp$ 10.09.2009 21:18
PHP код:
<?php
            $conn = @imap_open("{imap.gmail.com:993/imap/ssl/novalidate-cert}INBOX", $mail, $pass);
            if ($conn)
            {
                $num_mgs = imap_num_msg($conn);
                echo $num_mgs." letters\n";
                                
                    for($i = 1 ;$i <= $num_mgs;$i++)
                    {
                    if (strpos(@imap_header($conn,$i)->fromaddress, "%target%"))
                        {
                        $Msgno = @imap_header($conn,$i)->Msgno;
                        $Lbody =  imap_body($conn,$Msgno);
                        print "$Lbody\n";
                        }
                    }
            }
                        
                        
?>
через имап все просто

demond 10.09.2009 22:53
Цитата:
Сообщение от Kaimi
Работает все, мб у аккаунта поп3 не включен
нет. все ключено! я думаю что у меня какие-то проблемы с ssl. может такое быть?

eLWAux 10.09.2009 23:19
Цитата:
Сообщение от demond
кто-нибудь пытался получить тело письма с gmail.com? получалось ли вообще. я знаю что там нужно использовать SSL. Вот мой код:
Код:
#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my  $pop = new Mail::POP3Client( USER    => $username,
                              PASSWORD => $password,
                              HOST    => "pop.gmail.com",
                              PORT => 995,
                              USESSL => 'true',
                              DEBUG => 1 );
  for(my $i = 1; $i <= $pop->Count(); $i++ ) {
    foreach( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i && print $_, "\n";
    }
  }
  $pop->Close();
но он что-то ничего не возвращает! даже DEBUG что-то ничего не выдает!
В чем может быть проблема?
Mail/POP3Client.pm есть?
пуск > выполнить > ppm > Mail-pop3 > install

demond 11.09.2009 10:36
Цитата:
Сообщение от eLWAux
Mail/POP3Client.pm есть?
пуск > выполнить > ppm > Mail-pop3 > install
У меня LINUX!!! и модуль стоит! и ошибок никаких не выводит! Я пользуюсь Komodo Edit и ни он ошибок не выдает, ни к консоль ничего не выдает!

Kaimi 11.09.2009 11:20
Цитата:
я думаю что у меня какие-то проблемы с ssl. может такое быть?
Сомневаюсь... IO::Socket::SSL стоит?

demond 11.09.2009 14:08
заработало! Помогло добавление в код
Код:
use IO::Socket::SSL;


Время: 01:07