[Netpass-devel] NetPass/www/htdocs npapid-netpass-check.cgi,NONE,1.1

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/www/htdocs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14679/www/htdocs

Added Files:
	npapid-netpass-check.cgi 
Log Message:
bug fixe, lvs addition

--- NEW FILE: npapid-netpass-check.cgi ---
#!/opt/perl/bin/perl -w
#
# we dont use mhtml because we dont want the Apache::Session
# cookie files created since they are difficult to delete.

use strict;
use Proc::ProcessTable;
my $pt = new Proc::ProcessTable();

print "Content-type: text/plain\n\n";
foreach my $p (@{$pt->table}) {
	if ($p->cmndline =~ /npapid/) {
		print "NPAPID-OK\n";
		exit 0;
	}
}
print "NPAPID-NOK\n";
exit 0;