[mdk-re] perl need help

[mdk-re] perl need help

[Korshunov Ilya]

Надобно сделать скрипт написть на perl (можно и на bash в принципе) 
который будет заходить на ftp (запароленый), логиниться и перекачивать 
оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
не соображу как это осуществить. Не подскажет никто  ?


--------------------
regards
korshunov

Re: [mdk-re] perl need help

[Dmitry Gerasimov]

wget не устраивает?
KI> Return-Path: <mandrake-russian-admin@altlinux.ru>
KI> Delivered-To: admin@localhost.femida-audit.com
KI> Received: by linux (Postfix, from userid 505)
KI>         id C3FB5BAF6; Fri, 12 Apr 2002 12:02:03 +0400 (MSD)
KI> Received: from localhost (localhost.localdomain [127.0.0.1])
KI>         by linux (Postfix) with ESMTP id A7F81B90C
KI>         for <admin@localhost>; Fri, 12 Apr 2002 12:01:59 +0400 (MSD)
KI> Received: from 194.84.98.2 [194.84.98.2]
KI>         by localhost with POP3 (fetchmail-5.9.0)
KI>         for admin@localhost (single-drop); Fri, 12 Apr 2002 12:01:59 +0400 (MSD)
KI> Received: from linux.ru.net (linux.ru.net [62.118.250.6])
KI>         by ns.podlipki.ru (8.9.3/8.9.3) with ESMTP id MAA09714
KI>         for <matrix@podlipki.ru>; Fri, 12 Apr 2002 12:08:40 +0400
KI> Received: from linux.ru.net (localhost [127.0.0.1])
KI>         by linux.ru.net (Postfix) with ESMTP
KI>         id C14FD27F1; Fri, 12 Apr 2002 12:07:41 +0400 (MSD)
KI> Delivered-To: mandrake-russian@localhost.ru.net
KI> Received: from smtpserv.kp (mail.kp.ru [195.2.69.29])
KI>         by linux.ru.net (Postfix) with SMTP id CAB622407
KI>         for <mandrake-russian@altlinux.ru>; Fri, 12 Apr 2002 12:06:24 +0400 (MSD)
KI> Received: (qmail 20350 invoked by uid 16504); 12 Apr 2002 14:07:27 -0000
KI> Received: from kosha@kp.ru by smtpserv
KI>          by uid 16501 with qmail-scanner-1.10 (. Clear:0. Processed in 0.09503 secs); 12 Apr 2002 14:07:27 -0000
KI> X-Qmail-Scanner-Mail-From: kosha@kp.ru via smtpserv
KI> X-Qmail-Scanner: 1.10 (Clear:0. Processed in 0.09503 secs)
KI> Received: from kosha.kp (HELO kosha) (192.168.1.26)
KI>   by 0 with SMTP; 12 Apr 2002 14:07:27 -0000
KI> From: Korshunov Ilya <kosha@kp.ru>
KI> To: mandrake-russian@altlinux.ru
KI> Message-Id: <20020412120655.26bbb7e5.kosha@kp.ru>
KI> Organization: Komsomolskaya Pravda
KI> X-Mailer: Sylpheed version 0.7.4 (GTK+ 1.2.10; i586-alt-linux)
KI> X-Operating-System: Linuz!
KI> Mime-Version: 1.0
KI> Content-Type: text/plain; charset=KOI8-R
KI> Content-Transfer-Encoding: 8bit
KI> Subject: [mdk-re] perl need help
KI> Sender: mandrake-russian-admin@altlinux.ru
KI> Errors-To: mandrake-russian-admin@altlinux.ru
KI> X-BeenThere: mandrake-russian@altlinux.ru
KI> X-Mailman-Version: 2.0
KI> Precedence: bulk
KI> Reply-To: mandrake-russian@altlinux.ru
KI> List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
KI> List-Post: <mailto:mandrake-russian@altlinux.ru>
KI> List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
KI>         <mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
KI> List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
KI> List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
KI>         <mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
KI> List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
KI> X-Original-Date: Fri, 12 Apr 2002 12:06:55 +0400
KI> Date: Fri, 12 Apr 2002 12:06:55 +0400
KI> X-UIDL: 4a5a72373371a6ea80e6e10b561dfe7e


KI> Надобно сделать скрипт написть на perl (можно и на bash в принципе) 
KI> который будет заходить на ftp (запароленый), логиниться и перекачивать 
KI> оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
KI> не соображу как это осуществить. Не подскажет никто  ?


KI> --------------------
KI> regards
KI> korshunov

KI> _______________________________________________
KI> Mandrake-russian mailing list
KI> Mandrake-russian@altlinux.ru
KI> http://altlinux.ru/mailman/listinfo/mandrake-russian

Re: [mdk-re] perl need help

[Korshunov Ilya]

Fri, 12 Apr 2002 12:09:47 +0300
Dmitry Gerasimov <matrix@podlipki.ru> Писал:

> wget не устраивает?

Да наверно, мне уже кинули perl'вый скрипт для wget, буду разбираться

Re: [mdk-re] perl need help

[Sergey Degtyaryov]

Korshunov Ilya wrote:
> Надобно сделать скрипт написть на perl (можно и на bash в принципе) 
> который будет заходить на ftp (запароленый), логиниться и перекачивать 
> оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
> не соображу как это осуществить. Не подскажет никто  ?
> 

Обязательно на perl?
Вроде же в системе есть софт для организации зеркал?
Если хочется свое -- что считается новым? Содержимое директорий? Ну 
вроде подводных камней никаких не видится.
Net::FTP, наверное, ходит на ftp.

-- 
Ciao, maga, maga@mail.ru
--
Самые страшные драконы - безголовые.

Re[2]: [mdk-re] perl need help

[Dmitry Gerasimov]

wget и без скриптов каких то отлично работать умеет. в том числе и на
запароленные ресурсы. там очень подробный хелп.

KI> Fri, 12 Apr 2002 12:09:47 +0300
KI> Dmitry Gerasimov <matrix@podlipki.ru> Писал:

>> wget не устраивает?

[mdk-re] Re: perl need help

[Artem K. Jouravsky]

On Fri, Apr 12, 2002 at 12:09:47PM +0300, Dmitry Gerasimov wrote:
> wget не устраивает?
> KI> Return-Path: <mandrake-russian-admin@altlinux.ru>
[поскипав]
Знатный у вас оверквотинг на три осмысленных слова... Даже почтовые
заголовки процитировали!

-- 
Best wishes,
Artem K. Jouravsky,
iFirst Ltd, System Administrator.
-----------------------
dry joints on cable plug

Re: [mdk-re] perl need help

[Korshunov Ilya]

Fri, 12 Apr 2002 12:30:42 +0400
Sergey Degtyaryov <maga@replay.ru> Писал:

> Korshunov Ilya wrote:
> > Надобно сделать скрипт написть на perl (можно и на bash в принципе) 
> > который будет заходить на ftp (запароленый), логиниться и перекачивать 
> > оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
> > не соображу как это осуществить. Не подскажет никто  ?
> > 
> 
> Обязательно на perl?
> Вроде же в системе есть софт для организации зеркал?
> Если хочется свое -- что считается новым? Содержимое директорий? Ну 
> вроде подводных камней никаких не видится.
Если бы я мог поставить на тот сервер этот софт то наверно бы не спрашивал
> Net::FTP, наверное, ходит на ftp.
> 
Я в курсе))

--------------------

Re: Re[2]: [mdk-re] perl need help

[Korshunov Ilya]

Fri, 12 Apr 2002 12:33:28 +0300
Dmitry Gerasimov <matrix@podlipki.ru> Писал:

> wget и без скриптов каких то отлично работать умеет. в том числе и на
> запароленные ресурсы. там очень подробный хелп.
> 

Угу...только умеет ли он по тянуть только новые файлы ? 
В man'e про это я во всяком случае не нашёл. 
Ладно тема закрыта я уже разбираюсь со скриптом Григория Баталова

Re: [mdk-re] perl need help

[cornet]

Korshunov Ilya wrote:
> 
> Надобно сделать скрипт написть на perl (можно и на bash в принципе)
> который будет заходить на ftp (запароленый), логиниться и перекачивать
> оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
> не соображу как это осуществить. Не подскажет никто  ?

Для этого есть перловый модуль
Net::FTP


<BEGIN>
#!/usr/bin/perl
use Net::FTP;
$addres=shift(@ARGV);
$file=shift(@ARGV);
$login='vasya';
$passw='vasyapass';
$prefix='/pub';
$ftp = Net::FTP->new($addres, Debug => 0) or die '';
$ftp->login($login, $passw) or die '';
$ftp->cwd($prefix);
$ftp->get($file, *STDOUT);
$ftp->quit;
<EOF>

ну и далее в таком стиле.

-- 
Власенко Олег.
Отдел технической поддержки ALT Linux Team.
mailto:cornet@altlinux.ru

Re[4]: [mdk-re] perl need help

[Dmitry Gerasimov]

УМЕЕТ
пример

wget -v -N -o wget.log ftp://ftp.kaspersky.ru/updates/*.* -P
/opt/AVP/Bases

что этот пример делает, рассказывать? :-)

KI> Fri, 12 Apr 2002 12:33:28 +0300
KI> Dmitry Gerasimov <matrix@podlipki.ru> Писал:

>> wget и без скриптов каких то отлично работать умеет. в том числе и на
>> запароленные ресурсы. там очень подробный хелп.
>> 

KI> Угу...только умеет ли он по тянуть только новые файлы ? 
KI> В man'e про это я во всяком случае не нашёл. 
KI> Ладно тема закрыта я уже разбираюсь со скриптом Григория Баталова

KI> _______________________________________________
KI> Mandrake-russian mailing list
KI> Mandrake-russian@altlinux.ru
KI> http://altlinux.ru/mailman/listinfo/mandrake-russian

Re: Re[4]: [mdk-re] perl need help

[Korshunov Ilya]

Fri, 12 Apr 2002 13:00:32 +0300
Dmitry Gerasimov <matrix@podlipki.ru> Писал:

> УМЕЕТ
> пример
> 
> wget -v -N -o wget.log ftp://ftp.kaspersky.ru/updates/*.* -P
> /opt/AVP/Bases


Да нет...как оказалось можно ещё проще - 
wget --mirror

--------------------
regards
korshunov

[mdk-re] Re: perl need help

[Konstantin Lepikhov]

Hi Korshunov!

Friday 12, at 12:06:55 PM you wrote:

> 
> Надобно сделать скрипт написть на perl (можно и на bash в принципе) 
> который будет заходить на ftp (запароленый), логиниться и перекачивать 
> оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
> не соображу как это осуществить. Не подскажет никто  ?
а чем wget по крону не устраивает? С миррорингом прекрасно справляется.

-- 
with best regards,		                     ICQ: 109916175
Konstantin Lepikhov		   mailto:lakostis@pisem.net.nospam

Motto: Linux is like a wigwam - no windows, no gates, apache inside!