You would need to modify this to support your environment; however, it gives you the basic ideas of what you would have to implement.
I wrote parts of it, re-purposed other parts of public scripts.
#!/usr/bin/perl
use DBI;
use Cisco::CopyConfig;
use Time::localtime;
# sub routine to create a current date time stamp for file naming
sub date_time
{
$tm = localtime;
($SEC, $MIN, $HOUR, $DAY, $MONTH, $YEAR) = ($tm->sec, $tm->min, $tm->hour,$tm->mday, ($tm->mon)+1, ($tm->year)+1900);
$datetime = sprintf("%4d%02d%02d%02d%02d%02d",$YEAR,$MONTH,$DAY,$HOUR,$MIN,$SEC);
return $datetime;
}
# sub routine to initiate the backup of a cisco device snmp/tftp
sub backup_device
{
# copy arguments to local vars
($ip_addr, $snmprw, $tftp_file, $tftp_serv) = ($_[0], $_[1], $_[2], $_[3]);
# backup configuration via tftp using snmp
$config = Cisco::CopyConfig->new(
Host => $ip_addr,
Comm => $snmprw
);
print "Attempting Backup.\n";
# initiate with snmp the tftp file copy
$config->copy($tftp_serv, $tftp_file);
=pod
Enable these two print statements for debugging information
# dump an error if one exists
print $config->error();
print "\n@_\n";
=cut
}
# tftp requirements
my $tftp_serv = 'x.x.x.x';
# database connectivity requirements
my $dsn = 'DBI:mysql:cback:localhost';
my $db_user_name = 'xxxxxxxx';
my $db_password = 'xxxxxxxx';
#my ($id, $password);
# database connection
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
# database query
my $sth = $dbh->prepare(qq{
SELECT id, hostname, INET_NTOA(ipv4) AS 'ip_addr', snmprw FROM device
});
# database execute query
$sth->execute();
# go through results of query
while (my ($id, $hostname, $ip_addr, $snmprw) =
$sth->fetchrow_array()) # keep fetching until
# there's nothing left
{
# get current date
$back_date = &date_time();
# output some status information
print "($id) Host => $hostname (IPv4: $ip_addr)\n";
# run backup function
&backup_device($ip_addr,$snmprw,"$back_date-$hostname.run-config",$tftp_serv);
}
# database cleanup connections
$sth->finish();
