#!/usr/bin/perl
open (CGI, $ARGV[0]) or die "Cannot open $ARGV[0]:$!\n";
open (MOD, "> mod_framechat.pl") or die "Cannot open mod_framechat.pl:$!\n";
{ local $/; $cgi = <CGI>; }
# you know epoptai's spacebar sometime stuck... :P
$cgi =~ s[my\s*%i\s*=\s*map\s*{\s*\$_\s*=>\s*param\(\$_\)}\s*param;][$&;\nsub mod_perl_run {]is;
$cgi =~ s[</noframes></html>~;.exit][$&\n}]is;
$cgi =~ s[^__END__][=cut]is;

print MOD $cgi . "\n'mod_perl is cool.';";

open (MOD2, "> launch_framechat.pl") or die "Cannot open launch_framechat.pl:$!\n";
print MOD2 <<'__script__';
#!perl
use strict;
require "./mod_framechat.pl";
mod_perl_run();
__script__

print STDERR "Done. You can now run launch_framechat.pl!\n";