#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
$baseway = "/home/comoman/httpd/htdocs/page/";


&parse_data;
&adv;
&generate_html;


sub parse_data
{
        local ($buffer, @pairs, $pair, $name, $value, %FORM);
        # Read in text
        $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
        if ($ENV{'REQUEST_METHOD'} eq "POST") {
                        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        } else { # this is a "GET" method
                        $buffer = $ENV{'QUERY_STRING'};
        } # else
        @pairs = split(/&/, $buffer);
        foreach $pair (@pairs) {
                ($name, $value) = split(/=/, $pair);
                $value =~ tr/+/ /;
                $value =~ s/%(..)/pack("C", hex($1))/eg;
                $form{$name} = $value;
        }# end foreach
        %form;
       
}
sub adv {
  
  $image_url = "/ximg";
  $default_image_list = "/home/comoman/httpd/htdocs/vdata/myadv.list";
  $location_of_cgi_lib = "/home/comoman/httpd/cgi-bin/cgi-lib.pl";
  srand;
  require "$location_of_cgi_lib";
  $image_database = "$default_image_list";
    

#  open (IMAGE_DATABASE, "$image_database") || &CgiDie ("Can't open $image_database");
   open (IMAGE_DATABASE, "$image_database") ;

  while (<IMAGE_DATABASE>)
    {
    ($image, $url , $kk, $hh , $owner) = split (/\|/, $_);
    chop $url;
    push (@imagelist, $image);
    push (@url_list, $url);
    push (@kk_list, $kk);
    push (@hh_list, $hh);
    push (@owner_list, $owner);
    }
  close (IMAGE_DATABSE);

  $random_number = int(rand(@imagelist));
  $random_image = $imagelist[$random_number];
  $random_url = $url_list[$random_number];
  $random_kk = $kk_list[$random_number];
  $random_hh = $hh_list[$random_number];
  $random_owner = $owner_list[$random_number];
  $bannerhere .="<A HREF =$random_url><IMG SRC =\"$image_url/$random_image\" width=468 height=60 border=0 alt=$random_kk><br><center>
				<font size=2 face=arial>$random_hh</font></A><br>";
      
      
    
}

sub generate_html {

 if ($form{'key'} ne "")
{

$countrylist="/home/comoman/httpd/htdocs/cdata/dir.txt";
open (READ,"$countrylist");
while (<READ>) {
($ename,$cname)=split (/\|/,$_);
push (@enames,$ename);
push (@cnames,$cname);
}
close READ;



$i=0;
foreach  (@enames) {
if (/$form{'key'}/i) {
$mycname=$cnames[$i];
$mycountry=$enames[$i];
}
$i++;
}


$standpage="/home/comoman/httpd/htdocs/page/cpage.html";
$files="/home/comoman/httpd/htdocs/cdata/$form{'key'}.txt";
$flagimg="$form{'key'}.gif";
$footer="/home/comoman/httpd/htdocs/page/footer.txt";
$news="/home/comoman/httpd/htdocs/page/news.txt";
open(TEMPLATE, "$files") or die "can't open : $!";
local($/) = undef;
my $comment = <TEMPLATE>;
$comment =~ s/\n/<br>/g;
$comment =~ s/ /&nbsp;/g;

close TEMPLATE;

open(FOOTER, "$footer") or die "can't open : $!";
local($/) = undef;
my $foodis = <FOOTER>;
close FOOTER;

open(N_EWS, "$news") or die "can't open : $!";
local($/) = undef;
my $n_ews = <N_EWS>;
close N_EWS;

$n_ews =~ s/\n/<br>/g;

$timenow=localtime (time),;

@addpage=&readtxtfile("$standpage");
#foreach (@addpage) {
#if ($_ =~ /<!--/) {
#($tt1,$tt2,$tt3)=split(/\|/,$_);
#push (@test,$tt2);
#$_ =~ s/\<!--\|$tt2\|--\>/$$tt2/g;
#}



foreach (@addpage) {
#if ($_ =~ /\b$(.*)$\b/) {
#$word=($_ =~ /\b$(.*)$\b/);
#}
$_ =~ s/\$mycountry/$mycountry/g;
$_ =~ s/\$flagimg/$flagimg/g;
$_ =~ s/\$mycname/$mycname/g;
$_ =~ s/\$comment/$comment/g;
$_ =~ s/\$foodis/$foodis/g;
$_ =~ s/\$n_ews/$n_ews/g;
$_ =~ s/\$timenow/$timenow/g;
$_ =~ s/\$bannerhere/$bannerhere/g;

$j=0;
$myselect .="<select name=\"key\" >";
 foreach  $enames(@enames) {
 $myselect .="<option value=\"$enames\">$cnames[$j]\n";
 $j++;
 }
$myselect .="</select>";
$_ =~ s/\$myselect/$myselect/g;
print ;
}
#foreach  $test(@test) {
#print "$test";
#}

}
else
{
$HOME="http://comoo.com";
print "Location: $HOME\n\n"; 
exit;
}
}
sub readtxtfile {
open(READTXTFILE,"$_[0]");
@readtxtfile=<READTXTFILE>;
close(READTXTFILE);
return @readtxtfile;
}