#!/usr/bin/perl
#############################################
#  To bee used with Ringlink
#  Searches for an emailadress in sites.db
##########################################
# If necessary change the path to Perl
# If you change scriptname from emailsearch.pl
# you also have to change the name  
# in the variable $scriptname
# Save the script in the same directory 
# as the other *.pl or *.cgi files. 
# Thats all!
$scriptname = 'emailsearch2.pl';
##########################################
# Run the script from your browser and you
# will get a form to fill in 
# - RingID 
# - email to search for
# - your Ringlink admin password.
###########################################

use lib 'lib';
use rlconfig;

$rlmain::cgipath = ($0 =~ /[\\\/]/ ? $0 : $ENV{'SCRIPT_FILENAME'});
$rlmain::cgipath =~ s/\\/\//g;
$rlmain::cgipath =~ s/(.*)\/\S*/$1/;
rlconfig::systemvar;

@required = ('ringid','email','pw');

   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $buffer = $ENV{QUERY_STRING};
    }
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $FORM{$name} = $value;
   }
 
if ($FORM{'action'} eq "search")
{
 &check_required;
 &check_pw;
 &search_main;
 exit;
}

 &search_form;
 exit;

# Main sub 
sub search_main {
open (SITES, "$rlmain::datapath/$FORM{'ringid'}/sites.db") ||  err($!, "No such RingID: <b>$FORM{'ringid'}</b>");
@sites = <SITES>;
close (SITES);

$found = 0;
&header;
print qq|<table valign=top border="0" cellpadding="6" cellspacing="1" >
	  <tr><td colspan=2 align="center">
	  <b>Search for $FORM{'email'} in<br>RingID: $FORM{'ringid'}</b></td></tr>
	  <tr><td align="center">Site ID</td><td align="center">Name</td></tr>
|;

for (@sites)    {
  @sitevalues = split (/\t/, $_);
  if ($sitevalues[9] eq $FORM{'email'}) {
  	 print "<tr><td>$sitevalues[0]</td><td><a href=$sitevalues[5]>$sitevalues[2]</a></td></tr>\n";
  	 $found++;
  }
}
if ($found){
   print "<tr><td colspan=2 align=center><b>$FORM{'email'}</b> found in <b>$found</b> site(s).\n";
   }else {print "<tr><td colspan=2 align=center><b>$FORM{'email'}</b> not found in this ring.\n";
   }
&footer;
}



# Check for all required fields
sub check_required  {
foreach $check(@required) {
        unless ($FORM{$check}) {
		$check = "password" if ($check eq "pw");
		&header;
		print qq|<table valign=top border="0" cellpadding="15" cellspacing="1" ><tr class=error><td colspan=2 align="center">
		<b>Missing Information</b></td></tr>
		<tr class=error><td align="center">I'm sorry, but it would appear that you've forgotten to
		fill out the <b>$check</b> field.<br><br>Please click back and try again.
		|;
		&footer;
        exit;
        }
		}

# Check for valid email

unless ($FORM{'email'} =~ /\w+@\w+.\w+/) {
		&header;
		print qq|<table valign=top border="0" cellpadding="15" cellspacing="1" ><tr class=error><td colspan=2 align="center">
		<b>Bad E-mail</b></td></tr>
		<tr class=error><td align="center">The e-mail address that you've
		entered, <b>$FORM{'email'}</b>, is invalid.<br><br>Please click back and try again.
		|;
		&footer;
        exit;
        }
}


sub check_pw  {
if ($FORM{'pw'} ne $rlmain::adminpw)	{
		&header;
		print qq|<table valign=top border="0" cellpadding="15" cellspacing="1" ><tr class=error><td colspan=2 align="center">
		<b>Incorrect password</b></td></tr><tr class=error><td align="center">Please click back and try again.
		|;
		&footer;
        exit;
  }
}



sub search_form {
&header;
print qq|<form method="POST" action="$rlmain::cgiURL/$scriptname">
<table valign=top border="0" cellpadding="6" cellspacing="0" >
<tr><td colspan=2 align="center">
<b>Use email to search for membersite</b>
</td></tr>
<tr><td valign=top>RingID:
</td><td valign=top><INPUT type="text" size="15" name="ringid">
</td></tr>
<tr><td valign=top>Email:
</td><td valign=top><INPUT type="text" size="15" name="email">
</td></tr>
<tr><td valign=top>Password:
</td><td valign=top><INPUT type="password" size="15" name="pw">
</td></tr>
<tr><td colspan=2 align=center valign=top>
<INPUT type="submit">&nbsp;<INPUT type="reset">
<INPUT type="hidden" name="action" value="search">
</form>
|;
&footer;
}

sub header {
print "Content-type: text/html\n\n";
print qq|<html><head><title>Email search</title>
<style type="text/css"><!--
TR { background: #dcdcdc }
TR.error { background: #ffffcc }
TD { font-family: arial, helvetica, sans-serif; font-size: 11pt; color: #000000 }
--></style>
</head><body bgcolor="#999999"><div align="center">
|;
}


sub footer {
print qq|</td></tr></table>
</div>
</body></html>
|;
}


sub parse_form {

   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $buffer = $ENV{QUERY_STRING};
    }
 
  @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      $FORM{$name} = $value;
   }
}

sub err {
  my($cause, $file) = @_;
  chomp($cause);
  		&header;
		print qq|<table valign=top border="0" cellpadding="15" cellspacing="1" ><tr class=error><td colspan=2 align="center">
		<b>AN ERROR HAS OCCURRED</b></td></tr><tr class=error><td align="center">Error Message:<br><br>$cause<br>
		$file<br><br>Please click back and try again.<br><br>|;
		&footer;
  exit -1;
}