#!/usr/bin/perl
####################################################################
# Script:       | Poll It                                          #
# Version:      | 2.05                                             #
# By:           | Jason Berry (i2 Services, Inc. / CGI World)      #
# Contact:      | jason@cgi-world.com                              #
# WWWeb:        | http://www.cgi-world.com                         #
# Copyright:    | Jason Berry (CGI World of i2 Services, Inc.)     #
# Released      | August 09, 1998                                  #
####################################################################
# By using this software, you have agreed to the license           #
# agreement packaged with this program.                            #
#                                                                  #
####################################################################
# Variables: 
 #
   #

   $admin_password = "mayajed1";
   # Password you would like to use for entering the administration
   # area located at:  ScriptName.cgi?load=login


   $image_url = "http://www.e-souks.com/polls/pollit_files/image.gif";
   # URL to the 'image.gif' that was packaged with this script. Upload
   # that GIF Image to your website & enter the URL to it above.


   $vote_text = "Enregistrez mon vote!";
   # Text that is shown on the submit button when casting your vote.

   
   # Note:
   ##################################################################
          # If you're looking to use an image in one of the variables
          # below, input the IMAGE tag inside of the quotes as:
          # <IMG SRC=\"image_url.gif\"> <-- Placing backslashes (\) 
          # before the extra quotes inside a quote.
          ###########################################################


   $last_poll_text = "<LI>Consulter les resultats des Sondages precedents";
   # Text that is linked to view the previous results of your 
   # previous poll.


   $results_not_available = "<BR>Les resultats seront affiches prochainement...";
   # Message shown when the number of votes is not greater then
   # the ammount you opted for when setting up a poll.

   
   $poll_not_available = "<BR>Temporairement, il n'y a pas de sondage d'opinion en cours...<P>Revenez bientot...";
   # Message listed when a poll is not available. 
   #


#
 #
  # (We do not support this script if you edit below this line )
   ################################################################

  #
#

%in = &ReadForm;

if ($0=~m#^(.*)(\\|/)#)	{ $cgidir = $1; }
else { $cgidir = `pwd`; chomp $cgidir; }

$script_url  = $ENV{'SCRIPT_NAME'};
$data_dir = "$cgidir/pollit_files";
$poll_options = "$data_dir/poll_options.txt";
$last_poll_options = "$data_dir/last_poll_options.txt";
$poll_info = "$data_dir/poll_info.txt";
$last_poll_info = "$data_dir/last_poll_info.txt";
$ips_file = "$data_dir/ips.txt";
$last_file = "$data_dir/last_poll.txt";
$lockdir = "$data_dir/filelock";


# Administration Area:
###############################################################

   if($admin_password eq "$entered_password") {
   
      print "Content-Type: text/html\n\n";


      # Add New Voting Option:
      #########################################################
  
      if($action eq "add_option" && $add_option) {

         open(COPTIONS,"<$poll_options");
         @coptions = <COPTIONS>;
         close(COPTIONS);

         $number_info = pop(@coptions);
         @ninfo = split(/=/,$number_info);
         $new_num = $ninfo[0] + 1;

         open(COPTIONS2,">>$poll_options");
         print COPTIONS2 "$new_num=$add_option=0\n";
         close(COPTIONS2);

      }


      # Expire Poll & Remove Poll:
      #########################################################
  
      if($action eq "expire_poll") {

         &last_poll;
         &remove_poll;

      }


      # Delete Poll:
      #########################################################
  
      if($action eq "delete_poll") {

         &remove_poll;

      }


    
      # New Poll Action: 
      ######################################################

      if($new_pollaction && $show_after && $new_title) {

         if($new_pollaction eq "lastpoll") {
            &last_poll;
         }

         &FileLock("$lockdir");
         open(NEWOPTIONS,">$poll_options");
         print NEWOPTIONS "total=0\n";
         $ncount = 1;
         foreach$new_option(@added_options) {
            print NEWOPTIONS "$ncount=$new_option=0\n";
            $ncount++;
         }
         close(NEWOPTIONS);

            
         open(NEWINFO,">$poll_info");
         print NEWINFO "poll_title=$new_title\n";
         print NEWINFO "show_results_after=$show_after\n";
         close(NEWINFO);

         open(NEWIPS,">$ips_file");
         print NEWIPS "";
         close(NEWIPS);


         &FileUnlock("$lockdir");

         undef($action);

      }


      # Create New Poll:
      #########################################################

      if($action eq "create_new") {

         # Create New Poll:
         ######################################################

         &Template("$data_dir/_admin_create_poll.html");

         $remove = join('|',@removes);


         foreach$new_option(sort @added_options) {

            if($new_option !~ /^$remove$/) {
               $show_new_options .= &Cell('poll_options');
            }
         }            

         if($show_new_options) { $show_new_options .= "<P><font size=2 color=red>To remove an added option mark its checkbox <BR>next to it, then press <INPUT Type=SUBMIT Value=\"OK\"> </font>" };

         if(!$show_new_options) { $show_new_options = "<b><font color=red>No NEW Options Currently...</font></b>" };

         print &Template("$data_dir/_admin_create_poll.html");

         exit;

      }



      # Show Main Menu:
      #########################################################

      else {
   
         &Template("$data_dir/_admin_menu.html");

         open(POLLINFO,"<$poll_info");
         while(<POLLINFO>) {
            chop($_);
            ($pinfo,$pvalue) = split(/=/,$_);
            $$pinfo = "$pvalue";
         }
         close(POLLINFO);

         open(POLLOPTIONS,"<$poll_options");
         @unsorted_poll_options = <POLLOPTIONS>;
         close(POLLOPTIONS);

         foreach$unsorted(@unsorted_poll_options) {
            ($option_id,$poll_option,$votes_received) = split(/=/,$unsorted);
            chop($votes_recieved);

            if($option_id eq "total") {
               $total = $poll_option;
            }

            $push = "$votes_received\=$option_id\=$poll_option";
            push(@poll_options,$push);

         }

         foreach$p_option(sort { $b <=> $a } @poll_options) {
            ($votes_received,$option_id,$poll_option) = split(/=/,$p_option);

            if($option_id ne "total" && $total > 0) {


               $percent = (int(($votes_received / $total) * 1000)) / 10;
               $percent = substr($percent,0,4);
  
               $sign = "%";

               if($votes_received < 1) {
                  $percent = "0";
               }

               $width = int($percent * 2);

               if($votes_received < 1) {
                  $width = 2;
               }


               $percent = "$percent$sign";
               $image_percent = "<IMG SRC=\"$image_url\" Height=\"10\" Width=\"$width\">";
               $show_results .= &Cell('poll_results');

            }   
         }

         if(!$show_results) { $show_results = "<b><font color=red>There are currently no results for your current poll</font></b>" };

         if(!$poll_title) { undef($show_results) };

         print &Template("$data_dir/_admin_menu.html");
      }

      exit;


}


# Administration Login:
###############################################################

if($load =~ /login|admin/i || $entered_password && $entered_password ne "$admin_password") {
   
   print "Content-Type: text/html\n\n";

   &Template("$data_dir/_admin_login.html");

   print &Template("$data_dir/_admin_login.html");

   exit;
}


# Show Last Poll Results:
###############################################################

if($load =~ /^lastpoll/i) {
   
   print "Content-Type: text/html\n\n";

   &Template("$data_dir/_last_poll.html");

   open(POLLINFO,"<$last_poll_info");
   while(<POLLINFO>) {
      chop($_);
      ($pinfo,$pvalue) = split(/=/,$_);
      $$pinfo = "$pvalue";
   }
   close(POLLINFO);

   open(POLLOPTIONS,"<$last_poll_options");
   @unsorted_poll_options = <POLLOPTIONS>;
   close(POLLOPTIONS);

   foreach$unsorted(@unsorted_poll_options) {
      ($option_id,$poll_option,$votes_received) = split(/=/,$unsorted);
      chop($votes_recieved);

      if($option_id eq "total") {
         $total = $poll_option;
      }


      $push = "$votes_received\=$option_id\=$poll_option";
      push(@last_poll_options,$push);
   }


   foreach$p_option(sort { $b <=> $a } @last_poll_options) {
      ($votes_received,$option_id,$poll_option) = split(/=/,$p_option);


      if($option_id ne "total" && $total > 1) {


         $percent = (int(($votes_received / $total) * 1000)) / 10;
         $percent = substr($percent,0,4);
  
         $sign = "%";

         if($votes_received < 1) {
            $percent = "0";
         }

         $width = int($percent * 2);

         if($votes_received < 1) {
            $width = 2;
         }


         $percent = "$percent$sign";
         $image_percent = "<IMG SRC=\"$image_url\" Height=\"10\" Width=\"$width\">";
         $show_results .= &Cell('poll_results');

      }
   }

   $show_results .= &Cell('total_votes');


   print &Template("$data_dir/_last_poll.html");




   exit;
}



# Show Poll:
###############################################################

if(!$ENV{'QUERY_STRING'}) {


open(IPS,"<$ips_file");
@ips = <IPS>;
close(IPS);

$all_ips = join('|',@ips);

$addr = "$ENV{'REMOTE_ADDR'}\n";

if(@ips && $addr =~ /$all_ips/) {
   $voted = 1;
}


if($option_selected && !$voted) {


   &FileLock("$lockdir");
   open(MIPS,">>$ips_file"); 
   print MIPS "$ENV{'REMOTE_ADDR'}\n";
   close(MIPS);
   &FileUnlock("$lockdir");


   open(POPTIONS,"<$poll_options");
   while(<POPTIONS>) {
      ($option_id,$poll_option,$votes_received) = split(/=/,$_);

      if($option_id eq "total") {
         $new_total = $poll_option + 1;
         $push = "total=$new_total\n";
         push(@reprint,$push);
      }      

      else {
     
         if($option_id eq "$option_selected") {
            $new_ototal = $votes_received + 1;
            $push = "$option_id\=$poll_option\=$new_ototal\n";
            push(@reprint,$push);
         }

         else {
            push(@reprint,$_);
         }
      }

   }
   close(POPTIONS);


   &FileLock("$lockdir");
   open(REPRINT,">$poll_options");
   print REPRINT @reprint;
   close(REPRINT);
   &FileUnlock("$lockdir");


   $voted = 1;

}



# Print Out Poll:
###############################################################

&Template("$data_dir/_poll.html");

open(POLLINFO,"<$poll_info");
while(<POLLINFO>) {
   chop($_);
   ($pinfo,$pvalue) = split(/=/,$_);
   $$pinfo = "$pvalue";
}
close(POLLINFO);

open(POLLOPTIONS,"<$poll_options");
@unsorted_poll_options = <POLLOPTIONS>;
close(POLLOPTIONS);

foreach$unsorted(@unsorted_poll_options) {
   ($option_id,$poll_option,$votes_received) = split(/=/,$unsorted);
   chop($votes_recieved);

   if($option_id eq "total") {
      $total = $poll_option;
   }


   $push = "$votes_received\=$option_id\=$poll_option";
   push(@poll_options,$push);
}


# Show Voting Results:
#####################################

if($voted) {

   foreach$p_option(sort { $b <=> $a } @poll_options) {
      ($votes_received,$option_id,$poll_option) = split(/=/,$p_option);


      if($option_id ne "total" && $total > 0) {


         $percent = (int(($votes_received / $total) * 1000)) / 10;
         $percent = substr($percent,0,4);
  
         $sign = "%";

         if($votes_received < 1) {
            $percent = "0";
         }

         $width = int($percent * 2);

         if($votes_received < 1) {
            $width = 2;
         }


         $percent = "$percent$sign";
         $image_percent = "<IMG SRC=\"$image_url\" Height=\"10\" Width=\"$width\">";
         $show_results .= &Cell('poll_results');

      }
   }

   $show_results .= &Cell('total_votes');

   if($show_results_after > $total) {
      undef($show_results);
      $show_results = "$results_not_available";
   }

}



# Show Voting Options:
#####################################

if(!$voted) {

   foreach$p_option(@poll_options) {
      ($votes_received,$option_id,$poll_option) = split(/=/,$p_option);

      if($option_id ne "total") {
         $display_options .= &Cell("show_options");
      }
   }


   if(!$display_options) { 

      $display_options = "$poll_not_available" ;
      $poll_title = "No Poll Currently Available...";  
   }
}

if($display_options) { $submit = " <BR> <INPUT Type=SUBMIT Value=\"$vote_text\">" };


open(LASTPOLL,"<$last_poll_options");
@last_poll = <LASTPOLL>;
close(LASTPOLL);

if(@last_poll) {
   $last_poll = "<A HREF=\"$script_url?load=lastpoll\">$last_poll_text</A><BR>";
}



print &Template("$data_dir/_poll.html",'html');

}




# Send Poll to Last Poll:                                     #
###############################################################
# Usage    : &last_poll                                       #
#                                                             #
###############################################################

sub last_poll {

   open(CPOLLOPTIONS,"<$poll_options");
   @cpoptions = <CPOLLOPTIONS>;
   close(CPOLLOPTIONS);

   open(CPOLLINFO,"<$poll_info");
   @cpollinfo = <CPOLLINFO>;
   close(CPOLLOINFO);

   open(LASTPOLLOPTIONS,">$last_poll_options");
   print LASTPOLLOPTIONS @cpoptions;
   close(LASTPOLLOPTIONS);

   $expired_date = localtime();

   open(LASTPOLLINFO,">$last_poll_info");
   print LASTPOLLINFO @cpollinfo;
   print LASTPOLLINFO "expired=$expired_date\n";
   close(LASTPOLLINFO);

}

# Remove Current Poll:                                        #
###############################################################
# Usage    : &remove_poll;                                    #
#                                                             #
###############################################################

sub remove_poll {

   open(POLL,">$poll_options");
   print POLL "";
   close(POLL);

   open(INFO,">$poll_info");
   print INFO "";
   close(INFO);

   open(IPS,">$ips_file");
   print IPS "";
   close(IPS);


}


# Load Template:                                              #
###############################################################

sub Template {  

  local(*FILE);

  if    ($_[1] eq 'html') { print "Content-type: text/html\n\n"  unless ($ContentType++ > 0); }
  elsif ($_[1] eq 'text') { print "Content-type: text/plain\n\n" unless ($ContentType++ > 0); }

  if    (!$_[0])	{ return "<br>\nTemplate : No file was specified<br>\n"; }
  elsif (!-e "$_[0]")	{ return "<br>\nTemplate : File '$_[0]' does not exist<br>\n"; }
  else {
    open(FILE, "<$_[0]") || return "<br>\nTemplate : Could open $_[0]<br>\n";
    while (<FILE>) { $FILE .= $_; }
    close(FILE);
    for ($FILE) {
      s/<!-- insert : (.*?) -->/\1/gi;				# show hidden inserts
      s/<!-- def : (\w+) -->(?:\r\n|\n)?(.*?)<!-- \/def : \1 -->/
	$CELL{$1}=$2;''/ges;					# read/remove template cells
      s/\$(\w+)\$/${$1}/g;					# translate $scalars$
      }
    }
  return $FILE;
}


# Translate Cell:                                             #
###############################################################

sub Cell {  

  my($CELL);
  for (0..$#_) { if ($_[$_]) { $CELL .= $CELL{$_[$_]}; }}

  if    (!$_[0]) { return "<br>\nCell : No cell was specified<br>\n"; }
  elsif (!$CELL) { return "<br>\nCell : Cell '$_[0]' is not defined<br>\n"; }
  else		 { $CELL =~ s/\$(\w+)\$/${$1}/g; }		# translate $scalars$
  
  return $CELL;

}


# Parse Form:                                                 #
###############################################################
# Usage    : %in = &ReadForm;                                 #
#                                                             #
###############################################################

sub ReadForm {

  my($max) = $_[1];					# Max Input Size
  my($name,$value,$pair,@pairs,$buffer,%hash);		# localize variables

  # Check input size if max input size is defined
  if ($max && ($ENV{'CONTENT_LENGTH'}||length $ENV{'QUERY_STRING'}) > $max) {
    die("ReadForm : Input exceeds max input limit of $max bytes\n");
    }

  # Read GET or POST form into $buffer
  if    ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
  elsif ($ENV{'REQUEST_METHOD'} eq 'GET')  { $buffer = $ENV{'QUERY_STRING'}; }

  @pairs = split(/&/, $buffer);				# Split into name/value pairs
  foreach $pair (@pairs) {		

    ($name, $value) = split(/=/, $pair);		# split into $name and $value
    $value =~ tr/+/ /;					# replace "+" with " "
    $value =~ s/%([A-F0-9]{2})/pack("C", hex($1))/egi;	# replace %hex with char

    if($name eq "add_option" && $value) {
       push(@added_options,$value);
    }

    if($name eq "remove_new") {
       push(@removes,$value);
    }

    if($name ne "admin_password") {
       $$name = $value;
    }
  }

  return %hash;

  }


# File Locking:                                               #
###############################################################
# Usage    : &FileLock("$lockdir");                           #
#	   : &FileUnlock("$lockdir");                         #
#                                                             #
###############################################################

sub FileLock   {
  my($i);					# sleep counter
  while (!mkdir($_[0],0777)) {			# if there already is a lock
    sleep 1;					# sleep for 1 sec and try again
    if (++$i>60) { die("File_Lock : Can't create filelock : $!\n"); }		
    }
  }

sub FileUnlock {
  rmdir($_[0]);					# remove file lock dir
  }


####################################################################