ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
26.05.2008, 00:40
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Сообщение от Kaimi
Попробуй так:
Вылазиет ошибка
Can't call method 'mail' on an undefined value at [путьк скрипту]
Вроде модуль Net::SMTP установлен (устанавливал через Gui интерфейс) решил если не установился инсталить через командную строку (ppm-shell.bat)
вот её ответ
ppm> install Net::SMTP
Downloading ActiveState Package Repository packlist...not modified
No missing packages to install
что я не так делаю
потом решил устанавливать через cpan шелл
D:\Documents and Settings\zz>perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.7602)
ReadLine support enabled
cpan> install Net::SMTP
CPAN: Storable loaded ok
Going to read D:\Perl\cpan\Metadata
Database was generated on Fri, 18 Apr 2008 10:29:50 GMT
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz
Going to read D:\Perl\cpan\sources\authors\01mailrc.txt.gz
Fetching with LWP:
http://ppm.activestate.com/CPAN/modules/02packages.details.txt.gz
Going to read D:\Perl\cpan\sources\modules\02packages.details.tx t.gz
Database was generated on Sat, 24 May 2008 08:30:29 GMT
There's a new CPAN.pm version (v1.9205) available!
[Current version is v1.7602]
You might want to try
install Bundle::CPAN
reload cpan
without quitting the current session. It should be a seamless upgrade
while we are running...
Fetching with LWP:
http://ppm.activestate.com/CPAN/modules/03modlist.data.gz
Going to read D:\Perl\cpan\sources\modules\03modlist.data.gz
Going to write D:\Perl\cpan\Metadata
Net::SMTP is up to date.
и опять эта ошибка при запуске скрипта
Can't call method 'mail' on an undefined value at [путьк скрипту]
хы странно а сейчас никакой ошибки нет при запуске скрипт подумает секунды 2 и успешно закрывается но письма на maskit7@mail.ru неприходит может я не так отредактировал исходник?
Код:
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.ru');
$smtp->mail('sde@mail.ru');
$smtp->to('maskit7@mail.ru');
$smtp->data();
$smtp->datasend('To: maskit7@mail.ru');
$smtp->datasend('From: sde@mail.ru');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();
$smtp->quit;
помогите пожайлусто , кто решит мою беду тому на протяжении недели каждый день буду ставить по +Max
Последний раз редактировалось ZET36; 26.05.2008 в 02:34..
|
|
|
26.05.2008, 07:28
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Включи дебажный режим и посмотри, что рисует скрипт
Код:
$smtp = Net::SMTP->new('smtp.mail.ru', Timeout => 30, Debug => 1);
Скорее всего, тебе выдастся
503 Administrative prohibition -- authorization required. Users in your domain are not allowed to send email without authorization. See http://www.mail.ru/pages/help/261.html for details.
PS. Рабочий код
Код:
#!/usr/bin/perl -w
use Net::SMTP;
$smtp = Net::SMTP->new (
Host => 'smtp.mail.ru',
Timeout => 30,
Debug => 1
);
$smtp->auth('sde', 'PASSWORD');
$smtp->mail('sde@mail.ru');
$smtp->to('maskit7@mail.ru');
$smtp->data();
$smtp->datasend("To: maskit7\@mail.ru\n");
$smtp->datasend ("Subject: Test Subject");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;
Для авторизации требуются модули Mime::Base64 и Authen::SASL
Последний раз редактировалось krypt3r; 26.05.2008 в 08:09..
|
|
|
|
26.05.2008, 20:53
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
krypt3r огромное спасибо выручил. с меня как я и обещал, а что бы отправить емайл с чужого мыла, нужно создавать свой smtp сервер?
|
|
|
|
27.05.2008, 21:15
|
|
Постоянный
Регистрация: 24.12.2007
Сообщений: 574
Провел на форуме:
3186852
Репутация:
316
|
|
посоветуйте GUI библиотеку под Perl незнаю какую выбрать
Perl Tk
Tkx
Gtk
Gtk2
Qt
кто нить пробывал писать гуи на перл а то инфы вообще мало
будет круто если еще и книжку подскажете
|
|
|
|
29.05.2008, 11:13
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
допустим в файле xxx лежит такой текст :
xxx;yyy
zzz;ooo
ppp;ccc
как мне в переменную $poe загнать текст xxx а в переменную $poez yyy ? и как потом их очистить и загнать текст из другой строки ?
|
|
|
|
29.05.2008, 12:04
|
|
Moderator - Level 7
Регистрация: 16.02.2008
Сообщений: 580
Провел на форуме:
1595333
Репутация:
291
|
|
Vid0k
я хотел попробовать, но не начал. лично я посоветовал бы тебе юзать gtk. а инфа наверняка есть на gtk.org
|
|
|
|
29.05.2008, 12:35
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
$p01nt
Код:
$str = 'xxx;yyy';
($poe, $poez) = split (/;/, $str);
можно и регуляркой  |
|
|
|
29.05.2008, 14:15
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
krypt3r тема раскрыта не до конца ты лишь показал как разделить и занести в переменную... а если эта инфа в текстовом файле и надо все строчки поочередно заносить в эти переменные ... как поступать тогда ? |
|
|
|
29.05.2008, 14:29
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
уже разобрался! Спасибо!
|
|
|
|
30.05.2008, 01:49
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Подскажите как отправить пост запрос через LWP::UserAgent с куками
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
