#!/usr/bin/perl

use strict;
use warnings;

my $comment = join "", <DATA>;

my %replaces = (
    '/video.google.com/' => {
        name => 'Google-Video',
        from => qr'\/videoplay\?',
        to   => q'/googleplayer.swf?'
    },
    'youtube.com/' => {
        name => 'Youtube',
        from => qr'\/watch\?v=',
        to   => q'/v/'
    },
    'myvideo.de/' => {
        name => 'MyVideo',
        from => qr'\/watch\/(\d+)\/.+',
        to   => q'/embed/$1'
    },
    'clipfish.de/' => {
        name => 'Clipfish',
        from => qr'\/video\/(\d+)\/.+',
        to   => q'/embed_video/?vid=$1'
    },

    #
);

my $repl = sub {
    my $url      = shift;
    my $template = shift;
    my $src;

    return if not length $url;
    for my $k ( keys %replaces ) {
        if ( $url =~ /$k/ ) {
            my $from = $replaces{ $k }->{ from };
            my $to   = $replaces{ $k }->{ to };
            $src = $url
              if length $url
                  and $url =~ /$from/;
            $url =~ s|$from|$to|e;
            $src = $url if not defined $src;
            $template =~ s|###NAME###|$replaces{$k}->{name}|g;
            $template =~ s|###URL###|$url|g;
            $template =~ s|###SRC###|$src|g;
            return $template;
        }
    }
    return
qq{<p style="color:red"><em>Video von '$url' kann nicht eingebettet werden!</em></p>};
};
my $regex = qr|\<VID\s+([^\>]+)?\s*\>|;
while ( $comment =~ $regex ) {
    $comment =~ s|$regex|$repl->($1,q{
<object width="480" height="320" data="###URL###">
        <embed src="###URL###">
        <br>Der Browser kann das Video nicht darstellen</embed>
</object>
<br>Quelle: <a href="###SRC###">###NAME###</a>
} )|egi;
}
print $comment;
####

__DATA__
<VID http://youtube.com/watch?v=12345678>
       <VID http://video.google.com/videoplay?id=987654>
                        <VID http://www.myvideo.de/watch/98767890/Blah_Blubb>
                    .