I'm writing a irssi script, not sure if this is the place.. But when i do: /delay add nickname message, it adds it correctly. but if i do it twice. it over writes the first message, instead of creating another message. the purpose of the script is to send a DELAYED message to a user so when they sign on, it automatically sends the queued messages so i dont have to wait around for them to send it, below is the full script: 
use strict;
no warnings;
use feature qw/switch/;
use Irssi;
 
our $VERSION = '0.10';
our %IRSSI = (
    author      =>  'black@justla.me',
    name        =>  'delayer.pl',
    todo        =>  'NOTHING',
);
 
my %delaylist = ();
 
sub delayer {
    my ($server, $nick, $user, $host, $real_name, $away_msg) = @_;
    if ($delaylist{$nick}) {
        $server->command("query $nick $delaylist{$nick}");
        removedelays($nick);
    }
}
 
sub delaycmd {
    my $command = shift;
    if (substr($command, 0, 1) eq '-') { $command = substr($command, 1
+) }
    my ($option, $args) = split(' ', $command, 2);
 
    if (!$option) {
        listdelays();
        return;
    }
 
    given ("$option") {
        when (/^list$/i)                { listdelays() }
        when (/^add$/i)                 { ($args) ? adddelays($args) :
+ usage() }
        when (/^remove$/i || /^rem$/i)  { removedelays($args) ; print 
+"$args" }
        default                         { usage() }
    }
   
}
 
sub listdelays {
    my $nicklist = shift;
    my @nicks;
    if (!$nicklist) {
        @nicks = keys %delaylist;
    } else { @nicks = split(' ', $nicklist)
    }
    if (!@nicks) {
        print "\cBdelayER\cB: delay list is empty.";
        return;
    }
 
    print "\cBdelayER\cB";
    foreach (@nicks) {
        print "--> \cB$_\cB: $delaylist{ $_ }";
    }
}
 
sub adddelays {
    my $addcmd = shift;
    my ($nicklist, $msg) = split(' ', $addcmd, 2);
    if (!$msg) {
        usage();
        return;
    }
    my @nicks = split(',', $nicklist);
    my %hash = map { $_, 1 } @nicks;
    @nicks = keys %hash;
    if (keys %delaylist) {
        my @isect = ();
        map { $hash{$_} = 1 } keys %delaylist;
        @isect = grep { $hash{$_} } @nicks;
        if (@isect) {
#            removedelays(@isect);
        }
    }
    foreach (@nicks) {
        $delaylist{ $_ } = $msg;
    }
    print "\cBdelayER\cB: " . scalar(@nicks) . ' delays added.';
}
 
sub removedelays {
    my $nicklist = shift;
    if (!$nicklist) {
        %delaylist = ();
        print "\cBdelayER\cB: All delays removed.";
    } else {
        foreach (split(' ', $nicklist)) {
            delete $delaylist{ $_ };
        }
        print "\cBdelayER\cB: " . scalar(split(' ', $nicklist)) .
            ' delays removed.';
    }
}
 
sub usage {
    print <<EOF
 
\cBdelayER\cB
Send a private message to a person on your /NOTIFY list when they join
+ the server.
 
Usage:
/delay (-add|add) nick[,nick...] message
    Add a delay for a nick, or a comma-delimited list of nicks.
    One delay per nick! Existing delays will be replaced without warni
+ng.
/delay (-remove|remove|rem) [nick [nick...]]
    Remove a delay targeted at a nick, or space-delimited list of nick
+s.
    If no nick is supplied, all delays will be removed without warning
+.
/delay [-list|list]
    Display a list of delays which have been set.
 
    Anything else will display this text.
EOF
}
 
Irssi::signal_add('notifylist joined', 'delayer');
Irssi::command_bind('delay', 'delaycmd');
Irssi::command_set_options('delay','add remove list help usage');

[download]

In reply to Script replaces instead of add by geekism

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.