28 lines
625 B
Perl
Executable File
28 lines
625 B
Perl
Executable File
#!/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`;
|
|
}
|