Parent Directory
| 
Revision Log
Initial revision
| 1 | wakaba | 1.1 | #!/usr/local/bin/perl |
| 2 | # | ||
| 3 | # convert.cgi | ||
| 4 | # | ||
| 5 | # YukiWiki1����YukiWiki2�ւ̃f�[�^�ϊ��pCGI | ||
| 6 | # | ||
| 7 | # Based on "YukiWiki1 to WalWiki convert.cgi" by Makio Tsukamoto. | ||
| 8 | # | ||
| 9 | |||
| 10 | use strict; | ||
| 11 | use CGI::Carp 'fatalsToBrowser'; | ||
| 12 | use lib "."; # ������jcode.pl�AAlgorithm������f�B���N�g�����w�� | ||
| 13 | use AnyDBM_File; | ||
| 14 | use Fcntl; | ||
| 15 | |||
| 16 | $| = 1; | ||
| 17 | my $jcodelib = 'jcode.pl'; | ||
| 18 | my $kanjicode = 'sjis'; # 'sjis' 'euc' | ||
| 19 | my $newkanjicode = 'euc'; | ||
| 20 | my %form; | ||
| 21 | my %olddb; | ||
| 22 | my %newdb; | ||
| 23 | |||
| 24 | require "$jcodelib"; | ||
| 25 | |||
| 26 |