comment on

#!/usr/bin/perl -w
use strict;
print "\nEnter a pmurl or nothing for www.perlmonks.org : ";
my $pmurl = <>;
chomp($pmurl);
my %v;
($v{main},$v{search},$v{talk},$v{help})= split /\n\n/, join '', <DATA>
+;
print "\nmodifying pmurl to $pmurl ... \n" if $pmurl;
$v{main} =~ s/www.perlmonks.org/$pmurl/g if $pmurl;
for my $section(qw(help main search talk)) {
    my $fn = "zedulator.$section.html";
       $fn =~ s/\.main//;
    print "creating $fn ... \n";
    open(my $fh,">$fn");
    print $fh  $v{$section};
    close $fh;
}
print "all done! ... \n";

__DATA__
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html><head>
    <title>Perlmonks zedulator</title>
    <!--
         jZed's hack of tye's hack of fullpage chat
    -->
    <link type= "text/css" rel="stylesheet"
          href= "http://www.perlmonks.org/css/common.css"
    />
    <link rel="icon" href="http://www.perlmonks.org/favicon.ico" />
    <script language="JavaScript"><!--
    var zed = {
        shortcut : {
            "cb60"      : "http://mini-cb60.flux8.com/",
            "cbhistory" : "http://nbpfaus.net/~pfau/cbhistory.cgi?site
+=PM",
            "nn"        : "http://www.perlmonks.org/?node=newest nodes
+",
            "zed"       : "zedulator.help.html",
            "float"     : "javascript:parent.zed.popupwin(470,360)"
            /* add your own shortcuts here */
        },
        search : function(form) {
            var url = form.display_node.value;
            var pos = url.indexOf("/");
            if(pos==0){
                var action_name = url.substring(1,url.length);
                url = this.shortcut[action_name] || action_name;
                form.action = url;
            }
            else {
                form.action="http://www.perlmonks.org/?"
            }
            if( url == undefined ) { return false; }
            form.node.value = url;
            form.display_node.value = '';
        },
        talk : function(form) {
            var url = form.display_message.value;
            if( url == undefined ) { return false; }
            form.action="http://www.perlmonks.org/?"
            form.message.value = url;
            form.display_message.value = '';
        },
        popupwin : function(w,h) {
            var remote;
            var main;
            window.name = "main";
            settings = 'height='+h+',width='+w+',scrollbars=auto,toolb
+ar=no,'
                   +'location=no,status=yes,menubar=no,left=0,top=0';
            remote = window.open('zedulator.html','remote',settings);
        }
    };
    // --></script>
</head>
<frameset rows="30,24,*">
    <frameset cols="50%,50%">
        <frame  id="talk" scrolling="no" src="zedulator.talk.html" />
        <frame  id="search" scrolling="no" src="zedulator.search.html"
+ />
    </frameset>
    <frameset cols="50%,50%">
        <frame src="http://www.perlmonks.org/?displaytype=raw;type=sup
+erdoc;node=privatemessages" />
        <frame src="http://www.perlmonks.org/?displaytype=raw;node=sho
+wotherusers" />
    </frameset>
    <frameset rows="50%,50%">
       <frame src="http://www.perlmonks.org/?displaytype=raw;node=show
+chatmessages;" scrolling="auto" />
       <frame name="browse_frame" src="zedulator.help.html" scrolling=
+"auto" />
    </frameset>
    <noframes>
       <p>No Frames?
           <a href="http://www.perlmonks.org/?displaytype=raw;node=sho
+wchatmessages">Chat Here</a>
       </p>
    </noframes>
</frameset>
</html>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
 <title>Zedulator Search</title>
</head>
<body bgColor="black">
<form id="search_form"
      method="get"
      enctype="application/x-www-form-urlencoded"
      target="browse_frame"
      onSubmit="parent.zed.search(this);"
>
<input type="hidden" name="node" value="" />
<input type="text" name="display_node"  size=22 maxlength=80 />
<input type="submit" name="go_button" value="search" />
</form>
</body>
</html>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
 <title>Zedulator Talk</title>
</head>
<body bgColor="black">
<iframe name="devnull" style="display:none"></iframe>
<form method="post" enctype="application/x-www-form-urlencoded"
      target="devnull"
      onSubmit="parent.zed.talk(this);"
>
<input type="hidden" name="node_id" value="163868">
<input type="hidden" name="op" value="message">
<input type="hidden" name="message" value="" />
<input type="text" name="display_message"  size=22 maxlength=240 />
<input type="submit" name="message_send" value="talk" />
</form>
</body>
</html>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <title>Zedulator Help</title>
  </head>
<style>
* {
    background-color:black;
    color:lightgray;
    font-family:Verdana,Sans-Serif;
    font-size:small;
}
.heading {
    font-weight:bold;
    font-size:1.25em;
    margin-bottom: 0px;
    margin-right: 3em;
    color:orange;
}
td {
    padding-right:2em; 
    border-bottom:1px solid gray;
}
.menu a{ color:lightblue; }
.menu  { margin-bottom:0.5em; }
dt, dt a { font-weight:bold; color:orange; }
dd { margin-left:1em; margin-bottom:0.5em; }
pre, .intro b { color:orange; }
.intro a { color:lightblue; }
</style>
  <body>
<table><tr>
<td valign="top" class="intro">
<p>
<b>ZEDULATOR</b> tiles your browser with frames as shown in the diagra
+m. Use the frame borders to contract or expand the frames as needed.
</p>
<p>
You can search using PerlMonks shortcuts or go directly to any URI usi
+ng zedulator shortcuts. (see <a href="#searching">searching</a>)
</p>
<p>
The search results are, by default, targeted to the browsing frame. Li
+nks in the private messages, other users, and chat frames can also be
+ targeted to the browsing frame.(see <a href="#displaying">targeting<
+/a>)
</p>
<p>
You can customize shortcuts, frames, and targeting. (see <a href="#til
+ing">customizing</a>)
</p>
</td>
<td valign="top">
<pre style="font-family:monospace">
+---------------+---------------+
|   talk input  | search input  +
+---------------+---------------+
| private msgs  | other users   |
+---------------+---------------+
|                               |
|        chat frame             |
|                               |
+-------------------------------+
|                               |
|      browsing frame           |
|                               |
+-------------------------------+
</pre>
</td></tr></table>
<dl>
<dt><a name="searching">Zedulator: search shortcuts</a></dt>
<dd>
The default search goes directly to Perlmonks search. However, if the 
+search term starts with a forward slash, it gets treated as a <i>zedu
+lator</i> search and uses the built-in or custom zedulator shortcuts 
+and goes directly to the requested page, bypassing Perlmonks.  Custom
+ shortcuts can be calls to local javaScript functions, see the shortc
+ut definitions in zedulator.html.<br />
<table>
<tr><td valign="top">/zed</td valign="top"><td valign="top">open this 
+help page</td valign="top"></tr>
<tr><td valign="top">gogle://</td><td valign="top">any standard PerlMo
+nks shortcut like pad://, cpan:, etc.</td></tr>
<tr><td valign="top">/cb60</td valign="top"><td valign="top">open mini
+-cb60.flux8.com</td valign="top"></tr>
<tr><td valign="top">/nn</td valign="top"><td valign="top">open Newest
+ Nodes</td valign="top"></tr>
<tr><td valign="top">/float</td valign="top"><td valign="top">float ze
+dulator in a chromeless window</td>
<tr><td valign="top">/filepath</td valign="top"><td valign="top">open 
+a local file</td>
</tr>
</table>
<dt ><a name="displaying">Zedulator : targeting links to the bottom fr
+ame</a></dt>
<dd>
<table>
<tr><td valign="top" nowrap>searches</td><td valign="top">automaticall
+y appear in bottom frame</td></tr>
<tr><td valign="top" nowrap>links in other zedulator frames</td><td va
+lign="top">drag and drop the link to the search input box and submit 
+the search</td></tr>
<tr><td valign="top">browser bookmarks</td><td valign="top">copy the l
+ink, paste it into the search input box and submit the search</td></t
+r>
</table>
<dt><a name="tiling">Zedulator : customizing</a></dt>
<dd>
<table><tr>
<td valign="top">create custom search shortcuts</td><td >edit the shor
+tcut/url associations in zedulator.html</td></tr>
<td valign="top">start with page other than zedulator help</td><td>edi
+t the browse_frame.src in zedulator.html</td></tr>
<td valign="top">permanent resize/move/ delete frame</td><td valign="t
+op">edit framesets in zedulator.html</td></tr>
<td valign="top">retarget search to tab or window</td><td valign="top"
+>edit the form target in zedulator.search.html</td></tr>
</table>
</dl>
  </body>
</html>
[download]
In reply to Zedulator - a tiled, integrated CB/PM/Web client by jZed
Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.

Keep It Simple, Stupid
	PerlMonks