http://paperlined.org/dev/src/pl/porn/evermine/EM_eropain.pm

package EM_eropain;

    use strict;
    use warnings;

    use Data::Dumper;
    use Carp;


sub metadata { return {
    query => "site:eropain.com",
    domain => "eropain.com",
}}

sub canonicalURL {
    my $url = shift;

    # These URLs are the same:
    #   http://www.eropain.com/b/50-71.html
    #   http://www.eropain.com/b/50-2.html
    # While these are different from each other and the above:
    #   http://www.eropain.com/c/50-2.html
    #   http://www.eropain.com/c/51-2.html
    if ($url =~ m#(http://www\.eropain\.com/\w/[^/]*)-\d+\.html$#) {
        return "$1-1.html";
    }
}

sub thumb_detail {
    my $html = shift;
    my $url = shift;

    #my ($id) = ($url =~ m#http://(\d+)\.sadoslaves\.com/#);
    my @linkedimages = ::list_mostprevalent_JPG_pattern($html, $url);
    my %ret = (images => ::linkedimagelist_to_thumbdetail(\@linkedimages));

    return %ret;
}