#!/usr/bin/perl
##########################################################
# CSVedit Xtra 03/Apr/2005
# © 1999-2005 EZscripting.com
# Script by Alexandre Golovkine & Babelnotes.be
##########################################################
my $prog_name             = "csvedit.pl";
my $base_file             = "database.txt"; 
my $template      	  = "edit-template.htm";
my $records               = 50;
my $textPrevious 	  = "Previous";
my $textNext	 	  = "Next";
my $pageSelectorRange	  = 5;
my $no_match              = "Sorry, no results found!";
my $line_break            = '<br>';
##########################################################
my $multyOn = 0;
my $DBname = "database";
my %DB = (
$base_file         => "default",
"database2.txt"    => "database2",
"database3.txt"    => "database3",
"database4.txt"    => "database4",
"database5.txt"    => "database5",
"database6.txt"    => "database6"
);
##########################################################
#Password protection
my $Username              = '';
my $Password              = '';
##########################################################
# Advanced Settings for adding new records
my $REMOTE_ADDR           = 0;
my $HTTP_USER_AGENT       = 0;
my $DATE                  = 1;
my $ID_autoincrement      = 1;
my $ID_autoincrement_name = "ID";
##########################################################
my $separator             = '|'; 
my $change                = "I";
##########################################################
my @no_show_fields        = ('');
my @no_edit_fields        = ('Title', 'Author', 'Year', 'Condition', 'Price', 'Email'); 
my $add_fields            = 0;
my $delete_fields         = 0;
my $kill_html_tags        = 0;
##########################################################
#table & big textbox description
my @textareas             = ("");
my $table_width           = 570;
my $rows                  = 4;
my $cols                  = 40;
my $text_box              = 50;
##########################################################
# Advanced Settings file upload
my $file_upload           = 1;
my $file_upload_optional  = 1;
my $default_file          = 'none.jpg';
my @file_upload_fields    = "Upload";
my $rename_file           = 1;
my $max_size              = 100000;
my @required_file_types   = ("txt", "jpg", "jpeg", "tif", "gif");
my $error_max_size        = "Your file is too big!";
my $error_file_type       = "File type is not valid!";
my $file_dir              = "/usr/home/sites/www.starwarestoys.com/web/cgipgms/wanted";
my $fileURL               = "http://www.starwarestoys.com/cgipgms/wanted/";
##########################################################
# EZscripting.com © 1999 - 2005
# The scripts are available for private and commercial use
# Once purchased this script can be used in any website you build personally
# You may not sell the script in any format to anybody
# The scripts may only be distributed by EZscripting.com
# Do not post or email all or part of the this code in any form whatsoever
# The redistribution of modified versions of the scripts is prohibited
# EZscripting.com accepts no responsibility or liability
# whatsoever for any damages however caused when using our services or scripts
# By downloading and using this script you agree to the terms and conditions
##########################################################
use CGI qw/:standard :cgi-lib/;
use CGI::Carp qw(fatalsToBrowser);
%FORM = Vars();
@field = param;
	my $a++;
	foreach $key (keys %FORM) {
		$FORM{$key} =~ s/%(..)/pack("c",hex($1))/ge;
		$FORM{$key} =~ s/\Q$separator/$change/g;
		$FORM{$key} =~ s/"/&#34;/g;
		$FORM{$key} =~ s/'/&#39;/g;
		$FORM{$key} =~ s/<!--(.|\n)*-->//g if $kill_html_tags;
		$FORM{$key} =~ s/<([^>]|\n)*>//g if $kill_html_tags;
		$FORM{$key} =~ s/\n/$line_break/g;	 # added to strip line breaks
		$FORM{$key} =~ s/\r//g;
	}



if($Username){
	%COOKIES = get_cookie('USER_Login');
	if($FORM{login}){
		if($FORM{password} eq $Password && $FORM{login} eq $Username){
			print "Set-Cookie: USER_Login=login&$FORM{login}&pass&$FORM{password}; path=/\n";
			print "Location: $prog_name\n\n";
			exit;
		}
		else{error("Incorrect account!");}
	}
	elsif(!$COOKIES{login}){promt();}
	elsif($COOKIES{pass} ne $Password or $COOKIES{login} ne $Username){promt();}
}

@date=localtime();
$date[4]++;
$date[5]+=1900;
$date="$date[5]-$date[4]-$date[3]";

error("Error: Bad record separator!") if !$separator or $separator eq $change or $separator=~m /["'\.\\\/\&;]/;
$my_separator=$separator;
$my_separator="\\".$separator if $separator eq '|'or  $separator eq ',' or  $separator eq '.';


if($FORM{$DBname}){
	$base_file = $FORM{$DBname};
	$qsAdd     = "&$DBname=$FORM{$DBname}";

}
if ($file_upload){
	for(@file_upload_fields){$FileUploadFileds{$_}++};
	$file_dir=~s!/\Z!!;
	$fileURL=~s!/\Z!!;
	$enctype=qq~ENCTYPE="multipart/form-data"~;
}

my $text;
edit()  if $FORM{action} eq 'edit';
add()   if $FORM{action} eq 'add';
save()  if $FORM{action} eq 'save';
# delet() if $FORM{action} eq 'delete';
add_field() if $FORM{action} eq 'add_field';
delete_field() if $FORM{action} eq 'delete_field';
print "Content-type: text/html\n\n"; my $type=1;
$text = "<b>$FORM{message}</b><br>" if $FORM{message};
read_base($FORM{start});

exit;

##############################################################
sub delete_field{
	my @data = read_file();
	my $name = shift;
	$name =~ s/ /_/g; 
	my $a=0;
	chomp $data[0];
	@fields = split($my_separator, $data[0]);
	my $ftxt;
	for(@fields){$ftxt .= "<option>$_";}


	$txt = qq|<table width=$table_width>
		<tr><th class=of colspan=4>Delete field from database</th><tr>
		|;
	if($FORM{deleted_name}){
		my $pos =-1; my $p=0;
		for(@fields){$pos=$p if $_ eq $FORM{deleted_name}; $p++;}
		error("$FORM{deleted_name} field not found in DB!") if $FORM{deleted_name}==-1;

		for(@data){
			@row = split($my_separator, $_);
			splice @row, $pos, 1;
			$_=join($separator, @row);
			chomp;
		
		}
		open (F, ">$base_file") or error("Can't open file");
		for(@data){print F $_."\n";}
		close F;
		print "Location: $prog_name?$qsAdd\n\n";
		exit;
	}
	else{
		$txt.= qq|
		  <form action=$prog_name>
		  <input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\">
		  <input type=hidden name=action value=delete_field>
		  <tr><td colspan=2>Select Field to delete:</td><td colspan=2><select name=deleted_name><option value=''></option>$ftxt</select></td></tr>
		  <tr><td colspan=4 align=center><input type=submit value="[ submit ]"> <input type=reset value="[ reset ]" onclick="history.back()"></td>
		  </form>
		|;
	}
	$txt.="</tr></table>\n";


	html_text($txt);
	exit
}

sub add_field{
	$txt .= qq|<table width=$table_width>
		<tr><th class=of colspan=4>Add new field in database</th><tr>|;
	if($FORM{new_name}){
		add_new_field($FORM{new_name});
		$txt.= qq|<td colspan=4 align=center><br><br><br>Field &lt;<b>$FORM{new_name}</b>&gt; has added!</td>|;}
	else{
		$txt.= qq|
		  <form action=$script_name>
		  <input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\">
		  <input type=hidden name=action value=add_field>
		  <tr><td colspan=2>Field name:</td><td colspan=2><input type=text name=new_name></td></tr>
		  <tr><td colspan=4 align=center><input type=submit value="[ submit ]"> <input type=reset value="[ reset ]"></td>
		  </form>
		|;
	}
	$txt.="</tr></table>\n";
html_text($txt);
exit;
}
sub add_new_field{
	my @data = read_file();
	my $name = shift;
	$name =~ s/ /_/g; 
	my $a=0;
	chomp $data[0];
	@fields = split($my_separator, $data[0]);
	foreach(@fields){ 
		error("Field &lt;<i>$name</i>&gt; already use in database!") if $name eq $_;
	}
	foreach (@data){
		chomp $data[$a];
		$data[0].=$separator.$name."\n" if $a==0;
		$data[$a].=$separator."\n" if $a!=0;
		$a++;
	}
	open (F, ">$base_file") || error("Can't open file for alter table!");
	print F join ("", @data);
	close F;
read_base();exit;
}
sub promt{
    my $text = qq|
      <br><br><br><br><center><form method=post action=$prog_name><input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\">
      <table border=0 width=200>\n
	<tr><td width=43% align=right>Login: </td>
            <td width=57%><input type=text name=login size=13></td></tr>
        <tr><td align=right>Password: </td>
            <td><input type=password name=password size=13></td></tr>
        <tr><td colspan=2 align=center><input type=submit></td></tr>
      </table></form></center>|;
      html_text($text);
	exit;
}

sub get_cookie{
my %COOK;
	@cookies=split('; ',$ENV{HTTP_COOKIE});
	foreach $line (@cookies){
		($c_name, $c_value) = split(/=/,$line,2);
		if ($c_name eq $_[0]){
			@cook=split(/&/,$c_value);
			for($a=0; $a<@cook; $a+=2){
				$cook[$a+1] =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
				$COOK{$cook[$a]}=$cook[$a+1];
			}
		}
	}
	return %COOK;
}
sub delet{
	my @data = read_file();
	$data[$FORM{record}] = "";
	open(F, ">$base_file") || error("Can't open file $base_file!");
	foreach(@data) {print F;}
	close F;
	$text = "Record $FORM{record} deleted!";
	print "Location: $prog_name?page=$FORM{page}&message=$text$qsAdd\n\n";
	exit;
}


sub save{
	my @data = read_file();
	@fields=split($my_separator, $data[0]);
	error("You have bad file!") if !@fields;
	chomp $fields[@fields-1];
	

	if($FORM{record} eq "new"){
		foreach(@fields){
			if ($_ eq 'REMOTE_ADDR' && $REMOTE_ADDR){
				$new_line .="$ENV{REMOTE_ADDR}$separator";
			}
			elsif ($_ eq 'HTTP_USER_AGENT' && $HTTP_USER_AGENT){
				$new_line .="$ENV{HTTP_USER_AGENT}$separator";
			}
			elsif ($_ eq 'DATE' && $DATE){
				$new_line .="$date[2]:$date[1]:$date[0] $date$separator";
			}
			elsif ($ID_autoincrement && $ID_autoincrement_name && $_ eq $ID_autoincrement_name){
				
				#find max Id
				my $positionID =-1; my $p=0;
				foreach(@fields){
					$positionID=$p if $_ eq $ID_autoincrement_name;
					$p++;
				}
				if($positionID>=0){
					for(1..@data-1){
						@line=split($my_separator, $data[$_]);
						$maxID=$line[$positionID] if $maxID<$line[$positionID];
					}
					$maxID++;
				}
				error("Can't find ID position in your db file!") if $positionID<0;
				$new_line .="$maxID$separator";
			}
			elsif($FileUploadFileds{$_})
                          { $new_line .= save_file($_)."$separator"; }
			else{
				$new_line .="$FORM{$_}$separator";
			}

		} 
		chop($new_line);
		open(F, ">>$base_file") || error("Can't open file $base_file!");
		print F "$new_line\n";
		close F;	
	}
	else{
		for (@no_edit_fields){$no_edit{$_}=1;}
		chomp $data[$FORM{record}];
		@line=split($my_separator, $data[$FORM{record}]);
		my $a=0;
		foreach(@fields){
			if(show_this($_) && !$no_edit{$_}) {
				if($FileUploadFileds{$_}){
					if($FORM{$_}){$new_line .= save_file($_)."$separator";}
					else{$new_line .="$line[$a]$separator";}
				}
				else{$new_line .= "$FORM{$_}$separator";}
			}
			else{$new_line .="$line[$a]$separator";}
			$a++;
		}
		$data[$FORM{record}] = "";
		$data[$FORM{record}] = $new_line;
		chop $data[$FORM{record}];
		$data[$FORM{record}].="\n";
		open(F, ">$base_file") || error("Can't open file $base_file!");
		foreach(@data) {print F;}
		close F;
	}
	$text = "Record $FORM{record} saved!";
	print "Location: $prog_name?page=$FORM{page}&message=$text$qsAdd\n\n";
	exit;
}

sub add{
	my $text;
	my @data = read_file();
	chomp $data[0];
	chomp $data[$FORM{record}];
	@fields=split($my_separator, $data[0]);
	error("You have bad file!") if !@fields;
	$text .= "<table  border=0 cellspacing=2 width=$table_width cellpadding=1>
		  <form action=$prog_name method=post $enctype><input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\">
		  <tr><th colspan=2 class=of>Add new record</th></tr>";
	my $a=0;
	foreach(@fields){
	    if (show_this($_)){
		$text .=  qq|<tr><td class=off>&nbsp;$_: </td><td class=off>|;
		$i=0;
		foreach $big (@textareas){$i=1 if $_ eq $big;}
		if ($i==1){
			$text .=  qq|<textarea cols=$cols rows=$rows name="$_"></textarea>|;}
		elsif($ID_autoincrement && $ID_autoincrement_name && $_ eq $ID_autoincrement_name){
			$text .= " - &nbsp;Autoincrement";
		}
		elsif($_ eq "REMOTE_ADDR" or $_ eq "HTTP_USER_AGENT" or $_ eq "DATE"){$text .= " - &nbsp;Auto";}
		elsif($FileUploadFileds{$_}){$text .=  qq|<input type=file name="$_">|;}
		else{$text .=  qq|<input type=text name="$_"  size=$text_box>|;}
		$text .=  qq|</td></tr>|;
            }
	}
	$text .=  qq|<tr><td class=off colspan=2 align=center>
		<input type=submit value="[ save ]">
		<input type=button value="[ cancel ]" onclick="history.back()">
		</td></tr></table><input type=hidden name=action value="save">
		<input type=hidden name=page value=$FORM{page}>
		<input type=hidden name=record value="new">|;	
	$text .=  "</form>";
html_text($text);
exit;
}


sub show_this{
	foreach(@no_show_fields){return 0 if $_ eq $_[0];}
	return 1;
}

sub edit{
	my $text;
	my @data = read_file();
	chomp $data[0];
	chomp $data[$FORM{record}];
	@fields=split($my_separator, $data[0]);
	error("You have bad file!") if !@fields;
	@line=split($my_separator, $data[$FORM{record}]);
	$text .= "<table  border=0 cellspacing=2 width=$table_width cellpadding=1>
		  <form action=$prog_name method=post $enctype><input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\">
		  <tr><th colspan=2 class=of>Edit record #$FORM{record}</th></tr>";
	my $a=0;
	for (@no_edit_fields){$no_edit{$_}=1;}
	foreach(@fields){
		if (show_this($_)){
			$text .=  qq|<tr><td class=off valign=top>&nbsp;$_: </td><td class=off>|;
			$i=0;
			foreach $big (@textareas){$i=1 if $_ eq $big && !$no_edit{$_};}
			if ($i==1){
				$line[$a]=~s/$line_break/\n/gi;
				$text .=  qq|<textarea cols=$cols rows=$rows name="$_">$line[$a]</textarea>|;}
			elsif($ID_autoincrement && $ID_autoincrement_name && $_ eq $ID_autoincrement_name){
				$text .=  qq|<b>$line[$a]</b><input type=hidden name="$_" value="$line[$a]">|;
			}
			elsif($no_edit{$_}){$text .=  qq|$line[$a]|;}
			elsif($FileUploadFileds{$_}){
                                $text .=  qq~<a href="$fileURL/$line[$a]" target="_blank">$line[$a]</a><br>~ if $line[$a];
				$text .=  qq|<input type=file name="$_">|;
			}
			else{$text .=  qq|<input type=text name="$_" value="$line[$a]" size=$text_box>|;}
			$text .=  qq|</td></tr>|;
		}
		$a++;
	}
	$text .=  qq|<tr><td class=off colspan=2 align=center>
		<input type=submit value="[ save ]">
		<input type=button value="[ cancel ]" onclick="history.back()">
		</td></tr></table><input type=hidden name=action value="save">
		<input type=hidden name=page value=$FORM{page}>
		<input type=hidden name=record value=$FORM{record}>|;	
	$text .=  "</form>";
html_text($text);
exit;
}


sub read_base{

	#parse search
	$FORM{search}=~s/,/ /g;
	$FORM{search}=~s/ +/ /g;
	@words=split(" ", $FORM{search});
	$FORM{field} = "" if $FORM{field} eq 'all';



	my @data = read_file();
	$f_line = shift @data;
	chomp $f_line;
	@fields=split($my_separator, $f_line);
	
	error("You have bad file!") if !@fields;
	$option = "<option value=''>all</option>";
	foreach(@fields){
		$option.="<option";
		$option.=" selected" if $FORM{field} eq $_;
		$option.=">$_</option>\n";
	}
	$a=0;
	if($FORM{field}){
		foreach(@fields){$position=$a  if $FORM{field} eq $_; $a++;}
	}	
	

	$a=0;$b=1;
	foreach (@data){
		if($FORM{search}){
			@ff= split($my_separator, $_);
			my $ok=0;
			if($FORM{field}){
				foreach $word (@words){
					if($ff[$position]=~m/\Q$word/i){$ok=1;}
				}
			}
			else{
				foreach $word (@words){
					foreach $value (@ff){
						if($value=~m/\Q$word/i){$ok=1; break;}
					}
				}
			}
			if($ok==1){$selected[$a]=$_; $index[$a]=$b;$a++;}
		}
		else{$selected[$a]=$_; $index[$a]=$b;$a++; }
		$b++;
	}
	
	my $total=@selected; 
	
	if($multyOn){
		for(sort keys %DB){
			$db.="<option value=\"$_\"";
			$db.=" selected" if$FORM{$DBname} eq $_;
			$db.=">$DB{$_}</option>";}
	
	}
	
	
	$link = "[ <a href=$prog_name?action=add_field$qsAdd>Add new field</a> ]" if $add_fields;
	$link .= " [ <a href=$prog_name?action=delete_field$qsAdd>Delete field</a> ]" if $delete_fields;
	$text .= "<table  border=0 cellspacing=2 width=$table_width cellpadding=1>";
	$text .= "<tr><th colspan=2 class=of>Total records: $total [ <a href=$prog_name?action=add$qsAdd>Add new</a> ] $link</th></tr>";
	$text .= "<tr><form name=\"form\"><td colspan=2 align=right>current db: <select name=\"$DBname\" onchange=\"document.form.submit()\">$db</select></td></form></tr>" if $multyOn;

	$text .= " <form action=$prog_name method=post><input type=hidden name=\"$DBname\" value=\"$FORM{$DBname}\"><tr><td align=right colspan=2>search <input name=search value=\"$FORM{search}\"> 
		  in field <select name=field>$option</select> <input type=submit value=\"[ search ]\">&nbsp;</td></tr></form>
		  ";
		  
	if(@selected<1){
		$text .= "<tr><td colspan=2 align=center><br><br><br><b>$no_match</b></td></tr></table>";
		html_text($text);
		return;
	};
	
	my $end = $FORM{page}*$records + $records;
	$end = $total if $end>$total;
	for($a=$FORM{page}*$records; $a<=$end-1; $a++){
		chomp $selected[$a];
		@line=split($my_separator, $selected[$a]);
		$b=0;
		$text .= "<tr><td colspan=2 class=of align=left>&nbsp;Record #".($a+1)."</td></tr>";
		foreach(@fields) {
			$line[$b]&&=qq~<a href="$fileURL/$line[$b]" target="_blank">$line[$b]</a>~ if $FileUploadFileds{$_};
			$text .= "<tr><td class=off>&nbsp;$_:</td><td class=off>$line[$b]</td></tr>" if show_this($_); 
			$b++;
		}
		$text .= "<tr><td class=off align=right colspan=2><a href=$prog_name?action=delete&record=$index[$a]&page=$FORM{page}$qsAdd onclick=\"return confirm('Delete Record #$index[$a]')\">delete</a> <a href=$prog_name?action=edit&record=$index[$a]&page=$FORM{page}$qsAdd>edit</a></td></tr>";
	}
	$text .= "<tr><td colspan=2>&nbsp;Pages: ";
	$query = "&search=$FORM{search}&field=$FORM{field}" if $FORM{search};
	
        #set page selector
        $text .= "<a href=\"$prog_name?$query$qsAdd&page=".($FORM{page}-1)."\">$textPrevious</a> " if $FORM{page}>0;
	my $pageStart=0;
	my $pageEnd = $total/$records-1 if $records;
	
	if($pageSelectorRange){
		$pageEnd = int($pageEnd+0.5);
		$pageStart= $FORM{page}-int($pageSelectorRange/2) if $FORM{page}>int($pageSelectorRange/2);
		$pageEnd=$pageStart+$pageSelectorRange-1 if $pageStart+$pageSelectorRange-1<$pageEnd;
		$pageStart= $pageEnd-$pageSelectorRange+1 if $pageEnd-$pageSelectorRange+1>=0;
	}
	
	
	for($pages=$pageStart; $pages <= $pageEnd; $pages++){
		$p=$pages+1;
		if($FORM{page}==$pages){$text.= " $p";}
		else{$text.= qq| <a href="$prog_name?$query$qsAdd&page=$pages">$p</a>|;}
		
	}  
	
	$text.= " <a href=\"$prog_name?$query$qsAdd&page=".(1+$FORM{page})."\">$textNext</a>" if  $FORM{page} < $total/$records-1 && $records;
	$text .= "</td></tr></table>";
	html_text($text);
}

sub read_file{
	my $file=shift;
	$file = $base_file unless $file;
	open(F, $file) || error("Can't open file $file!");
	my @data = <F>;
	close F;
	return @data;
}

sub error{
	print "Content-type: text/html\n\n" unless $type;
	print "<html><head><title>Error</title></head><body><br><br><br><font color=red><h3>$_[0]</h3></font></body></html>";
	exit;

}  

sub save_file{	
	($file=param($_[0]))=~m/([^\\\/]*\.\w*\Z)/i;
        if (((!defined($file)) || ($file eq "")) && ($file_upload_optional)) {
           return "$default_file";
        }
	$filename=$1;
        if (($filename eq $default_file) && (!$rename_file) && ($file_upload_optional)) {
           error("This filename is not allowed<br>");
        }
	$filename=~m/.*\.(\w*\Z)/i; 
	my $type = $1;
	my $found=0;
	foreach(@required_file_types){$found =1 if lc $_ eq lc $type}	
	error($error_file_type) unless $found;
	my $tmp_size =0;
	if($rename_file){
		$filename = $_[0]."_".int(rand(10000)).".".$type;
		while(-e $filename){$filename = $_[0]."_".int(rand(10000)).".".$type;}
	}
	open(FILE,">$file_dir/$filename") || error("Can't save  file $filename");
	binmode FILE; 
	while ($bytesread=read($file,$buffer,1024)) {
		print FILE $buffer;
		$tmp_size+=1024;
		if($max_size<$tmp_size){
			close FILE; unlink "$file_dir/$filename";
			error("$error_max_size");
		}
	} 
	close(FILE);
        return "$filename"; 
}

sub get_record{
	my $text = $_[0]; 
	$text =~ s{<<(.*?)>>}{exists($INSERT{$1}) ? $INSERT{$1} : ""}gsex;
	return $text;
}
sub get_html{
	my @txt = read_file($_[0]);
	my $txt;
	foreach(@txt){$txt.=$_;}
	$txt=~/(.*)<template>(.*)<\/template>(.*)/s;
	error("Template-tag not found!") if !$1 or !$2;
	return ($1,$2,$3);
}
sub html_text{
	print "Content-type: text/html\n\n" unless $type;
	if($template){
		(my $head, my $tmp, my $foot) = get_html($template);
		print get_record($head), $_[0], get_record($foot);
		exit;
	}
	print qq|<html>
		<head>
		<title>CSVedit</title>
		<style>
			tr,td,body {font-family: Tahoma, Arial; font-size:10pt;}  
			.of {border-style:solid; border-width: 1; border-color : #999999; background-color:#dddddd}
			.on {border-style:none;background-color:#ddeedd}
			.off {border-style:none;background-color:#f3f3f3}
		</style>
		</head>
		<body>
		$_[0]
		</body></html>|;
	exit;

} 
##########################################################
# EZscripting.com © 1999 - 2005
# The scripts are available for private and commercial use
# Once purchased this script can be used in any website you build personally
# You may not sell the script in any format to anybody
# The scripts may only be distributed by EZscripting.com
# Do not post or email all or part of the this code in any form whatsoever
# The redistribution of modified versions of the scripts is prohibited
# EZscripting.com accepts no responsibility or liability
# whatsoever for any damages however caused when using our services or scripts
# By downloading and using this script you agree to the terms and conditions
##########################################################