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

package EM_sadoslaves;

    use strict;
    use warnings;

    use Data::Dumper;
    use Carp;


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

sub canonicalURL {
    my $url = shift;

    if ($url =~ m#(http://\d+\.sadoslaves\.com/)#) {
        return $1;
    }
}

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

    # some pages like http://942.sadoslaves.com/ aren't TGP pages at all
    return (delete => "1") if ($html =~ /You must also read the following before entering this/
        || $html =~ /By viewing or subscribing to this site owned and operated by Sweet Productions, Inc. you represent and warrant as follows/
        || $html =~ /By clicking on the 'ENTER' link and entering this site/);

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

    return %ret;
}