#!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 '', ; my $source = $v{$op}; if ($op eq 'chat' ) { my $btag = qq[ ]; $source = &get("$pm/index.pl?displaytype=raw&node=showchatmessages") || ''; $source =~ s/target="_new"/target="pm_page_view"/; $source =~ s~\s*~\n\n$btag~; } $source =~ s/\$pm/$pm/g; $source =~ s/\$cgi/$cgi/g; print $q->header(), $source; __DATA__ Zedulator <p>No Frames? <a href="/index.pl?displaytype=raw&node=showchatmessages"> Chat Here</a></p>