ntsecapitest.pl   [plain text]

#!perl -w

$filename = "ntsecapitest.i";
$string = "VISTA_SDK_VERSION";

if (system("grep $string $filename")) {
    print "$string not found; deleting $filename.\n";
    system("rm $filename");
    }

exit(0);