init

rancid/pwdel.pl

@@ -0,0 +1,27 @@
+#!/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`;
+}