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