From 5fae2ac0d0a85712bcf0611c99c5f7cf39421dc5 Mon Sep 17 00:00:00 2001
From: yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>
Date: Sat, 21 Jun 2008 11:17:56 +0000
Subject: Set beta version to "svn" and uploaded a script to move JAN codes
 from the notes field to the new GTIN field

git-svn-id: svn://vndb.org/vndb@31 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
---
 lib/global.pl               |  2 +-
 util/updates/update_1.17.pl | 82 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 83 insertions(+), 1 deletion(-)
 create mode 100755 util/updates/update_1.17.pl

diff --git a/lib/global.pl b/lib/global.pl
index 1fc3db1e..20e9f005 100644
--- a/lib/global.pl
+++ b/lib/global.pl
@@ -3,7 +3,7 @@ package VNDB;
 our @DBLOGIN = ( 'dbi:Pg:dbname=vndb', 'vndb', 'passwd' );
 our @SHMOPTS = ( -key => 'VNDB', -create => 'yes', -destroy => 'no', -mode => 0666);
 our $DEBUG = 1;
-our $VERSION = '1.17';
+our $VERSION = 'svn';
 our $COOKEY = '73jkS39Sal2)'; # encryption key for cookies (not to worry, this one is fake)
 
 our $MULTI = [
diff --git a/util/updates/update_1.17.pl b/util/updates/update_1.17.pl
new file mode 100755
index 00000000..e2a5f91e
--- /dev/null
+++ b/util/updates/update_1.17.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# execute update_1.17.sql first
+`psql -U vndb < /www/vndb/util/updates/update_1.17.sql`;
+
+
+use lib '/www/vndb/lib';
+BEGIN { require 'global.pl'; }
+
+
+# modules in the VNDB:: namespace aren't made to be included in
+#  frameworks other than VNDB.pm... so we'll just emulate
+#  a few functions of the framework to get DB.pm working
+package VNDB;
+
+use VNDB::Util::Tools; # for GTINType
+use VNDB::Util::DB;
+
+sub AuthInfo { { id => 1 } } # multi
+sub ReqIP { '127.0.0.1' }
+
+
+package main;
+
+my $db = bless {
+  _DB => VNDB::Util::DB->new(@VNDB::DBLOGIN),
+}, 'VNDB';
+
+my $rids = $db->DBAll(q|
+  SELECT r.id, rr.notes
+  FROM releases r
+  JOIN releases_rev rr ON rr.id = r.latest
+  WHERE r.hidden <> 1
+    AND r.locked <> 1
+    AND rr.notes ILIKE '%JAN%'
+    AND rr.gtin = 0
+  ORDER BY r.id
+|);
+
+
+my $edits=0;
+for my $r (@$rids) {
+  my $codes=0;
+  $codes++ while($r->{notes} =~ /[0-9]{12,13}/g);
+  if($codes > 1) {
+    print "$$r{id}: found more than one GTIN-like code...\n";
+    next;
+  }
+
+  my $jan;
+  if($r->{notes} =~ s/[\s\n(]*JAN(?:(?:\s+|-)code)?\s*[:\x{FF1A}]\s*([0-9-]+)[\s\n)]*//i) {
+    ($jan = $1) =~ s/-//g;
+    if(!VNDB::GTINType($jan)) {
+      print "$$r{id}: invalid GTIN code ($jan), ignoring\n";
+      next;
+    }
+  } else {
+    print "$$r{id}: matches on 'JAN', but couldn't find the code...\n";
+    next;
+  }
+
+  my $p = $db->DBGetRelease(id => $r->{id}, what => 'changes vn producers platforms media')->[0];
+
+  $db->DBEditRelease($r->{id},
+    (map { $_ => $p->{$_} } qw| title original language website minage type released platforms |),
+    producers => [ map { $_->{id} } @{$p->{producers}} ],
+    media => [ map { [ $_->{medium}, $_->{qty} ] } @{$p->{media}} ],
+    vn => [ map { $_->{vid} } @{$p->{vn}} ],
+    gtin => $jan,
+    notes => $r->{notes},
+    comm => "(automated edit caused by VNDB upgrade to 1.17)\nMoving JAN code from notes to GTIN field."
+  );
+  $edits++;
+}
+
+$db->DBCommit;
+
+print "Modified $edits releases...\n";
+
-- 
cgit v1.2.3