#!/usr/bin/perl
#############################################################################
# search: Search /etc/passwd for some content
#         return an XML output of the matching records
#
#############################################################################

use CGI "param";

$str = param('search') || param('q');           #obtain HTML entry field

if (! $str)                                     #if no param is entered
{
    print "Content-type: text/html \n\n";
    print "<h3> Please provide username as: URL?q=... </h3> \n";
    exit(0);
}

print "Content-type: text/xml \n";              #text/xml instead of text/html
print "\n";

open (FILE, "< /etc/passwd") || print "Cannot open file - $!";

print "<?xml version=\"1.0\" ?>\n";
print "<results>\n";

####### Search file contents ########
while($line = <FILE>) {

    if ($line =~ /$str/i)                        #if line contains search str
    {    
        @elements = split(':', $line);
        print "    <data>\n        "; 
        print "        <userid>$elements[0]</userid>  ";
        print "        <unixid>$elements[2]</unixid>  ";
        print "        <name>$elements[4]</name>  ";
        print "        <homedir>$elements[5]</homedir>\n";
        print "    </data>\n";
    }
}

print "</results>\n";

close(FILE); 

exit(0);