#!/usr/bin/perl -w

use strict;
use IO::Prompter;

my ($cmd, $cmc, $ok);
my ($admin,$adminpw,$user);

chdir ("/home/rancid/var/rancid/network/configs");

do {
   $admin = prompt("\nAdmin           :");
   $adminpw = prompt('Admin Passwort  :', -echo => '*');

   $user = prompt("\nUser            :");
   $ok = prompt("\nEingabe korrekt :", -yn1);
} while ($ok eq 'n');

print "\n";
my @files=glob("*");

$cmd="clogin -u $admin -p $adminpw -c";   
$cmc='"conf t\nno username ' . "$user" . ' \n\n\nend\ncopy run start\n\n\n"';
foreach my $file (@files) {
   print "$file\n";
   `$cmd $cmc $file`;
}