2009-01-19: Estolistalla olevista toimimattomista osoitteista
-----------------------------------------------------------------

Estolistalla on paljon osoitteita jotka eivät edes toimi, joka
käytännössä viittaa siihen että KRP:llä ei ole prosesseja
listattujen osoitteiden oikeellisuuden tarkkailuun.  Tämä tietysti
kävi ilmi jo ymphets-stars.com:n kanssa jota ei ikinä ollut
olemassakaan, paitsi kun joku sen keksi rekisteröidä ennen sen
poistamista listalta.

Ymphetsiin KRP reagoi nopeasti, poistaen mahdollisesti kohua
aiheuttavan osoitteen listalta.  Samassa yhteydessä ei kuitenkaan
tarkistettu muiden osoitteiden oikeellisuutta, ja toimimattomia
osoitteita on listalla vieläkin kymmenittäin.  Välittömästi
rekisteröitävissäkin on useita sensuroituja osoitteita saatavilla.

------------------------------------------------------------------

PendingDelete (5): realy-models.biz, little-guests.biz, lolit.biz,
lolpage.com, childmodelsites.com, moregirls.biz

NotFound (5): erostudio.org, mixedlolitas.net, evil-lola.com,
asian-lolitas.info, pretty-animals.info, pdavisverizon.cn

Suspended (33): zgaygalleries.com, 18boyz.com, yourcutties.com,
sexyteenonline.com, gay-movie-galleries.com, little-pearls.com,
gayttt.com, gaywindows.com, free-boyz.com, gay-penises.com,
mmmgay.com, ls-extension.com, ls-lolita.com, preteen-4u.com,
teensmoreteens.com, allxxxfree.net, willi-sex.com, dreams-town.com,
zmoviez.com, gaygiraffe.com, ls-flash.com, pics4gay.com,
ls-fantasy.com, sexyxtwinks.com, hqboys.com, lagoonworld.net,
cuteboysonly.com, lolaxxxvideo.com, shining-pretties.com,
10gay.com, pt-pla.net, bbzlo.com, ls-girls.com, nn-models-art.com

Unknown (8): little-virgins.name, pornofoto.cz, onlyloli.name,
dd.to, nudewomen.name, selolit.mobi, newsit.es, pro.tc, at.tc

Redemption (19): johncherrybowl.com, lobeautys.com, eighteenteens.net,
17-juvenile.com, gofobew.com, 1st-sweet-sex.com, buylolita.net,
free-lo-access.com, garymyhomepagee.com, jisazax.com, est-porno.com,
hsasdfjdd.com, rimukaz.com, gaysjerk.com, gallerygaysboys.com,
virgin-list.net, tesanuv.com, child-agency.com, gaylovetwinks.com,
sweetsexberries.com

------------------------------------------------------------------

Ylläolevat tiedot on kerätty pikaisesti väsätyillä scripteillä ja
onelinereillä, jotka julkaisen tässä suunnilleen sellaisena kuin
itse käytin.  (karsin näköjään myös osan sensuurista poistuneista
domaineista pois jollain taikasanalla jota en tähän hätään löydä)

---- alkuvalmistelut ---------------------------------------------

wget http://www.wikileaks.com/leak/domains-in-the-finnish-child-pornography-filter--2008.txt

mkdir whoisdata

cat domains-in-the-finnish-child-pornography-filter--2008.txt |\
  perl -pe 's/.*\.([^.]*\.[^.]*)$/\1/;s/\r//' \
  > wkl-domains.txt

---- WHOIS.SH ----------------------------------------------------

#!/bin/bash

for x in $(cat wkl-domains.txt) ; do
  if [ ! -s whoisdata/$x ] ; then
    echo -n "checking $x ... "
    (whois $x > whoisdata/$x) && echo
  fi
done

---- WHOIS-REPORT.PL ---------------------------------------------

#!/usr/bin/env perl

use strict;

my $datadir = "whoisdata";

opendir(DIR, $datadir) or die "Can't opendir: $!, died";
my @d = grep { -f "$datadir/$_" } readdir(DIR);
closedir DIR;

my %data;
my %status;

foreach my $x (@d)
{
  open(F, "$datadir/$x") or die "Can't open: $!, died";
  $data{$x} = join('', <F>);
  close F;
}

foreach my $x (keys %data)
{
  my $w = $data{$x};
  if ($w =~ /Status: *SUSPENDED/i)           { $status{$x} = 'Suspended'; }
  elsif ($w =~ /redemption/i)                { $status{$x} = 'Redemption'; }
  elsif ($w =~ /status:\s*pendingdelete/i)   { $status{$x} = 'PendingDelete'; }
  elsif ($w =~ /status:\s*(ok|active)/i)     { $status{$x} = 'OK'; }
  elsif ($w =~ /state:\s*registered/i)       { $status{$x} = 'OK'; }
  elsif ($w =~ /expiration date:|expires:/i) { $status{$x} = 'OK'; }
  elsif ($w =~ /not found|no match/i)        { $status{$x} = 'NotFound'; }
  else { $status{$x} = 'Unknown';}
}

my @statuslist = keys %{{map {$_=>'omg dupekiller'} values %status}};

foreach my $s (@statuslist)
{
  if ($s eq 'OK') { next; }
  my @dom =  grep { $status{$_} eq $s } keys %status;
  print "$s (".$#dom."): ";
  print join(", ", @dom);
  print "\n\n";
}