File indexing completed on 2024-04-06 12:22:58
0001
0002
0003 use lib "./lib";
0004
0005 use warnings;
0006 use strict;
0007 $|++;
0008
0009 use ConnectionFile;
0010
0011 print "Connecting to DB...";
0012 my $condDB = ConnectionFile::connect();
0013 print "Done.\n";
0014
0015 print "Destroying old DB...";
0016 $condDB->destroydb(-name=>$ConnectionFile::db);
0017 print "Done.\n";
0018
0019 print "Creating new DB...";
0020 $condDB->newdb(-name=>$ConnectionFile::db);
0021 print "Done.\n";
0022
0023 print "Defining stored procedures...";
0024 $condDB->define_procedure(-file=>"../sql/update_online_cndc_iov.sql");
0025 print "Done.\n"
