Select Code to Download

sub do_auth_check
{
  # get self object and CGI query object
...
  warn('ran command "'.$com.'"'); # DEBUG use only
  return $com;
}

evan:password at AppTest.pm line 554.
running command "env QUERY_STRING=username=evan\;password=password /us
+r/bin/custom_auth_tool" at AppTest.pm line 561.
ran command: "" at AppTest.pm line 566.

#!perl

use strict;
...
close(WEBOS);

print "Result:\n$com\n\n";

Command:
env QUERY_STRING=username=evan\;password=password /usr/bin/custom_auth
+_tool

Result:
user evan authenticated