From 18019b4d6bcb97baea8e53e1d5dbe1343d830a5f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Gigandet?= Date: Sat, 16 Nov 2024 17:04:30 +0100 Subject: [PATCH] script to fix mistake --- scripts/migrations/2024_11_move_missing_opf_products.pl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/scripts/migrations/2024_11_move_missing_opf_products.pl b/scripts/migrations/2024_11_move_missing_opf_products.pl index e2646294f40b7..18518d320fa4c 100755 --- a/scripts/migrations/2024_11_move_missing_opf_products.pl +++ b/scripts/migrations/2024_11_move_missing_opf_products.pl @@ -20,8 +20,6 @@ # You should have received a copy of the GNU Affero General Public License # along with this program. If not, see . -use CGI::Carp qw(fatalsToBrowser); - use ProductOpener::PerlStandards; use ProductOpener::Config qw/:all/; @@ -95,15 +93,15 @@ sub move_product_dir_to_off ($dir, $dir2, $dir3, $dir4) { # move .sto files - print STDERR "moving $dir/$dir2/$dir3/$dir4\n"; + print STDERR "moving /srv/opf/products/other-flavors-codes/$dir$dir2$dir3$dir4 to /srv/off/products/$dir/$dir2/$dir3/$dir4\n"; #ensure_dir_created_or_die("/srv/off/products/$dir/$dir2/$dir3"); # if there is an existing off directory for this product, move it to deleted-off-products-codes-replaced-by-other-flavors if (0 and -e "/srv/off/products/$dir/$dir2/$dir3/$dir4") { print STDERR "moving existing product on OFF\n"; if ( dirmove( - "/srv/off/products/$dir/$dir2/$dir3/$dir4", - "/srv/off/products/deleted-off-products-codes-replaced-by-other-flavors/$dir$dir2$dir3$dir4" + "/srv/off/products/deleted-off-products-codes-replaced-by-other-flavors/$dir$dir2$dir3$dir4", + "/srv/off/products/$dir/$dir2/$dir3/$dir4" ) ) {