mods

is /prog/ a fan of mods?

then I share my 2 favorite composers (they both work together with some other guy): WAVE and Laxity...

in their webpage they let you download some of their songs, but the FUCKING page doesn't have a nice html so I can rip off the links easily..

so what the hell
I did this perl code to get it for me, and it also extracts the files... (oh, you need the chilkat module to use it obv)


use chilkat;

$http = new chilkat::CkHttp();

$success = $http->UnlockComponent("dongs dongs dongs dongs dongs");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

print "Getting the Maniacs of Noise download page...\n";
$success = $http->Download("http://www.xs4all.nl/~mon/download.htm","links.htm");
if ($success != 1) {
  print $http->lastErrorText() . "\n";
}
else {
  print "Download Completed!" . "\n";
}

print "Starting the download and extraction of the songs!\n";

open FILE, "links.htm" or die $!;

$zip = new chilkat::CkZip();
$zip->UnlockComponent("dongs dongs dongs dongs dongs");


while (<FILE>) {
  next if ($_ =~ m/ft208/);
  next if ($_ =~ m/xmplay/);
  if ($_ =~ m/'(.*)zip'/) {
    print "Downloading $1zip...\n";
    $success = $http->Download("http://www.xs4all.nl/~mon/$1zip","$1zip");
    if ($success != 1) {
      print $http->lastErrorText() . "\n";
    }
    else {
      print "$1zip Download Complete!" . "\n";
    }
    print "Extracting $1zip...\n";
    $success = $zip->OpenZip("$1zip");
    if ($success) {
      $numUnzipped = $zip->Unzip("songs");
      print "Extraction of $numUnzipped file(s) successful.\n";
    }
    else {
      $zip->SaveLastError("openZipError.txt");
    }     
  }
}
print "All files were extracted to the ./songs/ folder. Enjoy!\n";

They were better when they were still on the C64.