#!/usr/sbin/perl
require '/usr/people/jevbratt/web/cookielib/cookie.lib';

#get selected color to follow
$followColor=$ENV{'QUERY_STRING'};


#get file to edit  (must be in same directory as cgi) link 
 $ref_html=$ENV{'HTTP_REFERER'};
 @path=split(/(\/)/,$ref_html);
 
 $change_html=@path[@path-1];

 if($change_html eq "/"){
    $change_html="index.html";
 }

#$change_html="index.html";
#$followColor="red";

# Begin the editing of the file
  open (FILE,"$change_html") || die "Can't Open $change_html: $!\n";
  @LINES=<FILE>;
  close(FILE);
  $SIZE=@LINES;


  for ($i=0;$i<=$SIZE;$i++) {
      $_=$LINES[$i];

######################checking most used link#####################

      if (/<!--link/) { 
        $COLORLINE=$_;
        @colorline=split(/#/,$COLORLINE);
        $COLORintR=hex(substr(@colorline[1],0,2));
        $COLORintG=hex(substr(@colorline[1],2,2));
        $COLORintB=hex(substr(@colorline[1],4,2));

	if ($followColor eq "red"){
	  $COLORint=$COLORintR;
	}
	elsif ($followColor eq "green"){
	  $COLORint=$COLORintG;
	}
	elsif ($followColor eq "blue"){
	  $COLORint=$COLORintB;
	}

	@temp=split(/(\?)/,$LINES[$i-1]);
	$linkNrAndUrl=@temp[@temp-1];
	@temp=split(/=/,$linkNrAndUrl);
	$link=@temp[0];
	$url=@temp[1];
	@temp=split(/"/,$url);
	$url=@temp[0];
	$colorHighListlength=@colorHighList;

	if ($COLORint>@colorHighList[$colorHighListlength-1]){

	  @colorHighList= $COLORint;
	  @UrlList= $url;
	  @linkList= $link;

	}

	elsif ($COLORint == @colorHighList[$colorHighListlength-1]){

	  @colorHighList[$colorHighListlength]= $COLORint;
	  @UrlList[$colorHighListlength]= $url;
	  @linkList[$colorHighListlength]= $link;
	}

      }
    }
$UrlListLength=@UrlList;

if ($UrlListLength != 1){
	srand(time() ^ $$);
        $temp=int(rand ($UrlListLength-1));
	$url=@UrlList[$temp];
	$link=@linkList[$temp];
}

else{ 
	$url=@UrlList[0];
	$link=@linkList[0];
}

#print "link=$link\n";
######################end checking most used link#####################

#print "UrlList=@UrlList\n";
#print "temp=$temp\n";
#print "UrlListLength=$UrlListLength\n";
#print "urllist =@UrlList[168]\n";
#print "linklist =@linkList[168]\n";



if (&GetCookies('domaineType')) {

# Open Link File to Output
  open (GUEST,">$change_html") || die "Can't Open $change_html: $!\n";

  for ($j=0;$j<=$SIZE;$j++) {
     $_=$LINES[$j];


     if (/<!--$link-->/) { 

       $COLORLINE=$_;
#print "$COLORLINE\n";
       @colorline=split(/#/,$COLORLINE);
       $COLORintR=hex(substr(@colorline[1],0,2));
       $COLORintG=hex(substr(@colorline[1],2,2));
       $COLORintB=hex(substr(@colorline[1],4,2));

       $COLORintRc=(substr($Cookies{'domaineType'},0,1));
       $COLORintGc=(substr($Cookies{'domaineType'},1,1));
       $COLORintBc=(substr($Cookies{'domaineType'},2,1));

  
       if ($COLORintRc==1){
	 $COLORintR=$COLORintR+20;
         $COLORintG=$COLORintG-10;
         $COLORintB=$COLORintB-10;

       }
       if ($COLORintGc==1){
         $COLORintR=$COLORintR-10;
         $COLORintG=$COLORintG+20;
         $COLORintB=$COLORintB-10;
       }
       if ($COLORintBc==1){
         $COLORintR=$COLORintR-10;
         $COLORintG=$COLORintG-10;
         $COLORintB=$COLORintB+20;
       }


       if($COLORintR < 0){
         $COLORintR=0;
       } 

       if($COLORintG < 0){
         $COLORintG=0;
       } 

       if($COLORintB < 0){
         $COLORintB=0;
       } 
      
       if($COLORintR > 255){
         $COLORintR=255;
       } 

       if($COLORintG > 255){
         $COLORintG=255;
       } 

       if($COLORintB > 255){
         $COLORintB=255;
       } 

       $COLORr = sprintf ("%lx", $COLORintR);
       $COLORg = sprintf ("%lx", $COLORintG);
       $COLORb = sprintf ("%lx", $COLORintB);
     
       if($COLORintR < 16){
       $COLORr= join ('',"0",$COLORr);
       } 

       if($COLORintG < 16){
       $COLORg= join ('',"0",$COLORg);
       } 

       if($COLORintB < 16){
       $COLORb= join ('',"0",$COLORb);
       } 


       substr(@colorline[1],0,2)=$COLORr;
       substr(@colorline[1],2,2)=$COLORg;
       substr(@colorline[1],4,2)=$COLORb;


       print  GUEST "@colorline[0]";
       print  GUEST "#";
       print  GUEST "@colorline[1]";
     }
     else {
        print GUEST $_;
     }
    
  }
}
close (GUEST);


print "Location: $url\n\n";