#!/usr/bin/perl

# This takes a .pl language file in all of the directories and converts
# it to .php format

$lang[0] = "big5";
$lang[1] = "chinese";
$lang[2] = "danish";
$lang[3] = "english";
$lang[4] = "french";
$lang[5] = "german";
$lang[6] = "hungarian";
$lang[7] = "italian";
$lang[8] = "norwegian";
$lang[9] = "polish";
$lang[10] = "portuguese";
$lang[11] = "romanian";
$lang[12] = "russian";
$lang[13] = "spanish";

for (my $d=0 ; $d <= $#lang; $d++) {
opendir(DIR,"$lang[$d]/");
@files = readdir DIR;
closedir(DIR);
for(my $i=0; $i<=$#files; $i++) {
  if ($files[$i]=~/^\./) {
    next;
  }
  ($filename,$blah) = split(/\./,$files[$i]);
  open(PHP, ">$lang[$d]/$filename.php");
  print PHP "<?\n";
  open(FILE,"$lang[$d]/$files[$i]");
  while (<FILE>) {
    if ($_ =~/^1/) { next; }
    $_ =~s/{'/\[/igs;
    $_ =~s/'}/\]/igs;
    $_ =~s/cgiurl/phpurl/igs;
    $_ =~s/\.pl/\.php/igs;
    print PHP "$_";
  }
  print PHP "\n?>";
  close(FILE);
  close(PHP);
  `rm $lang[$d]/$files[$i]`;

}

}
