#!/usr/local/bin/perl -w

use strict;  # important for variables
use warnings;  # Gives optional warnings
use Win32::SqlServer qw(SCALAR);   # This is thr module which is used to connect to the RDBMS
use IO::File; # File input output module
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );



# Create database connection object, set database and then connect with integrated security.
my $sqlsrv = Win32::SqlServer->new; # Create a new SQLSRV object
$sqlsrv->setloginproperty('Server', 'REPLACE_WITH_SERVER_NAME'); # Set the Server property
$sqlsrv->setloginproperty('Database', 'REPLACE_WITH_DATABASE_NAME'); # Set the database property
$sqlsrv->setloginproperty('Password', 'REPLACE_WITH_PASSWORD');
$sqlsrv->setloginproperty('Username', 'REPLACE_WITH_USERID');
$sqlsrv->connect(); # This is where we connect to the sql server system using integrated security


my $name; my $out = "outfile.cmd"; my $in = "infile.cmd"; my $nameout; my $namein;


my $stmnt01 = <<SQLEND;
select 'bcp "REPLACE_WITH_SOURCE_DATABASE_NAME.dbo.'  + name + '" out "' + name + '_out.txt" -SREPLACE_WITH_SOURCE_SERVER_NAME -UREPLACE_WITH_USER_NAME -PREPLACE_WITH_PASSWORD -N' from sysobjects where type = 'U'
SQLEND

my $stmnt02 = <<SQLEND;
select 'bcp "REPLACE_WITH_DESTINATION_DATABASE_NAME.dbo.'  + name + '" in "' + name + '_out.txt" -SREPLACE_WITH_DESTINATION_SERVER_NAME -UREPLACE_WITH_USER_NAME --PREPLACE_WITH_PASSWORD -N' from sysobjects where type = 'U'
SQLEND

open (OUTFILE,">$out") or die "Can not open file $out for writing, quitting\n";
my $resultout = $sqlsrv->sql($stmnt01, SCALAR);
foreach $nameout (@$resultout) {
   print OUTFILE "$nameout\n";
}

open (INFILE,">$in") or die "Can not open file $in for writing, quitting\n";
my $resultin = $sqlsrv->sql($stmnt02, SCALAR);
foreach $namein (@$resultin) {
   print INFILE "$namein\n";
}

close (OUTFILE); close (INFILE);

system ("outfile.cmd");