#!/usr/bin/perl -w

use strict;
use Net::SNMP;
use Rcs;

my $rcs = Rcs->new;

$rcs->rcsdir("/usr/local/tftp/RCS");

$rcs->file("router.cfg");

$rcs->co('-l');

&copy_config_from_tftp;

$rcs->ci('-u');