#!/usr/bin/env perl
print "Que tipo de router vas a configurar (CISCO  TELDAT) \n";
$router=<STDIN>;
chop($router);
if ($router eq "CISCO")
   {
       print "Que modelo de router vas a configurar (837  1841  2600) \n";
       $modelo=<STDIN>;
       chop($modelo);
       if ($modelo eq 837)
          {
               print "Con que protocolo de enrutamiento (RIP  EIGRP)\n";
               $prot=<STDIN>;
               chop($prot);
               if ($prot eq "EIGRP")
                   {
                   qx (shell Conf837-EIGRP.sh);
                   }

               elsif ($prot eq RIP)
                   {
                   qx(Conf837-RIP.sh);
                   }
               else
                   {
                     print "El protocolo de enrutamiento no es correcto\n";
                   }
          }
      elsif ($modelo eq 1841)
          {
            qx (Conf1841FR-EIGRP.sh);
          }
      elsif ($modelo eq 2600)
          {
              print"Introduce los 4 digitos de la sucursal\n";
              $C_2600=<STDIN>;
              print "2600_",$C_2600;
          }
   }
elsif ($router eq "TELDAT")
{
  qx(ConfigC4.sh); 
}
else
{
print "Nosotros no configuramos   ",$router;
print "\n\n";
}