Changeset 37249 for main

Timestamp:

2023-02-02T13:24:03+13:00 (15 months ago)

Author:

davidb

Message:

New inc-fldv-nminus action

File:

• main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm

@@ -155 +155 @@
     #INSERT METHODS
     "insert-metadata" => {
-        'compulsory-args' => [ "d", "metaname", "metavalue" ],
-        'optional-args'   => [ ] }
+        'compulsory-args' => [ "d", "metaname", "metavalue" ],
+        'optional-args'   => [ ] },
+
+
+    #INC METHODS
+    "inc-fldv-nminus1" => {
+        'compulsory-args' => [ "d" ],
+        'optional-args'   => [ ] }      
 };
 
@@ -3119 +3125 @@
 }
 
+
+
+
+sub inc_fldv_nminus1
+{
+    my $self = shift @_;
+
+    my $username  = $self->{'username'};
+    my $collect   = $self->{'collect'};
+    my $gsdl_cgi  = $self->{'gsdl_cgi'};
+    my $infodbtype = $self->{'infodbtype'};
+    
+    # Obtain the collect dir
+    my $site = $self->{'site'};
+    my $collect_dir = $gsdl_cgi->get_collection_dir($site);
+    
+    my $archive_dir = &util::filename_cat($collect_dir, $collect, "archives");
+    
+    # look up additional args
+    my $docid = $self->{'d'};
+    
+    
+    my $arcinfo_doc_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", $archive_dir);
+    my $doc_rec = &dbutil::read_infodb_entry($infodbtype, $arcinfo_doc_filename, $docid);
+    
+    # This now stores the full pathname [is this still true??]
+    my $doc_file = $doc_rec->{'doc-file'}->[0]; 
+
+    my ($unused_doc_tailname, $doc_dirname) = File::Basename::fileparse($doc_file);
+    my $doc_full_dirname = &util::filename_cat($archive_dir,$doc_dirname);
+    
+    my $fldv_full_dirname = &util::filename_cat($doc_full_dirname,$FLDV_HISTORY_DIR);
+
+    my $had_error = 0;
+    my $had_error_mess = undef;
+    
+    if (-d $fldv_full_dirname) {
+    my $fldv_filtered_dirs = &FileUtils::readDirectoryFiltered($fldv_full_dirname,undef,"^nminus-\\d+\$");
+    
+    my @sorted_fldv_filtered_dirs = sort {
+        my ($a_num) = ($a =~ m/(\d+)$/);
+        my ($b_num) = ($b =~ m/(\d+)$/);
+        
+        # sort into descending order
+        return $b_num <=> $a_num;
+    } @$fldv_filtered_dirs;
+    
+    ## shuffle all the nminus-<n> folders down by one
+
+    
+    foreach my $nminus_n (@sorted_fldv_filtered_dirs) {
+        
+        my $nminus_n_full_dir = &FileUtils::filenameConcatenate($fldv_full_dirname,$nminus_n);
+        if (-d $nminus_n_full_dir) {
+        
+        my ($n) = ($nminus_n =~ m/(\d+)$/);
+        my $new_n = $n + 1;
+        
+        my $new_full_dir_plus1 = &FileUtils::filenameConcatenate($fldv_full_dirname,"nminus-$new_n");
+
+        my $move_ok = &FileUtils::renameDirectory($nminus_n_full_dir,$new_full_dir_plus1,
+                              { 'strict' => 1 } );
+        
+        if (!$move_ok) {
+            $had_error_mess = "Error: Failed to move '$nminus_n' to nminus-$new_n in $fldv_full_dirname\n";
+            $had_error = 1;
+            last;
+        }
+        
+        }
+        else {
+        print STDERR "Warning: skipping $nminus_n_full_dir as it is not a directory\n";
+        }
+    }
+    }
+
+    if (!$had_error) {
+    ### Now need to copy everything top level in doc dir into nminus-1
+
+    my $nminus_1_full_dir = &FileUtils::filenameConcatenate($fldv_full_dirname,"nminus-1");
+    
+    my $copy_ok = &FileUtils::copyFilesRefRecursive([$doc_full_dirname],$nminus_1_full_dir,
+                            { 'strict' => 1, 'exclude_filter_re' => "^$FLDV_HISTORY_DIR\$" } );
+    
+    if (!$copy_ok) {
+        $had_error_mess = "Error: Failed to clone document $docid to form 'nminus-1' directory in $fldv_full_dirname";
+        $had_error = 1;
+    }
+    }
+    
+    if ($had_error) {
+    $gsdl_cgi->generate_error($had_error_mess);
+    }
+    else {
+    $gsdl_cgi->generate_ok_message("Successfully incremented the File-Level Document-Version History for $docid");
+    }
+}
+
+
 # not returning 1; here since this file is conditionally included by metadataction.pm
 # and not otherwise meant to be used on its own