#!/usr/bin/perl

    use strict;
    use warnings;

my @domains = (
    "bestpicever.com" => {
        comment => <<'EOF',
                    effektz (<a href="http://www.google.com/search?hl=en&q=effektz+Alex+Weidmann&btnG=Search">Alex Weidmann</a>, <a href="http://zen2design.com/portfolio.php">zen2design</a>) was <a href=".google_effektz.html">banned from digg</a>, though they're still active on <a href="http://all.reddit.com/user/effektz/">reddit</a>, <a href="http://del.icio.us/effektz">del.icio.us</a>, <A href="http://effektz.stumbleupon.com/">stumbleupon</a>, ...
EOF
    },
    "pileofphotos.com" => { comment => "Another effektz domain" },
    "bestpicsaround.com" => { comment => "Another effektz domain" },
    "uncommonpics.com" => { comment => "Another effektz domain" },
    "lackcolor.com" => { comment => "Another effektz domain" },
    "picsdown.com" => {
        comment => "Another effektz domain",
        actual_link => "http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=site:picsdown.com&btnG=Google+Search"},
    "knuttz.net" => {},
    "yadogg.com" => {},
    "amazingfiltered.blogspot.com" => {},
    "static.iftk.com.br" => {},
    "photo-of-the-day1.blogspot.com" => {
            comment => <<'EOF',
                this site is apparently banned from reddit, since <a href="http://www.google.com/search?hl=en&q=site%3Areddit.com+inurl%3Ainfo+photo-of-the-day1.blogspot.com&btnG=Google+Search">google</a> says there were actually 200+ stories.
EOF
    },
    "oomsa.com" => {},
);


open FOUT, ">contextless_images.html" or die;

print FOUT <<"EOF";
<!-- auto-generated from ./.contextless.pl -->
<style>
    .alexa {color:#aaa; font-size:80%}
    .alexa a {color:#aaa}
    a {text-decoration:none}
    a:hover {text-decoration:underline}
</style>
These are blogs that consist mainly of linkjacked images, and almost never contain
enough context to actually learn more about the things in the image, or to figure out the
trustworthiness of the image's original author.

<ul>
EOF

dump_domains();

print FOUT <<"EOF";
</ul>

The solution to this problem?  Obviously people should stop upmodding images if they don't have
adequate context.  Until that starts happening though, individual users can install the
<a href="http://userscripts.org/scripts/show/8751">Reddit Content Filter</a>.  It
contains a site blacklist that will hide all stories from the sites you specify.
EOF



sub dump_domains {
    for (my $ctr=0; $ctr<@domains; $ctr+=2) {
        my $domain = $domains[$ctr];
        my $data = $domains[$ctr+1] || {};

        printf FOUT "<li><a href='%s'>%s</a> <span style='padding-left:1em'>(<a href='%s'>reddit</a>, <a href='%s'>digg</a>, <a href='%s'>stumbleupon</a>, <a href='%s'>wikipedia</a>)</span> <span class='alexa'>[<a href='%s'>alexa</a>]</span>\n",
            $data->{actual_link} || "http://$domain",
            $domain,
            "http://reddit.com/search?q=site%3A$domain",
            "http://search.yahoo.com/search?p=linkdomain%3A$domain+site%3Adigg.com+-inurl%3Aupcoming+-inurl%3Ausers&fr=yfp-t-471&toggle=1&cop=mss&ei=UTF-8",
            "http://www.google.com/search?hl=en&q=site%3Astumbleupon.com+inurl%3A$domain+inurl%3Aurl+-inurl%3As&btnG=Search&filter=0",
            "http://en.wikipedia.org/w/index.php?title=Special%3ALinksearch&target=*.$domain",
            "http://www.alexa.com/data/details/traffic_details?url=$domain",
            ;
        if ($data->{comment}) {
            print FOUT "<ul class='comment'>", $data->{comment}, "</ul>\n";
        }
    }
}