Lens Name Search

#!/usr/bin/perl $opcFile = "/var/www/html/visionstarllc_com/lens_create_files/lnames.txt"; if (length ($ENV{'QUERY_STRING'}) > 0) { $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } } $lname1 = $in{'lname1'}; $lname1 =~ /(\d.+)/; $lname1 =~ s/^0*//; $lname2 = $in{'lname2'}; $lname2 =~ /(\d.+)/; $lname2 =~ s/^0*//; $lname3 = $in{'lname3'}; $lname3 =~ /(\d.+)/; $lname3 =~ s/^0*//; $vendor = $in{'vendor'}; $vendor =~ /(\w.+)/; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "Lens Name Search\n"; print "\n"; print "\n"; print "\n"; print "\n"; if($lname1 =~ /(\w.+)/) { if(length ($lname2) > 0 && length ($lname3) > 0) { @matches = split('\n',`grep -ih $lname1 $opcFile | grep -i $lname2 | grep -i $lname3`); } elsif(length ($lname2) > 0 ) { @matches = split('\n',`grep -ih $lname1 $opcFile | grep -i $lname2`); } elsif(length ($lname3) > 0 ) { @matches = split('\n',`grep -ih $lname1 $opcFile | grep -i $lname3`); } else { @matches = split('\n',`grep -ih $lname1 $opcFile`); } print "\n"; foreach $match (@matches) { @result = split(',',$match); $vendor = shift(@result); $file = shift(@result); $final_opc = sprintf("%010s",shift(@result)); print ""; print "\n"; } print "

Vendor	File
$vendor	"; print "$file

\n"; } else { print "

Lens Name Search
"; @self = split('/',$ENV{'REQUEST_URI'}); $name = $self[$#self]; print "

\n"; } print "\n"; print "\n";