#! c:/perl/bin/perl.exe
#
#
use strict;

use Win32::AdminMisc;
use Math::BigInt;
use Data::Dumper;

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Time::localtime;

use DBI;
use DBD::ODBC;

use VMware::VILib;
use VMware::VIRuntime;

use vars qw/$Storage $tables $dbh $DB/;
undef $_ foreach ([$Storage, $tables, $dbh, $DB]);
@{$tables->{SAN_Devices}}=qw/SAN_ID INT IDENTITY(1,1) PRIMARY KEY,
						SAN_Name NVARCHAR(255) not NULL unique,
						SAN_Type NVARCHAR(25),
						Notes text/;
										
@{$tables->{SAN_LUNs}}=qw/LUN_ID INT IDENTITY(1,1) PRIMARY KEY, 	
						LUN_Name NVARCHAR(255) not NULL,
						fkSAN_ID INT CONSTRAINT Relation1 FOREIGN KEY 
						REFERENCES dbo.SAN_Devices(SAN_ID) 
						ON DELETE CASCADE /;													
@{$tables->{SAN_WWN}}=qw/WWN_ID INT IDENTITY(1,1) PRIMARY KEY, 	
						WWN_Port NVARCHAR(255) not NULL,
						fkLUN_ID INT CONSTRAINT Relation2 FOREIGN KEY 
						REFERENCES dbo.SAN_LUNs(LUN_ID) 
						ON DELETE CASCADE /;