/[rserv]/misc/rserv_init.pl
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 /misc/rserv_init.pl

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

revision 1.1 by dpavlin, Fri Aug 15 20:39:52 2003 UTC revision 1.2 by dpavlin, Fri Aug 15 23:02:02 2003 UTC
# Line 20  use Pod::Usage; Line 20  use Pod::Usage;
20    
21  use Pg;  use Pg;
22    
23  use lib '/usr/lib/postgresql/share/contrib/';  my $basedir;
24    BEGIN {
25            $basedir = $0; $basedir =~ s#/[^/]+$##;
26            unshift(@INC, "$basedir/../share");
27    }
28    #use lib '/usr/lib/postgresql/share/contrib/';
29    
30  use RServ;  use RServ;
31    
# Line 29  use RServ; Line 34  use RServ;
34  #                   G L O B A L   V A R I A B L E S  #                   G L O B A L   V A R I A B L E S
35  ##############################################################################  ##############################################################################
36    
37  our $rserv_base = $0;  our $master_sql = "$basedir/master.sql";
38  $rserv_base =~ s{[^/]*$}{RServ};  our $slave_sql  = "$basedir/slave.sql";
   
 our $master_sql = "$rserv_base/master.sql";  
 our $slave_sql  = "$rserv_base/slave.sql";  
39  our $db_changed = 0;  our $db_changed = 0;
40    
41    
# Line 254  sub init_repl_triggers { Line 256  sub init_repl_triggers {
256    
257    print "Creating replication triggers\n";    print "Creating replication triggers\n";
258    
259    my $cmnd = "$rserv_base/MasterAddTable";    my $cmnd = "$basedir/../bin/MasterAddTable";
260    $cmnd .= " --host=$opt{h}"     if($opt{h});    $cmnd .= " --host=$opt{h}"     if($opt{h});
261    $cmnd .= " --user=$opt{u}"     if($opt{u});    $cmnd .= " --user=$opt{u}"     if($opt{u});
262    $cmnd .= " --password=$opt{p}" if($opt{p});    $cmnd .= " --password=$opt{p}" if($opt{p});
# Line 283  sub init_slave_tables { Line 285  sub init_slave_tables {
285    
286    print "Initialising slave tables\n";    print "Initialising slave tables\n";
287    
288    my $cmnd = "$rserv_base/SlaveAddTable";    my $cmnd = "$basedir/../bin/SlaveAddTable";
289    $cmnd .= " --host=$opt{h}"     if($opt{h});    $cmnd .= " --host=$opt{h}"     if($opt{h});
290    $cmnd .= " --user=$opt{u}"     if($opt{u});    $cmnd .= " --user=$opt{u}"     if($opt{u});
291    $cmnd .= " --password=$opt{p}" if($opt{p});    $cmnd .= " --password=$opt{p}" if($opt{p});
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26