framechat private messaging update

This is the first big update to framechat.
Here's a summary of the additions and fixes:

inbox

Updated to use the message archive feature recently added to perlmonks.

msgchat opens a private chat session with another user!

Uses a frameset that functions like the regular chat and talk frames.
All input goes to the currently engaged user, no more /msg typos.
Individual and mass save/delete message management functions included.

The illusion of a dedicated private chat channel is acheived by:

Sending two /msg for each message you enter. One has "/msg $username " prepended before it's sent to your partner. The other is sent to you with a To="$username"-> prefix.
Receiving and filtering your inbox to only display the relevant messages.

So it doesn't matter if your partner is using framechat or not! Be sure to delete or save private chat sessions as they progress to clear out the clutter. Take a peek at the selection process and a private chat session.

help

The help page now has a button that checks for an update when selected.

fixes

Proxy support fully implemented this time.

Refresh link in history works now.

History file browser with view and delete.

Fixed bug that could cause loss of the last few chrs of a cc to self /msg.

Remainder of all messages larger than 255 bytes now returned to the textarea for resend

Two new config vars determine message order in inbox and msgchat.

Please post a reply or /msg me with any ideas for additions and improvements. Quite a few enchancements have already been made this way.

root node = framechat
d/l code

Have fun!

Comment on framechat private messaging update

Replies are listed 'Best First'.

framechat google tag patch
by epoptai (Curate) on May 08, 2001 at 22:49 UTC

Updated to deal with multiple keywords.

This patch enables the new google tags. The codebase has been updated with this.

Add four lines to sub makelinks (adjacent the cpan lines):

$content=~s/\[google:\/\/([^|\]]+)\|([^\]]+)\]/&google('G',$1,$2)/eig;
+ # [google://keyword(s)|text]
$content=~s/\[google:\/\/([^|\]]+)\]/&google('G',$1)/eig;             
+ # [google://keyword(s)]
$content=~s/\[lucky:\/\/([^|\]]+)\|([^\]]+)\]/&google('L',$1,$2)/eig; 
+ # [lucky://keyword(s)|text]
$content=~s/\[lucky:\/\/([^|\]]+)\]/&google('L',$1)/eig;              
+ # [lucky://keyword(s)]
[download]

sub google
{ # [google://] and [lucky://]
my$google = 'http://www.google.com/search?q=';
my$luck = '&btnI=lucky';
my($fu,$g,$n) = shift;
if($fu eq 'G'){ undef($luck) }
$n = CGI::escape($_[0]);
if(@_ == 2){
    $g = qq~<a href="$google$n$luck"$trgt>$_[1]<\/a>~;
    }
if(@_ == 1){
    $g = qq~<a href="$google$n$luck"$trgt>$_[0]<\/a>~;
    }
return $g;
}
[download]

[reply]
[d/l]
[select]


Problems? Is your data what you think it is?
	PerlMonks