http://paperlined.org/src/pl/porn/google/kink.com_shootIds/report.pl

#!/usr/bin/perl

# <short description of program>

    use strict;
    use warnings;

    use Data::Dumper;

my %shootIds;

my $max = -999;

my %caps = qw[
    hogtied.com             Hogtied.com
    fuckingmachines.com     FuckingMachines.com
    whippedass.com          WhippedAss.com
    wiredpussy.com          WiredPussy.com
    meninpain.com           MenInPain.com
    waterbondage.com        WaterBondage.com
    ultimatesurrender.com   UltimateSurrender.com
    sexandsubmission.com    SexAndSubmission.com
    devicebondage.com       DeviceBondage.com
    tsseduction.com         TSSeduction.com
    thetrainingofo.com      TheTrainingOfO.com
    behindkink.com          BehindKink.com
];

open FIN, "<all.txt" or die;
while (<FIN>) {
    s/[\n\r]+$//sig;
    my @F = split;
    $shootIds{$F[0]} = $F[1];

    if ($F[0] > $max) {
        $max = $F[0];
    }
}
close FIN;

open FOUT, ">/home/interiot/public_html/apps/website_metadata/URLs/kink.com_shootIds.html" or die;
print FOUT <<"EOF";
<style>
    a:hover {text-decoration:underline}
    a {text-decoration:none}
    td {padding-right:1em}
</style>
<table>
EOF

for my $shootId (1..$max) {
    if (exists $shootIds{$shootId}) {
        my $domain = lc($shootIds{$shootId});
        printf FOUT "<tr><td><a href='http://%s/site/shoot.jsp?shootId=%d'>%d</a> <td><a href='http://promo.%s/g/0/%d/m/0/h'>%s</a>\n",
                $domain,
                $shootId,
                $shootId,
                $domain,
                $shootId,
                $caps{$domain} || $domain;
    } elsif ($shootId <= 69) {
        # I've verified that these don't exist
        print FOUT "<tr><td><a href='http://www.kinkondemand.com/kod/shoot.jsp?shootId=$shootId'>$shootId</a> <td>no longer available\n";
    } else {
        printf FOUT "<tr><td><a href='http://www.kinkondemand.com/kod/shoot.jsp?shootId=%s'>%d</a> <td><a href='http://promo.hogtied.com/g/0/%d/m/0/h'>??????</a>\n",
                $shootId,
                $shootId,
                $shootId;
    }
}