use Perl

• Open source and all that... (Score:3, Interesting)

  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]

  Reply to This
• Gone (Score:2)

  by vek (2312)

  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!

  
  • Re:Gone (Score:1)

    by boru (3388)

    The site with the MP3s is still at: http://www.music369.com
  • Re:Gone (Score:1)

    by bart (450)

    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].
  • Re:Gone (Score:2)

    by gnat (29)

    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)

      by briac (2526)

      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