#!/usr/bin/perl

use Net::Telnet ();

unless ($hostname=$ARGV[0]){ die "no ip address\n"; }

$username = "login";
$passwd = "pass";
$tftp_path="/var/tftpboot/"; #with slash!
$date = `/bin/date "+%d%m%y"`;
$str_fn=$hostname.".".$date;
$filename=$tftp_path.$hostname.".".$date;

$conn = new Net::Telnet ( Timeout=>3, Errmode=>'die', Prompt => '/\#.?$/i');
$conn->open(Host => $hostname);

$conn->waitfor('/ame[: ]*$/');
$conn->print($username);
$conn->waitfor('/ord[: ]*$/');
$conn->print($passwd);

tftp_create($filename);
#planet
#$conn->print("copy flash://startup-config tftp://172.16.16.1/$str_fn");
#$conn->waitfor('/\#(\s)?$/');
#dlink-3526
$conn->print("upload configuration 172.16.16.1 $str_fn");
$conn->waitfor('/\#(\s)?$/');
#dlink2-3028
#$conn->print("upload cfg_toTFTP 172.16.16.1 $str_fn");
#$conn->waitfor('/\#(\s)?$/');

$conn->print("exit");
$conn->print("logout");
exit;

sub
tftp_create {
        $fn = shift;
        open (FN,">$fn");
        print FN "";
        close (FN);
        system("chmod 0666 $fn");
}

$conn->print("exit");
$conn->print("logout");
exit;


sub
tftp_create {
        $fn = shift;
        open (FN,">$fn");
        print FN "";
        close (FN);
        system("chmod 0666 $fn");
}