cvs login
Logging in to :pserver:ebizadmin@localhost:2401/usr/local/cvsroot
CVS password:
cd /home/js/apache/dd
cvs import -m \"First configuration\" apache/dd ebizadmin start

##</code><code>##

#!/usr/bin/perl

use Expect;
#$Expect::Debug = 1;

my $cvsroot=":pserver:ebizadmin@localhost:/usr/local/cvsroot";
my $password="secret";
$timeout=3;

my $exp = Expect->spawn("cvs login") or die "Cannot spawn cvs login: $!\n";;
my $spawn_ok;
$exp->expect($timeout,
               [
                'CVS password: $',
                sub {
                  my $fh = shift;
                  print $fh "$password\n";
                  print $fh "cd /home/js/apache/dd\n";
                  print $fh "cvs import -m \"First configuration\" apache/dd ebizadmin start";
                  exp_continue;
                }
               ],
               [
                timeout =>
                sub {
                  die "No login.\n";
                }
               ]