#!/usr/bin/perl
#*******************************************************
# Netscape Navigator/Communicator korektorius (beta-1) *
# Kartu su failu Netscape.ad                           *
#  http://hebris.cjb.net                               *
#  arturas@hebris.cjb.net                              *  
#*******************************************************
use IO::Handle;
require 5.0;

  $in='./netscape';
  die "< Nera netscape failo !! $in ? >" if ! -r $in;
  
  $out='./netscape.win1257';
  die "< $out reikia istrint ... >" if -r $out;
								
print "     ************************************************************* \n";
print "     ****NETSCAPE KOREKTORIUS (beta-1) ISO-8859-4 ir 13 Naudojimui***** \n";
print "     *****Paruostas***HELA***Apsaugos ir Garso sistemos*********** \n";
print "     **************** http://hebris.cjb.net ********************** \n";
print "     *******Tikslas:     \n";
print "     Pagrindinai naudoti Baltic (Windows) koduote www, news, e-mail \n";
print "     Priversti Netscape teisingai atpazint, rodyti windows-1257\n";
print "     koduotes kad nerodytu ???, taip pat kad automatiskai atpazintu\n";
print "     bei rodytu Baltic (ISO-4) koduote. ISO-8859-13 koduote automatiskai \n";
print "     nerandama ir jos koduote zinuciu antrasteje nerodoma. Del ko taip \n";
print "     padaryta, placiau galesite pasiskaityti http://lietlinux.cjb.net \n";
print "     Zinutes siunciamos el.pastu arba i diskusiju grupes pazymimos arba \n";
print "     windows-1257, arba iso-8859-4 , tai padaryta del suderinamumo su\n";
print "     dominuojanciomis windows sistemomis, bei pasto serviso programomis \n";
print "     Paleide si skripta, turesite atlikti dar minimum viena pakeitima, \n";
print "     rasite faile SKAITOM, be jo JUSU NETSCAPE NEPASILEIS !!!!!**** \n";
print "     *******REZULTATAS:  \n";                  
print "     pamatysite patys :))\n";
print "     *************PERSPEJIMAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!*********\n";
print "     *******Pasidarykite netscape-communicator failo kopija!!!****\n"; 
print "     *******SPAUSKIT <ENTER> testi,<Ctrl+C> --> ISEIT*************\n";
print "\n";

  <>;
  STDOUT->autoflush(1);
  print " [X] Palaukite minute........ :\n    |";

  open(INf,'<'.$in) || die ("Klaida atidarant skaitymui faila ``$in''");
  open(OUTf,'>'.$out) || die ("Klaida atidarant rasymui faila ``$out''");
  while (<INf>) {
      #
                  
      s{8859-4}{8859-0}g;
      s{8859_4}{8859_0}g;
      s{88599}{88594}g;
      s{885915}{885913}g;
      s{8859_15}{8859_13}g;
      s{iso-8859-15}{windows-1257}g;
      s{8859-9}{8859-4}g;
      s{8859_9}{8859-4}g;
      s{8859-15}{8859-13}g;
      s{Turkish}{Baltica}g;
      s/(EncCmdString:\s+)Western( \(ISO-8859-13\))/$1Baltic $2/g;
      s{home.netscape.com/bookmark}{lietlinux.cjb.net/bookmark}g;
      s{ISO-8859-13}{<<Windows>>}g;

      print OUTf;

 
      if (++$counter > 1000) 
      {
          $counter=0;

  print "=";
      }
  }
  close INf; close OUTf;
  chmod 0555, $out;
  print "|\n";

  print "  ---> Jus pasidarete failo netscape kopija? (Taip(t)/Ne!(n)) ";
  $a=<>;
  chop $a;
  if ($a eq "n")
  { print "  gerai, tuomet 'pataisytas' failas yra netscape.win1257\n";}
  elsif (($a eq "t") or ($a eq ""))
  {
    print "  O jusu automobilis turi signalizacija ?;)....\n";
    unlink 'netscape';
    rename 'netscape.win1257','netscape';
  }
  elsif ($a eq "n")
  { print "  O Jusu automobilis turi signalizacija ?;).Ar gera garso aparatura?;).\n"; }
  else { print " Ka cia ir bekalbeti :) \n"; }

  print "\n [X] Darbas baigtas, ka daryti toliau rasite faile SKAITOM :) \'o!\n";
  #print "<------------------------------------------------->\n";
  exit;

# [the end]
