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

package EM_reapers;

    use strict;
    use warnings;

    use Data::Dumper;
    use Carp;


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

sub canonicalURL {
    my $url = shift;

    # the last two numbers in the URL don't matter, set them to .../1/1
    # furthermore, the /h/1/1 or /n/1/1 don't matter...  set it to .../h/1/1
    if ($url =~ m#http://(?:www\.)?(reapersbondage\.com/.*)#) {
        return "http://$1";
    }
}

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;
}