#!/usr/local/bin/perl

require "./jcode.pl";

# テンプレートによって生成されたHTML(EUC-JP or UTF-8)を読み込む
open (FILEIN, "./mobile1EUC.shtml") or die;
@line = <FILEIN>;
close (FILEIN);

# Shift_JISに変換＆imgタグを除去

foreach $line (@line){
  &jcode::convert(\$line, "sjis", "", "h");
  $line =~ s/\<img.*?\>/\n/g;
}

# 結果を出力
print "Content-type: text/html\n\n";
foreach $line (@line) {
	print "$line";
}

exit;