Changeset 20220

Timestamp:

Oct 17, 2008, 9:40:59 AM (18 years ago)

Author:

bills

Message:

set chipname column for raw images to class_id

File:

• trunk/pstamp/scripts/pstamp_get_image_job.pl (modified) (6 diffs)

trunk/pstamp/scripts/pstamp_get_image_job.pl

@@ -106 +106 @@
     my $pathname = shift @fields;
     my $filetype = shift @fields;
+    my $class_id = shift @fields;
 
     ($pathname , my $filename) = resolvepath($pathname);
@@ -121 +122 @@
 
     # XXX is pstamp always the right file type, if not where can we get the right one?
-    print REGLIST file_registration_line($filename, $dest_path, $filetype);
+    print REGLIST file_registration_line($filename, $dest_path, $filetype, $class_id);
 
     foreach my $f (@fields) {
@@ -136 +137 @@
     my $pathname = $_[0];
 
+    # use the basename of the unresolved file as the name of the file
+    # in order to avoid nebulous name mangled paths in the datastore
+    my $file = basename($pathname);
+
     my $slash = index($pathname, "/");
     if ($slash != 0) {
@@ -141 +146 @@
             $ipprc = PS::IPP::Config->new();
         }
-        $pathname = $ipprc->convert_filename_absolute($pathname);
+        $pathname = $ipprc->file_resolve($pathname);
     }
 
-    my $file = basename($pathname);
 
     return ($pathname, $file);
@@ -154 +158 @@
     my $path     = shift;
     my $filetype = shift;
+    my $chipname = shift;
+    $chipname = $chipname ? "$chipname|" : "";
+
     if (-e $path) {
         my @finfo = stat($path);
@@ -160 +167 @@
         my $md5sum = file_md5_hex($path);
 
-        return "$filename|$bytes|$md5sum|$filetype|";
+        return "$filename|$bytes|$md5sum|$filetype|$chipname";
     } else {
         die "$filename not found at $path";