convert dropbox urls to raw

gistfile1.txt

use strict;

use vars qw($VERSION %IRSSI);
$VERSION = '0.0.1';
%IRSSI = (
    authors     => '',
    contact     => '',
    name        => 'fix_dropbox',
    description => 'unfuck dropbox urls',
    license     => '',
    url     => '',
);

sub event_send_text () {
    my ($line, $server_rec, $wi_item_rec) = @_;
    if ($line =~ /(https:\/\/www.dropbox.com\/s\/(.(?!(raw=1)))+)[\s\n]?$/) {
        my $url = (split / /, $1)[0];
        $line =~ s/(\Q$url\E)/$1&raw=1/;
    }
    else {
        return;
    }
    Irssi::signal_emit('send text', $line,  $server_rec, $wi_item_rec);
    Irssi::signal_stop();
}

Irssi::signal_add_first('send text', "event_send_text");