#!/usr/bin/perl

# This filter is a broad-spectrum decrapolizer for seriously malformed feeds which can break Liferea.  I add new rules as I discover new and exciting ways in which people can mess up XML.
# Written by Adrianna Pinska
# Licence: GPLv3


while(<>) {
    s#<img [^>]* http:="" [^>]*>#XML IDIOCY REMOVED BY LOLRUS#g;
    s#\\"#"#g;
    s#:=""#=""#g;
    s#href=""(http[^ >]*)#href="\1"#g;
    s#src="&lt;img src="([^"]*)"[^/]*/&gt;[^"]*"#src="\1"#g;
    print $_;
}