/[rserv]/bin/MasterInit
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/MasterInit

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

revision 1.1 by dpavlin, Wed Dec 20 17:22:35 2000 UTC revision 1.2 by dpavlin, Tue Aug 5 09:20:08 2003 UTC
# Line 1  Line 1 
1  # -*- perl -*-  #!/usr/bin/perl
2  # MasterInit  # MasterInit
3  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.
4    
# Line 22  if (defined($opt_help) || (scalar(@ARGV) Line 22  if (defined($opt_help) || (scalar(@ARGV)
22      exit ((scalar(@ARGV) < 1)? 1:0);      exit ((scalar(@ARGV) < 1)? 1:0);
23  }  }
24    
25    my $module_filename = '$libdir/rserv';
26    
27  my $master = $ARGV[0] || "master";  my $master = $ARGV[0] || "master";
28    
29  my $minfo = "dbname=$master";  my $minfo = "dbname=$master";
# Line 89  RollbackAndQuit($conn) if ($result->resu Line 91  RollbackAndQuit($conn) if ($result->resu
91  $result = $conn->exec("create sequence _rserv_sync_seq_");  $result = $conn->exec("create sequence _rserv_sync_seq_");
92  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);
93    
94  $result = $conn->exec("CREATE FUNCTION _rserv_log_() RETURNS opaque" .  $result = $conn->exec("CREATE FUNCTION _rserv_log_() RETURNS trigger" .
95                                            " AS '_OBJWD_/rserv_DLSUFFIX_' LANGUAGE 'c'");                                            " AS '$module_filename' LANGUAGE 'c'");
96  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);
97    
98  $result = $conn->exec("CREATE FUNCTION _rserv_sync_(int4) RETURNS int4" .  $result = $conn->exec("CREATE FUNCTION _rserv_sync_(int4) RETURNS int4" .
99                                            " AS '_OBJWD_/rserv_DLSUFFIX_' LANGUAGE 'c'");                                            " AS '$module_filename' LANGUAGE 'c'");
100  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);
101    
102  $result = $conn->exec("CREATE FUNCTION _rserv_debug_(int4) RETURNS int4" .  $result = $conn->exec("CREATE FUNCTION _rserv_debug_(int4) RETURNS int4" .
103                                            " AS '_OBJWD_/rserv_DLSUFFIX_' LANGUAGE 'c'");                                            " AS '$module_filename' LANGUAGE 'c'");
104  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);  RollbackAndQuit($conn) if ($result->resultStatus ne PGRES_COMMAND_OK);
105    
106  $result = $conn->exec("COMMIT");  $result = $conn->exec("COMMIT");
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26