; Script to copy tapes from SAN to LTO
; Requires Kixtart 4.x, Kixforms 2.3.0.38
; by Les Ligetfalvy
break on
dim $label,$frame1,$frame2,$frame3,$label2,$cmd1,$cmd2,$cmd3,$cmd4,$cmd5,$
Global $form,$Text4,$Text5,$Text6,$form2,$list1,$list2,$list3,$label1,$OptionButton1,$OptionButton2,$CheckBox1,$label7
$ = setoption('explicit','on')

$Form = CreateObject('Kixtart.Form')
$Form.Caption = 'GUI TapeCopy - beta 2'
$Form.Width = 420
$Form.Height = 500
$Form.center

$label = $Form.Label('Note that only M or TM tapes will show in the lists.  Only one tape copy/merge job'
 + @CRLF + 'is allowed at one time.  Merge job will follow shortly after the copy job completes.' 
 + @CRLF + 'Newly copied LTO tapes will not appear in the list without another Filter Load.',10,10,400,40) 

$Frame1 = $Form.Frame('Select SAN Tape',10,55,240,160)
$Frame2 = $Form.Frame('Action Steps',260,55,145,337)
$Frame3 = $Form.Frame('Existing LTO Tapes',10,220,240,172)

$list1  = $Form.Listbox(,20,73,220,130)
$list2  = $Form.Listbox(,20,238,220,142)


$label2 = $Form.Label('1:  Load Filter'
    + @CRLF + @CRLF + '2:  Select SAN Tape'
    + @CRLF + @CRLF + '3:  Copy Tape'
    + @CRLF + @CRLF + '4:  Repeat or Exit',270,75,160,110) 

$cmd1 = $Form.CommandButton('&Load Filter',280,270) 
$cmd1.onclick = 'onbutton1click() $$list1.setfocus' 

$cmd2 = $Form.CommandButton('&Copy',280,310) 
$cmd2.onclick = 'onbutton2click() $$list1.setfocus' 

$cmd5 = $Form.CommandButton('E&xit',280,350)
$cmd5.onclick = 'onbutton5click() $$list1.setfocus'

$list3 = $Form.Listbox(,9,400,395,60)

$Form.Show 
$list1.setfocus

While $Form.Visible
  $=Execute($Form.DoEvents())
Loop 

FUNCTION onbutton1click ;Select Group and Date
  dim $label3,$savebtn,$label4,$label5,$label6,$,$Frame4,$Frame5
  $Form2 = CreateObject('Kixtart.Form')
  $Form2.Caption = 'BrightStor Filter Settings'
  $Form2.Width = 400
  $Form2.Height = 300
  $Form2.center

  $Frame4 = $Form2.Frame('Date Range',10,28,182,190)
  $Frame5 = $Form2.Frame('Filter Options',202,28,182,190)


  $label3 = $Form2.Label('Enter a date in the format 01/28/05',10,10,390,30)
  $savebtn = $Form2.CommandButton('Save and Return',150,230) 
  $savebtn.onclick = 'onbutton6click()'

  $label4 = $Form2.Label("Date:",30,62,48,15)
  $label4.alignment = 1 
  $Text4 = $Form2.Textbox(Split(@date,'/')[1]+'/'+Split(@date,'/')[2]+'/'+Right(Split(@date,'/')[0],2),80,60,90,20) 

  $label5 = $Form2.Label("Group:",30,92,48,15) 
  $label5.alignment = 1
  $Text5 = $Form2.Textbox('SRV1_D',80,90,90,20) 

  $OptionButton1 = $Form2.OptionButton("After Date",230,60,150,20) 
  $OptionButton2 = $Form2.OptionButton("Before Date",230,90,150,20) 
  $OptionButton1.checked = 1 
  

  $CheckBox1 = $Form2.Controls.CheckBox("All Groups",230,150,150,20) 

  $Form2.Show 

  While $Form2.Visible
    $=Execute($Form2.DoEvents())
  Loop 
endfunction

FUNCTION onbutton5click ;Exit
  quit 1
endfunction

FUNCTION onbutton2click ;Copy
  ;Sample TapeCopy CMD
  ; TapeCopy -s SRV2_D -d LTO -t M-SRV2-SAT-05/28/05 -c TM-SRV2-SAT-05/28/05 -m MLY_TAPE -g
  dim $S,$D,$T,$C,$M,$G,$TapeCopyCMD
  select
    case $list1.text = -1
      $list3.additem(@time + ' - NO TAPE SELECTED, NOTHING TO COPY!',0)
      exit 1
    case Left($list1.text,1) = 'M'
      $S = ' -s '+Split($List1.text,'-')[1]+'_D'
      $D = ' -d LTO'
      $T = ' -t '+$list1.text
      $C = ' -c T'+$list1.text
      $M = ' -m MLY_TAPE'
      $G = ' -g'
      $TapeCopyCMD = 'C:\Program Files\CA\BrightStor ARCserve Backup\TapeCopy.exe'+$S+$D+$T+$C+$M+$G
      $list3.additem(@time + ' - Tape '+$list1.text+' copy to T'+$list1.text,0)
      exit 1
    case Left($list1.text,1) = 'T'
      $list3.additem(@time + ' - LTO TAPE SELECTED, CANNOT COPY TO SELF!',0)
      exit 1
    case 1
      $list3.additem(@time + ' - DOH!',0)
      exit 1
  endselect
endfunction

FUNCTION onbutton6click ;Exit
  dim $Folder,$Date,$Group,$FolderArray[6],$SGroup
  $Date = $text4.text
  $Group = $text5.text
  $form2.mousepointer = 11
  $list1.clear
  $list2.clear
  $list3.clear
  for each $Folder in dirplus("C:\Program Files\CA\BrightStor ARCserve Backup\CATALOG.DB","/ad")
    $FolderArray = Split(Split(Split($Folder,'CATALOG.DB\')[1],'.')[0],'-')
    $Folder = Join($FolderArray,'-',4)+'/'+$FolderArray[4]+'/'+$FolderArray[5]
    If $FolderArray[0] = 'M' or $FolderArray[0] = 'TM'
      $SGroup = $FolderArray[1]+'_D'
      select
        case $CheckBox1.checked
          select
            case $optionButton1.checked
              If Right($Folder,8) <= $Text4.text
                If $FolderArray[0] = 'M'
                  $list1.additem($Folder)
                Else
                  $list2.additem($Folder)
                EndIf
              EndIf   
            case $optionButton2.checked
              If Right($Folder,8) >= $Text4.text
                If $FolderArray[0] = 'M'
                  $list1.additem($Folder)
                Else
                  $list2.additem($Folder)
                EndIf
              EndIf   
          endselect
        case not $CheckBox1.checked
          if $Group = $SGroup
            select
              case $optionButton1.checked
                If Right($Folder,8) <= $Text4.text
                  If $FolderArray[0] = 'M'
                    $list1.additem($Folder)
                  Else
                    $list2.additem($Folder)
                  EndIf
                EndIf   
              case $optionButton2.checked
                If Right($Folder,8) >= $Text4.text
                  If $FolderArray[0] = 'M'
                    $list1.additem($Folder)
                  Else
                    $list2.additem($Folder)
                  EndIf
                EndIf   
            endselect
          endif
        endselect
    EndIf
  next
  $list3.additem(@time + ' - ' + 'Logging started')
  $list3.additem('Date filter = '+IIF($optionButton1.checked,'After','Before')+' '+$Text4.text,0)
  $list3.additem('Group filter = '+IIF($CheckBox1.checked,'All',$Group),0)
  $form2.mousepointer = 1
  $form2.hide
    
endfunction


Function DirPlus($path,optional $Options, optional $f, optional $sfflag)
;Author		Bryce Lindsay bryce@isorg.net
	If not vartype($f)	DIM $f		EndIf
	If not vartype($sfflag)	DIM $sfflag	EndIf

	DIM $file, $i, $temp, $item, $ex1, $mask,$mask1,$maskArray,$maskarray1,
	$ex2, $code, $CodeWeight, $targetWeight, $weight, $masktrue
	DIM $tarray[0]

	$ex1 = SetOption(Explicit,on)
	$ex2 = SetOption(NoVarsInStrings,on)
	$codeWeight = 0

	If not Exist($path) Exit(2) EndIf
	If not vartype($f)
		$f = CreateObject("Scripting.FileSystemObject").getfolder($path)
	EndIf
	If @ERROR 
		$temp = SetOption(Explicit,$ex1)
		$temp = SetOption(NoVarsInStrings,$ex2)
		Exit(@ERROR)
	EndIf

 	For Each $temp In Split($options,"/")
		$temp=Trim($temp)
		Select
		   Case left($temp,1) = "s"
			If not vartype($sfflag)
				If Val(right($temp,-1)) = 0
					$sfflag = -1
				Else
					$sfflag = Val(right($temp,-1))
				EndIf	
			EndIf
		   Case Left($temp,1) = "a"
			Select
			   Case Right($temp,-1)="d"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.type = 'File Folder' "
			   Case Right($temp,-1)="-d"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.type <> 'File Folder' "
			   Case Right($temp,-1)="s"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 4 "
			   Case Right($temp,-1)="-s"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 4)=0 "
			   Case Right($temp,-1)="h"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 2 "
			   Case Right($temp,-1)="-h"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 2)=0 "
			   Case Right($temp,-1)="r"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 1 "
			   Case Right($temp,-1)="-r"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 1)=0 "
			   Case Right($temp,-1)="a"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 32 "
			   Case Right($temp,-1)="-a"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 32)=0 "
			EndSelect
			$code = $temp + "$weight=$weight+1 endif" +@CRLF + $code

		   Case Left($temp,1) = "m"
			$maskarray = Split(Right($temp,-2),"|")
			$codeweight = $codeweight + 1
			$code = "$masktrue=0 for Each $mask in $maskarray if instr($file.name,$mask) $masktrue=1 " +
			"EndIf Next If $masktrue $weight=$weight+1 endif" + @CRLF +$code
		   Case Left($temp,1) = "f"
			$maskarray1 = Split(Right($temp,-2)," ")
			$codeweight = $codeweight + 1
			$code = "$masktrue=0 for Each $mask1 in $maskarray1 if substr($file.name,Instrrev($file.name,'.')+1)" +
			"=$mask1 $masktrue=1 EndIf Next If $masktrue $weight=$weight+1 endif" + @CRLF +$code

		EndSelect
	Next
	$code = "$weight = 0 $targetWeight = " + $codeweight + @CRLF + $code
	$code = $code + "if $weight = $targetweight Exit(1) endif"

	For Each $file In $f.subfolders
		If Execute($code)
			$tarray[$i] = $file
			$i = $i + 1
			ReDIM preserve $tarray[$i]
		EndIf
		If $sfflag
			$temp = dirplus($file,$options,$file,$sfflag-1)
			For Each $item In $temp
				$tarray[$i] = $item
				$i = $i + 1
				ReDIM preserve $tarray[$i]
			Next
		EndIf
	Next
	For Each $file In $f.files
		If Execute($code)
			$tarray[$i] = $file
			$i = $i + 1

			ReDIM preserve $tarray[$i]
		EndIf
	Next

	If $i
		ReDIM preserve $tarray[$i-1]
		$i=0
	Else
		$tarray = 0
	EndIf

	$dirplus = $tarray
	$temp = SetOption(Explicit,$ex1)
	$temp = SetOption(NoVarsInStrings,$ex2)
	Exit(@ERROR)
EndFunction