Add images.csv support

app/makelist.pl

@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+my $file = $ARGV[0] || $ENV{'WEBROOT'} . '/images.txt';
+
+open(IN, $file) || die "Unable to read '$file': $!\n";
+while(my $line=<IN>) {
+    chomp($line);
+
+    if(my($id,$num,$hr)=$line=~/.+\/(.+)_(\d+)_HR\..+$/) {
+        print join(',',$id,$num,'HR',$line), "\n";
+    } elsif(my($id,$num)=$line=~/.+\/(.+)_(\d+)\..+$/) {
+        print join(',',$id,$num,'LR',$line),"\n";
+    } else {
+        warn "Invalid line? '$line'\n";
+    }
+}
+close(IN);

app/update_rsr_images

@@ -19,6 +19,7 @@ done
 
 echo Download complete at `date`
 find $WEBROOT/images -type f | perl -pe 's/^\/var\/www//' | sort > $WEBROOT/images.txt
+/opt/app/makelist.pl > $WEBROOT/images.csv
 echo Done at `date`
 echo