#!perl -Tw
$|=1;
use strict;
use LWP::Simple;
use CGI();
use CGI::Carp qw(fatalsToBrowser);
my $q   = new CGI;
my $cgi = $q->url;
my $pm  = 'http://www.perlmonks.org';
my $op  = $q->param('op') || 'frameset';
my %v;
($v{frameset},$v{talk_button}) = split "\n\n", join '', <DATA>;
my $source = $v{$op};
if ($op eq 'chat' ) {
    my $btag =  qq[ <body text    =" #007F00"
                          bgcolor =" #000000"
                          link    =" #00C600"
                          vlink   =" #00A000"
                    >
                 ];
    $source = &get("$pm/index.pl?displaytype=raw&node=showchatmessages
+") || '';
    $source =~ s/target="_new"/target="pm_page_view"/;
    $source =~ s~\s*</head>~<base href="$pm">\n</head>\n$btag~;
}
$source =~ s/\$pm/$pm/g;
$source =~ s/\$cgi/$cgi/g;
print $q->header(), $source;

__DATA__
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html>
<head>
  <title>Zedulator</title>
  <base href="$pm">
</head>
<frameset rows="50%,50%">
  <frame name="pm_page_view" src="/index.pl?node=Newest%20Nodes">
  <frameset cols="80%,20%">
    <frameset rows="0,28,*" border="0">
      <frame name="hiddenFrame" src="" />
      <frame src="$cgi?op=talk_button"
             marginwidth="2" marginheight="2" scrolling="no"/>
      <frame src="$cgi?op=chat" />
    </frameset>
    <frameset rows="60,*">
      <frame src="/index.pl?displaytype=raw&type=superdoc&node=private
+messages" />
            <frame src="/index.pl?displaytype=raw&node=showotherusers"
+ />
        </frameset>
    </frameset>
    <noframes>
      <p>No Frames?  <a href="/index.pl?displaytype=raw&node=showchatm
+essages">
      Chat Here</a></p>
    </noframes>
</frameset>
</html>

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<head>
<base href="$pm">
<base target="hiddenFrame">
<script language="javascript">
function do_submit(){
    document.f1.submit();
    document.f1.message.value='';
}
</script>
</head>
<body bgcolor="black">
<form id="f1" name="f1" method="post" action="/index.pl" enctype="appl
+ication/x-www-form-urlencoded">
<input type="hidden" name="displaytype" value="raw"><input type="hidde
+n" name="node_id" value="3193"><input type="hidden" name="op" value="
+message">
<input type="text" name="message"  size=40 maxlength=240 onMouseDown="
+javascript:document.f1.message.value=''" /> <input type="button" valu
+e="talk" onClick="do_submit()"></form>

[download]

In reply to Zedulator - an integrated chat/page-view for Perlmonks by jZed

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.