#!/usr/bin/perl

# MemberManagerPro is copyright 2001 by Internalysis, all rights reserved. 
# Purchasing this script allows you to install and use it on ONE website for ONE client
# You may not redistribute, sell, make copies, post for archival or download purposes or in any other way
# violate the copyright of this application. Basically, if you want to make money off this script, let me 
# know and we'll both benefit. (I'll support your customers, as well as keep them up to date on upgrades and 
# you make an easy commission for doing next to no work :)
# If you need help installing or configuring this script, please feel free to contact me, Marc Bissonnette, at
# dragnet@internalysis.com

# IMPORTANT: READ ALL THE COMMENTS IN THIS SCRIPT, ESPECIALLY THOSE IN THE &GetMembers SUBROUTINE! Customizing the display
# of this CGI is fairly straightforward, but you need to understand what to edit (especially since editing one section will
# affect another.


# The name of the file containging your member list. If this is not in the same directory
# as the CGI, include the full path
$memberfile="memberfile.txt";
# The header file to display above the CGI-Generated Content
$header="memberhead.html";
# The footer file to display below the CGI-Generated Content
$footer="memberfoot.html";
# The URL of the CGI script
$cgiurl="http://www.internalysis.com/memberpro/membermanagerprodemo.cgi";
# The name of your site. Used to create sentances like "Choose you you wish to display the $sitename member list
$sitename="MemberManager Pro Demo";
# The subroutine library included in the download
require '../cgi-bin/cgi-lib.pl';
# This helps display errors to your browser instead of the error log to make debugging easier
use CGI::Carp qw(fatalsToBrowser); 
# Get content, if any, from the browser
&ReadParse;
# Check to see how to proceed
&Handling;

sub Handling {
	if (!$in{submit}) {
		&Default;
	} elsif ($in{method} eq "name" && $in{submit} eq "Continue") {
		&ShowAll;
	} elsif ($in{method} ne "name" && $in{submit} eq "Continue") {
		&ChoiceParse;
		exit;
	} elsif ($in{submit} eq "Show Members") {
		&ShowFiltered;
		exit;
	}
}	
sub ChoiceParse {
# This subroutine creates the drop-down menus for the filter choices. Edit at your own risk (You shouldn't have to)
	print &PrintHeader;
	&HeaderFile;
	print "<FORM ACTION=\"$cgiurl\" ACTION=POST>\n";
	print "<FONT FACE=\"ARIAL\">Please choose how you wish to filter the $sitename member list by $in{method}:<INPUT TYPE=\"HIDDEN\" NAME=\"method\" VALUE=\"$in{method}\"><BR>";
	print "<SELECT NAME=\"filter\">\n";
# This gets the memberlist. READ THE COMMENTS IN THIS SUBROUTINE
	&GetMembers;
	foreach $key (sort keys %master) {
		$method=$in{method};
		$temp=$$key{$method};
		$methods{$temp}=1;
	}
	foreach $key (sort keys %methods) {
		unless ($key eq undef) {
			print "\t<OPTION VALUE=\"$key\">$key</OPTION>\n";
		}
	}
	print "</SELECT>\n";
	print "<INPUT TYPE=\"SUBMIT\" NAME=\"submit\" VALUE=\"Show Members\">\n</FORM>\n";
	&FooterFile;
	exit;
}

sub ShowFiltered {
# This subroutine displays the final content, based on the user's selection
# This gets the memberlist. READ THE COMMENTS IN THIS SUBROUTINE
	&GetMembers;
	print &PrintHeader;
	&HeaderFile;
	print "<style TYPE=\"text/css\"><!--    // Hide from old browsers.BODY {background-color: #FFFFFF; }TD {font-family: ARIAL; font-size: 10pt;} // End of hide. --></style>\n";
	print "<TABLE CELLSPACING=5 CELLPADDING=0 BORDER=1>\n";
	$method=$in{method};
	print "<TR><TD COLSPAN=2 ALIGN=CENTER><H2>Members in <B>$in{filter}</B></H2></TD><?TR>\n";
	$count=0;
	print "<TR>\n";
	foreach $key (sort keys %master) {
		next if ($$key{$method} ne $in{filter});
		$$key{$method}="<FONT COLOR=RED><B>".$$key{$method}."</B></FONT>";
		if ($count==0) {print "<TR>\n";}
# This is the line that prints the table row to the browser. If you've modified the definitions at the end of this script, you'll need to add, delete or edit these entries, as well
		print "\t<TD><B>$$key{name}</B><BR>$$key{title}<BR><B>$$key{company}</B><BR>$$key{address}<BR>$$key{suite}<BR>$$key{city}<BR>$$key{province}<BR>$$key{postal}<BR>$$key{country}<BR>$$key{phone}<BR>$$key{fax}<BR><A HREF=\"mailto:$$key{email}\">$$key{email}</A><BR><A HREF=\"http:\/\/$$key{url}\">$$key{url}</A></TD>\n";
# The value of $count is the number of columns displayed in the output, plus one. By default, it's two columns. If you want more, increase the value of count.
# For example, if you want a four column layout, change the value of $count to 3
		if ($count==1) {
			print "</TR>\n"; $count=0;
		} else {
			++$count;
		}
	}
	print "</TABLE>\n";
	&FooterFile;
}
sub Default {
# This subroutine displays the initial choice menu
	print &PrintHeader;
	&HeaderFile;
	print "<FORM ACTION=\"$cgiurl\" ACTION=POST>\n";
	print "<FONT FACE=\"ARIAL\">Please choose how you wish to display the $sitename member list:<BR><SELECT NAME=\"method\">\n\t<OPTION VALUE=\"name\">By name</OPTION>\n\t<OPTION VALUE= \"province\">By state/province</OPTION>\n\t<OPTION VALUE=\"city\">By city</OPTION>\n\t<OPTION VALUE=\"company\">By company</OPTION>\n\t<OPTION VALUE=\"country\">By country</OPTION>\n\t</SELECT>\n<INPUT TYPE=\"SUBMIT\"name=\"submit\" VALUE=\"Continue\"></FORM>\n";
	&FooterFile;
}
sub ShowAll {
# This subroutine displays the entire contents of your memberlist.
# This gets the memberlist. READ THE COMMENTS IN THIS SUBROUTINE
	&GetMembers;
	print &PrintHeader;
	&HeaderFile;
	print "<style TYPE=\"text/css\"><!--    // Hide from old browsers.BODY {background-color: #FFFFFF; }TD {font-family: ARIAL; font-size: 10pt;} // End of hide. --></style>\n";
	print "<TABLE CELLSPACING=5 CELLPADDING=0 BORDER=1>\n";
	$count=0;
	print "<TR>\n";
	foreach $key (sort keys %master) {
		if ($count==0) {print "<TR>\n";}
# This is the line that prints the table row to the browser. If you've modified the definitions at the end of this script, you'll need to add, delete or edit these entries, as well
		print "\t<TD><B>$$key{name}</B><BR>$$key{title}<BR><B>$$key{company}</B><BR>$$key{address}<BR>$$key{suite}<BR>$$key{city}<BR>$$key{province}<BR>$$key{postal}<BR>$$key{country}<BR>$$key{phone}<BR>$$key{fax}<BR><A HREF=\"mailto:$$key{email}\">$$key{email}</A><BR><A HREF=\"http:\/\/$$key{url}\">$$key{url}</A></TD>\n";
# The value of $count is the number of columns displayed in the output, plus one. By default, it's two columns. If you want more, increase the value of count.
# For example, if you want a four column layout, change the value of $count to 3

		if ($count==1) {
			print "</TR>\n"; $count=0;
		} else {
			++$count;
		}
	}
	print "</TABLE>\n";
	&FooterFile;
}

sub HeaderFile {
	open (HEADER, "$header") || &CgiError ("Cannot open $header $!");
	while (<HEADER>) {
		print $_;
	}
	close HEADER;
}

sub FooterFile {
	print "<P><FONT FACE=ARIAL SIZE=2>MemberManager Pro is &copy; 2001 <A HREF=\"http://www.internalysis.com\">InternAlysis</A>. All rights reserved.</FONT></P>\n";
	open (FOOTER, "$footer");
	while (<FOOTER>) {
		print $_;
	}
	close FOOTER;
}

sub GetMembers {
# Here's where we grab your member list and put it into memory so we can play with it.

	open (RMEMBER, "$memberfile") || print "Cannot open $memberfile";
	while (<RMEMBER>) {
		chomp;
# Your split character is in here. The default is the pipe:   |  
# if you wish to change this to say, a tab , the line below should be changed to:
# 		@line=split (/\t/,$_);
# if you wish to change this to say, a comma , the line below should be changed to:
# 		@line=split (/\,/,$_);

# Remember not to use a split character that can possibly be part of the contents (Which is why commas are such a bad idea)

		@line=split (/\|/,$_);

# The next twelve lines defines which data is in which field. If you need to change the positions of these, just change the number of the 
# corresponding field. (For example, if the company field is the third slot and the title field is the fourth slot, change those lines to read:
#		$title=$line[3];
#		$company=$line[2];

# Remember, perl starts its numbering at zero. So the first position in a data file is position 0 (zero)

		$fname=$line[0];
		$lname=$line[1];
		$title=$line[2];
		$company=$line[3];
		$address=$line[4];
		$suite=$line[5];
		$city=$line[6];
		$province=$line[7];
		$postal=$line[8];
		$country=$line[9];
		$phone=$line[10];
		$fax=$line[11];
		$email=$line[12];
		$url=$line[13];
		

# The next line is what is creating the unique ID's. It combines the values of last name, first name and phone number. This id field is also what is used for the alphabetical sort,
# Which is why last name should be in the first place. If your member list uses a single field for first and last name, it's worth the effort to separate them.
# If you have a really massive names database and don't want to do this manually, send me an email to focus@internalysis.com and I can send you a really simple script to separate and reverse the name fields.

		$id=$lname.$fname.$phone;
# The next four lines get rid of spaces, hyphens and brackets out of the ID field, just to make sorting easier. It does not affect the display.
		$id=~s/ //go;
		$id=~s/\(//go;
		$id=~s/\)//go;
		$id=~s/\-//go;
# The next line creates a new field for last name, comma first name, for neatness of display.
		$name=$lname."\, ".$fname;

# These next lines define a hash for each member and assign it to a masterlist. Remember, if you add fields above, you must define them below, as well.
		$$id{'name'}=$name;
		$$id{'title'}=$title;
		$$id{'company'}=$company;
		$$id{'address'}=$address;
		$$id{'suite'}=$suite;
		$$id{'city'}=$city;
		$$id{'province'}=$province;
		$$id{'postal'}=$postal;
		$$id{'country'}=$country;
		$$id{'phone'}=$phone;
		$$id{'fax'}=$fax;
		$$id{'email'}=$email;
		$$id{'url'}=$url;
		
		$master{$id}=1;
	}
	close RMEMBER;
}