(erielack) Reply to message: Photo site and Railfan.net ABPR abuse

[Stefano <auro_@_nietzsche.mit.edu>]

Reply to message: Re: Photo site and Railfan.net ABPR abuse
http://www.railfan.net/lists/erielack-digest/200010/msg00214.html

Dear readers,

sorry for the late message.

There are some incorrect "wording" in the Blue Moon Network
Adm <"root__@__net.bluemoon.net"> J. Henry Priebe Jr. simple reply.

The fact that bluemoon.net gives a good service for the railfan
comunity, hosting the archives of ABPR usenet newsgroup, does not
entitle this company of any kind of COPYRIGHT, OWNERSHIP, or "RIGHT TO 
GET A LINK" in the material presented.  I do not have any knowledge of
any law that gives this right to a mirror server. 
Please correct me if I am wrong. 
Once photos are downloaded from an usenet servers (not the bluemoon
server !!!), and the permission of the owner/poster is received, the
photos are not related to bluemoon at all.
For example, Bluemoon is hosting hundreds of photos I have sent to the 
ABPR newsgroup. Shoud I ask permission to Bluemoon to use my pics in my
web ? (funny response) !! Probably, I should ask them to remove my photos.

The material presented in my web WAS DOWNLOADED from a local usenet
server, and permission to J. Testagrose (and many others) was asked and
received. The surfing of bluemoon website was used to see which guys have
published better material. There is nothing wrong on this. 
None of the pics presented by my web has passed  through the Bluemoon
servers, so there is no reason to give ".... a credit or link visible
anywhere on any of his sites" to Bluemoon. I have never received any
request for permission for my pics, which in a credit_less_way and
link_less_way appeared in the Bluemoon archives. (other funny response).
 
It is very simple to write programs to download usenet news.
I use Perl. It is great (and free). It has News::NNTPClient 
and uudecode capability. I invite railfans to have a short 
introduction to Perl: "Perl, The black book", Steven Holzner. 
45$ well spent. Perl is free and is available for Win32:
http://www.perl.com/pub/language/info/software.html
These gentlemen do not require any link or credit if you write 
Perl code. I attach a simple program to download all the available 
ABPR in various file. The pics inside the files can be extracted with
the uudecode command. Please pur your usenet server in the appropriate
field.

I wish deep breaths and caffein free coke to everybody.

Thanks for your time,

Stefano Curtarolo


**************************************************************************
#!/usr/bin/perl
use News::NNTPClient;

$nntp=new News::NNTPClient('SERVER.FOR.USENET');

$newsgroup="alt.binaries.pictures.rail";
$directory=$newsgroup;
$name=abpr;
($first,$last)=$nntp->group($newsgroup);       
mkdir "$directory", 0744;
mkdir "$directory/errors", 0744;
for ($loop_index =  $last-500; $loop_index<= $last; $loop_index++) {
    @message = $nntp->article($loop_index);
    @ddate = grep /Date:/,@message;
    if (($#ddate+1)==0) {
        print "DOING news-", $loop_index,"  | ***news-", $loop_index," is empty \n";
        $filename = "$directory/errors/$name$loop_index.txt";
        if (1) {
            open FILEHANDLE, ">$filename";
            print FILEHANDLE $nntp->article($loop_index);
            close FILEHANDLE;
        }
    }
    if (($#ddate+1)) {
        print "DOING news-", $loop_index,"  | ";
        $date=$ddate[0];
        $date=~s/Mon, //;
        $date=~s/Tue, //;
        $date=~s/Wed, //;
        $date=~s/Thu, //;
        $date=~s/Fri, //;
        $date=~s/Sat, //;
        $date=~s/Sun, //;
        ($trash1,$day,$month,$year,$trash2)=(split " ",$date);
        print "DATE = $day/$month/$year | ";
        $month=~s/Jan/01/;
        $month=~s/Feb/02/;
        $month=~s/Mar/03/;
        $month=~s/Apr/04/;
        $month=~s/May/05/;
        $month=~s/Jun/06/;
        $month=~s/Jul/07/;
        $month=~s/Aug/08/;
        $month=~s/Sep/09/;
        $month=~s/Oct/10/;
        $month=~s/Nov/11/;
        $month=~s/Dec/12/;
        $day++;$day--;    if($day<10)   {$day="0$day";}
        $month++;$month--;if($month<10) {$month="0$month";}
        $year++;$year--;  if($year<10)  {$year="200$year";}
        $targetdir="$directory/$year-$month-$day";
        mkdir "$targetdir", 0744;
        $filename = "$targetdir/$name$loop_index.txt";
        print "FILENAME = " , $filename," ", "\n";
        @message = $nntp->article($loop_index);
        if (1) {
            open FILEHANDLE, ">$filename";
            print FILEHANDLE $nntp->article($loop_index);
            close FILEHANDLE;
        }
    }
}
close FILEHANDLE;

**************************************************************************

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