Just a little irssi script to add a marker line to the chat.

mark.pl

#!/usr/bin/perl
use strict;
use warnings;
use Irssi;

our $VERSION = 0.1;
our %IRSSI = (
    authors     => 'Fredrik "Demonen" Vold',
    contact     => '[email protected]',
    name        => 'mark',
    description => 'Just adds a timestamped marker line to the chat buffer',
    lisence     => 'Use it for whatever you want, but at your own risk.  DILLIGAF?',
);

sub addmarker {
    my $marker = shift;

    my $awin = Irssi::active_win();
    if (!length($marker)){
        $marker = 'Mark';
    }

    $awin->print("----> $marker <----",MSGLEVEL_CLIENTCRAP);
}

Irssi::command_bind('mark','addmarker');