Help for this page

Select Code to Download


  1. or download this
     $htpasswd = "/usr/local/apache/bin/htpasswd $htpasswdfile $formuser";
     ($htpass = Expect->spawn("$htpasswd")) || die "could not spawn progra
    +m, $!";
    
  2. or download this
    use CGI qw(:standard);
    use Expect;
    print "Content-type: text/html\n\n";
    ...
     ($htpass = Expect->spawn("$htpasswd")) || die "could not spawn progra
    +m, $!";
    print "test2\n";
    exit;
    
  3. or download this
    test1
    Content-type: text/html
    
    test1
    test2