Merge pull request #131 from yvanzo/search-653-drop-previous-sql

SEARCH-653: Drop SQL functions and triggers previously created

Author: yvanzo

GenerateDropSql.pl

@@ -27,6 +27,12 @@ sub process_functions
         my $name = $1;
         push @functions, $name;
     }
+    # Functions created by the previous versions of SIR
+    push @functions, qw(
+        search_link_attribute_type_insert
+        search_link_attribute_type_update
+        search_link_attribute_type_delete
+    );
     @functions = sort(@functions);
 
     my @aggregates;
@@ -39,11 +45,11 @@ sub process_functions
     print OUT "-- Automatically generated, do not edit.\n";
     print OUT "\\unset ON_ERROR_STOP\n\n";
     foreach my $func (@functions) {
-        print OUT "DROP FUNCTION $func;\n";
+        print OUT "DROP FUNCTION IF EXISTS $func;\n";
     }
     foreach my $agg (@aggregates) {
         my ($name, $type) = @$agg;
-        print OUT "DROP AGGREGATE $name ($type);\n";
+        print OUT "DROP AGGREGATE IF EXISTS $name ($type);\n";
     }
     close OUT;
 }
@@ -67,12 +73,22 @@ sub process_triggers
     while ($create_triggers_sql =~ m/CREATE (?:CONSTRAINT )?TRIGGER\s+"?([a-z0-9_]+)"?\s+.*?\s+ON\s+"?([a-z0-9_\.]+)"?.*?;/gsi) {
         push @triggers, [$1, $2];
     }
+    # Triggers created by the previous versions of SIR
+    push @triggers, (
+        ['search_release_packaging_insert', 'musicbrainz.release_packaging'],
+        ['search_release_packaging_update', 'musicbrainz.release_packaging'],
+        ['search_release_packaging_delete', 'musicbrainz.release_packaging'],
+        ['search_link_attribute_type_insert', 'musicbrainz.link_attribute_type'],
+        ['search_link_attribute_type_update', 'musicbrainz.link_attribute_type'],
+        ['search_link_attribute_type_delete', 'musicbrainz.link_attribute_type']
+    );
+    @triggers = sort(@triggers);
 
     open OUT, ">$dir/$outfile";
     print OUT "-- Automatically generated, do not edit.\n";
     print OUT "\\unset ON_ERROR_STOP\n\n";
     foreach my $trigger (@triggers) {
-        print OUT "DROP TRIGGER $trigger->[0] ON $trigger->[1];\n";
+        print OUT "DROP TRIGGER IF EXISTS $trigger->[0] ON $trigger->[1];\n";
     }
     close OUT;
 }