use Expect;

sub des2108_login {
   my $device = shift@_;
   my $debug = shift@_;
   
   my $exp = new Expect;
   my $ok = 1;

   my $login = "blank";
   my $passwd = "admin";

   $exp = Expect->spawn("telnet $device");
   $exp->log_user(0);

   if ($debug) { $exp->log_user(1); }

   $exp->expect(1,
      [ qr/word: / => sub {
         my $exp=shift;
         sleep(1);
         for (my $i=0; $i<length($passwd); $i++) {
            my $char = substr($passwd, $i, 1);
            $exp->send($char);
            sleep(1);
         }
         $exp->send("\r");
         exp_continue; }
      ],
      [ qr/refused|Unable|closed|Invalid/ => sub {
         $ok = 0; }
      ]
   );
   if ($ok) {
      $exp->expect(1,">");
      $exp->clear_accum();
      return $exp;
   } else {
      return undef;
   }
}

sub des2108_exit {
   my $exp =  shift @_;
   $exp->send("logout\n");
   $exp->soft_close();
   return 1;
}