#! /usr/bin/perl
# (c) 2008, Scanless PCI
# Unauthorized Distribution is STRICTLY PROHIBITED
#
# PCI Testing App v2.0

$client = shift;

print "\nDoes the client have a data collection/storage process for payment card data? (Y/n) ";
$_ = (<>);

if(($_ =~ /n/)){
    reportCompliance(1);
}else{
    reportCompliance(int rand 2); # As accurate as "Scanful" PCI
    #reportCompliance(0); # Better, but clients don't like it
}
    
sub reportCompliance{
    if($_[0] == 1){
        print "\t$client is PCI compliant\n";
    }else{
        print "\t$client is not PCI compliant\n";
    }
    exit;
}