Re: ftp from script

[Ed Ahlsen-Girard]

Thanks to all.  The below worked.

Grab the snapshots:

#!/usr/bin/perl

use Net::FTP;

unlink </home/ed/snap/*>;

my $host = 'rt.fm';

my $ftp = Net::FTP->new($host, Debug =>0)
        or die "Cannot connect to $host: $0";

$ftp->login("anonymous",'-anonymous@')
        or die "Cannot login ", $ftp->message;

$ftp->cwd("/pub/OpenBSD/snapshots/i386")
       or die "Cannot change working directory ", $ftp->message;

my @ftp_ls = $ftp->ls()
        or die "Can't get directory listing ", $ftp->message;

for (@ftp_ls) {
        my $tgz = $_;
        unless ($tgz =~ /tgz/) {
                next;
        }
        $tgz =~ s/\S\s{7}?//;
        print "$tgz\n";
        $ftp->get($tgz)
            or die "get failed ", $ftp->message;
}

$ftp->get("INSTALL.i386")
            or die "get failed ", $ftp->message;

$ftp->get("index.txt")
            or die "get failed ", $ftp->message;

$ftp->get("bsd")
            or die "get failed ", $ftp->message;

$ftp->get("bsd.rd")
            or die "get failed ", $ftp->message;

$ftp->cwd("/pub/OpenBSD/snapshots")
       or die "Cannot change working directory ", $ftp->message;

$ftp->get("ports.tar.gz")
            or die "get failed ", $ftp->message;

exec '/usr/sbin/srcgrab';

exit;


Update source:

#!/bin/sh

export cvsroot=anon...@rt.fm:/cvs

cd /usr

cvs checkout -P src

date