#!/usr/bin/perl

use HTML::Absolute;
require "alig";

require "/home/mackers/cgi-lib.pl";
&ReadParse;

system("/home/mackers/www/alig/count");
print "Content-type:text/html\n\n";

$_ = $in{'text'};
if (/^((http)|(www))/) {

$in{'text'} =~ s/(\n|\r)//g;
@html = &absolute($in{'text'});
@images = </home/mackers/www/alig/images/*>;

#print join (";;",@html);

foreach $line (@html) {
  unless ($line=~/(<.*?>)/s) {
    $line = &translate($line);
    #$line = `echo \"$line\" | /home/mackers/www/alig/alig`;
  } else {
    if (($line=~/<img.*http/i)&&(rand(3)>2)){
      my $image = $images[rand($#images)];
      $image =~ s/\/home\/mackers\/www\//http:\/\/mackers.com\//i;
      $line =~ s/(<img src=").*?"/$1$image"/i;
      $line =~ s/((width=)|(height=))[^ ]*//ig;
    }
    $line =~ s/((<frame.*?src=")|(href="))http/$1http:\/\/mackers.com\/alig\/translate.cgi?text=http/gi;
  }
  print $line;
}

} else {

unless ($in{'text'}) {
$out = "Enter da text or URL (http://www...) below:" if ($string eq "");
$string = ""
} else {
$string = $in{'text'};
#$string =~ s/(\r|\f)//;
$output = &translate($string);
$out = $output;
$out =~ s/\n/<br>/g;
$out =~ s/(<br>)$//g;
}
open (TOP, "/home/mackers/www/alig/top.shtml");
while (<TOP>){print $_}
close (TOP);
print "<form action=\"translate.cgi\" method=get>\n";
print "<table border=1 bordercolor=\"#FFFF00\" align=center width=\"100%\"";
print " cellpadding=5 cellspacing=0><tr><td>\n";
print "<font color=\"#FFFF00\" face=\"Arial\" size=\"2\">";
print "<b>$out\n</b><br><br>\n";
print "</font>\n</td></tr></table>\n<br>\n<center>\n";
print "\t\t<textarea name=text rows=7 cols=35>";
print "$string";
print "</textarea><br>\n";
print "\t\t<input type=submit value=\"Translate\">\n";
print "\t\t</form>\n</center>\n";
open (BOT, "/home/mackers/www/alig/bot.shtml");
while (<BOT>){
  if (/<!--#include virtual=\"count.dat\" -->/) {
    print `cat /home/mackers/www/alig/count.dat`;
    print " ";
  } else {
    print $_;
  }  
}
close (BOT);
}

sub logthis {
open (CMD, "nslookup $ENV{'REMOTE_ADDR'} |");
  while (<CMD>) {
    $ns = $_ if (/Name/);
  }
close (CMD);

$ns =~ s/(Name:)|( )|(\t)//g;
$ns =~ s/\n//g;

open (OUT,">>/home/mackers/www/alig/log");
my $log = $_[0] . "\n\n";
$log =~ s/\r//g;
$log =~ s/\n\n/\n/g;
$time = gmtime;
print OUT "--- $time $ns ".$ENV{'HTTP_REFERER'}." ---\n";
print OUT $log;
close (OUT);
}