Creating CD contents listings in org mode

[Charles Cave <charles_cave@optusnet.com.au>]

I used to use Treepad on Windows  (www.treepad.com) and wrote a Perl
module to read and write Treepad Files. These were plain text but had
extra information to define each node in the tree.

Now I use ORG mode for my outlining requirements.

Today I adapted a program to create a listing of the contents
of a CD-ROM. The program is written in Perl (not Lisp!).

I use Windows, and my CD-ROM drive is F:
I write a unique number on each CD, for example, C039

To catalogue the disk, I run the command
perl cdcat.pl C039.org F:

Now I can view the file C039.org with Emacs and expand/collapse the
directory names.


Sample output:


*  f:
f:
** Australian Piano Concertos
f:/Australian Piano Concertos
   01 Piano Concert Movt 1 - Ross Edwards.mp3 (6884786)
   02 Piano Concerto Movt 2 - Ross Edwards.mp3 (10772642)
   03 Piano Concerto Movt 3 - Ross Edwards.mp3 (4604168)
   07 Piano Concerto - Peter Sculthorpe.mp3 (26613776)
   Australian Piano Concertos playlist.m3u (746)
** Sun Music
f:/Sun Music
   01 Memento Mori - Peter Sculthorpe.mp3 (20459686)
   02 Sun Song - Peter Sculthorpe.mp3 (8521866)
   03 Sun Music 1 - Peter Sculthorpe.mp3 (14595318)
   04 Sun Music 2 - Peter Sculthorpe.mp3 (8466152)
   05 Sun Music 3 - Peter Sculthorpe.mp3 (17877436)
   06 Sun Music 4 - Peter Sculthorpe.mp3 (12673498)
   07 From Uluru - Peter Sculthorpe.mp3 (5337404)
   Sun Music playlist.m3u (584)




# Save the remained of the message as a file  cdcat.pl

# cdcat.pl    Modified on 29th April 2005

use strict;
use warnings;

#  parse a directory structure to create an Emacs org mode file
#  with a list of files against each node.

my $outfile = shift;
my $root    = shift;   # start directory for searching, a CD drive:  G:
my $info    = "";      # the catalogue data being prepared

defined($outfile) or $outfile = "cd.org";
defined($root)    or die "Syntax is cdcat cdlabel CDdrive\n";

open (my $fv, ">", $outfile) or die "Cannot create $outfile\n";
my $level = 0;
parse_dir($root, $level, $root);

print $fv $info;
close($fv);

print "Analysis of $root written to $outfile\n";


###############
sub parse_dir {
###############
     my $dir      = shift;
     my $level    = shift;
     my $fullpath = shift;

     my @dirlist = ();
     my $filelist = "";

     chdir($fullpath)        or die "chdir to $fullpath failed\n";
     opendir(my $dirfv, ".") or die "Cannot open . in $dir\n";
     while (my $file = readdir($dirfv)) {
         if ( -f $file ) {
             my $size = -s $file;
             $filelist .= "  $file ($size)\n";
         }
         next if ($file eq ".");
         next if ($file eq "..");
         push (@dirlist, $file) if -d $file;
     }

     $info .= '*' x ( $level + 1 );
     $info .= " $dir\n$fullpath\n$filelist";

     foreach my $subdir (@dirlist) {
        parse_dir($subdir, $level + 1,  $fullpath."/".$subdir);
     }
}