Help for this page

Select Code to Download

Select or download this

1023  LABEL:
  1024  print "\nCREATE A DATABASE FOR EXISTING CLIENT OR COPY AN EXIS
+TING DATABASE? \n";
...
  1059     goto LABEL;
  1060
  1061  }#end else statement

Select or download this

sub get_Origserver() {
print "******GETTING SERVER NAME OF THE DB BEING COPIED******\n";
my ($dbh) = @_;
}