Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by darobin (1316) on 2002.08.17 11:05 (#11890) Homepage Journal

    So, it's sure nice to know you had fun with LWP but are you going to keep that script to yourself or is there any chance you'll share it with the other nice kids so they don't have to rewrite it? :-)

    --

    -- Robin Berjon [berjon.com]

  • Blimey, glad I grabbed that Oasis album when I did (grin). I just visited the site and was greeted by a blank page with the following line:

    Lmp3 will be closed and will never come back!

    • The site with the MP3s is still at: http://www.music369.com
    • Lmp3 will be closed and will never come back!
      Oh bloody hell. <listen4ever.com> has been taken offline within 24 hours as well. It looks like the terrorists are winning... Yes I'm talking about the RIAA and the whole DMCA mob...

      See Lawrence Lessig's talk [oreillynet.com], link currentluy at use.perl.org's home page. Maybe a 5 percent loss! While this study here [forrester.com] seems to indicate that those people who regularily download and burn MP3's buy as many CD's as everybody else. Read more here [chron.com] and here [theregister.co.uk].
    • The good news is that their FTP site is still live. The bad news is that it doesn't give directory listings. The good news is that I snarfed some paths and filenames from the site while it was live.

      I'll give out the code once I figure out how to detect an aborted get(). It seems like every second to third get is bungholed, and I'm not sure why.

      --Nat

      • Re:Gone (Score:2, Informative)

        Perhaps you could use the $ua->request($req, $callback) variant to detect aborted downloads. I use something like this:

        my ($bytes_read, $total_size);
        my $res = $ua->request(
            HTTP::Request->new( GET => $url ),
              sub {
                $bytes_read  += length( $_[0] );
                $total_size ||= $_[1]->content_length;
                print ( shift() );
              }
            );

        if ( $bytes_read != $total_size )

        --
        -- briac