#!/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[# mod_perl_patch_begin][# mod_perl_patch_begin\nsub mod_perl_run {]is;
$cgi =~ s[# mod_perl_patch_end][# mod_perl_patch_end\n}]is;
print MOD $cgi . "\n1;";

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";