[MKDoc-commit] [1.6] Tweak photo batch import script also options to set author and

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] Tweak photo batch import script also options to set author and date.

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/tools:
        mkphoto.pl

-------------- next part --------------
Index: mkphoto.pl
===================================================================
RCS file: /var/spool/cvs/mkd/tools/mkphoto.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -Ltools/mkphoto.pl -Ltools/mkphoto.pl -u -r1.1.2.1 -r1.1.2.2
--- tools/mkphoto.pl
+++ tools/mkphoto.pl
@@ -55,16 +55,26 @@
     __init__();
     my $class = shift;
     my $path  = shift;
+    my $date  = shift;
+    my $author = shift;
     my $photo = shift;
 
     my $document_t = flo::Standard::table ('Document');
     my $document   = $document_t->get (Full_Path => $path) or die "document $path could not be found";
 
+    my $title = $photo;
+    $title =~ s/.*\///;
+    $title =~ s/([A-Z])/ $1/g;
+    $title =~ s/\.jpg$//i;
+    $title =~ s/[-_.]/ /g;
+    $title =~ s/^ +//;
+    $title =~ s/ +/ /g;
+
     my $cgi = new FakeCGI (
-        fake_alt         => $photo,
-        fake_description => $photo,
-        fake_creator     => 'mkphotoattach.pl',
-        fake_date        => $document->now_day_iso(),
+        fake_alt         => $title,
+        fake_description => $title,
+        fake_creator     => $author,
+        fake_date_created => $date,
         fake_rights      => '',
         fake_coverage    => '',
         fake_upload      => $photo,
@@ -89,12 +99,14 @@
 use strict;
 use warnings;
 
-my $path  = shift (@ARGV) || die "Usage: $0 <path> photo1 photo2 photo3...";
+my $path  = shift (@ARGV) || die "Usage: $0 <path> <date> <author> photo1 photo2 photo3...";
+my $date = shift (@ARGV);
+my $author = shift (@ARGV);
 while ($_ = shift @ARGV) {
   -e $_ || do { warn "$_ doesn't seem to exist"; 1     } && next;
   -f $_ || do { warn "$_ doesn't seem to be a file"; 1 } && next;
   print "Processing $_...\n";
-  MKDoc::Bin::Photo->handler ($path, $_);
+  MKDoc::Bin::Photo->handler ($path, $date, $author, $_);
 }
 
 1;