/[papo]/papo/zot/zot2sql.pl
ViewVC logotype

Diff of /papo/zot/zot2sql.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by jlenton, Tue Feb 4 21:16:19 2003 UTC revision 1.8 by jlenton, Mon Apr 7 17:42:52 2003 UTC
# Line 8  use DBI; Line 8  use DBI;
8  use zot;  use zot;
9    
10  our %config = ();  our %config = ();
11    our $v;
12    
13  sub usage  sub usage
14  {  {
# Line 46  $config{'^PostgreSQL 7\.2\.'} = Line 47  $config{'^PostgreSQL 7\.2\.'} =
47          my $table = shift;          my $table = shift;
48          my $fkey = shift;          my $fkey = shift;
49          my $ref = shift;          my $ref = shift;
50          "ALTER TABLE $table ADD FOREIGN KEY ($fkey) REFERENCES $ref;\n";          "ALTER TABLE $table ADD CONSTRAINT ${fkey}_fk FOREIGN KEY ($fkey) REFERENCES $ref;\n";
51      }      }
52  };  };
53    
# Line 174  foreach my $table (sort keys %structure) Line 175  foreach my $table (sort keys %structure)
175          push @r, "$rel $type";          push @r, "$rel $type";
176      }      }
177    
178      my $sql = "CREATE TABLE $table (\n" . join(",\n", map("    $_", @r)) . "\n);\n";      my $sql = "CREATE TABLE $table ( " . join(", ", map("    $_", @r)) . " );\n";
179    
180      print STDERR $sql;      $v and print STDERR $sql;
181      $db->do( $sql );      $db->do( $sql );
182      $config{$db_conf}{'delay'}->();      $config{$db_conf}{'delay'}->();
183  }  }
# Line 197  if ($config{$db_conf}{'relational'}) Line 198  if ($config{$db_conf}{'relational'})
198              {              {
199                  $sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel});                  $sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel});
200              }              }
201              print STDERR $sql;              $v and print STDERR $sql;
202              $db->do($sql);              $db->do($sql);
203              $config{$db_conf}{'delay'}->();              $config{$db_conf}{'delay'}->();
204          }          }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26