#!/usr/bin/perl -w
#
# this code audits php and junk
#
# $Id: audit.pl,v 0.1 2006/11/27 09:09:44 retard Exp $

use strict;
use Getopt::Long;

my ( $file, $variable, @vars, @source, $line );
my $options = { f => \$file, v => \$variable };
GetOptions( $options, "f=s", "v:s" );

&usage unless $file;

open(VARS, "variables.txt");
@vars = <VARS>;
close(VARS);

open(SOURCE, $file);
@source = <SOURCE>;
close(SOURCE);

foreach $line (@source) {
        foreach $variable (@vars) {
                if ($line == /$variable/) {
                        print "oh yeah";
                }
        }
}

sub usage {
        print "php code auditor\n";
        print "usage: perl $0 -fv\n";
        print "  -f\t\tsource code to audit\n";
        print "  -v\t\tvariable to look deeper into (optional)\n";
        exit;
}