@ECHO off
REM CHKIMPOR.CMD
REM Written by David Cain
REM Creates view of QImport procedure for possible inclusion into  
REM             a web page ie "C:\Inetpub\wwwroot\qimport.php" 
REM
REM Based on SQLBAK.CMD
REM 
REM Last edited 05-09-2007 DMC - File created
REM             10-09-2008 DMC - Change of processing location
REM                              New method to determine latest file
REM             19-09-2008 DMC - popd included to release mappings
REM             15-05-2009 DMC - Change of location for home drives
REM             15-06-2012 DMC - Temp change to Robyn's home drive
REM             24-01-2013 DMC - Q4WIMPOR (DBF) abandoned
REM             18-10-2013 DMC - New option for file listing 
REM                              due to abandonment of SAMBA on Telmax21
REM             21-05-2014 DMC - Using gawk for windows to format date string a bit nicer
REM             14-10-2014 DMC - Update to date string
REM

REM cls

setlocal
set destdir=%~dp0chkimporhtm.txt
set alphabeta1=davidc@telmax21
set betaalpha1=davidc
set PLINK_PROTOCOL=ssh
echo. > %destdir%
ECHO Telmax21 source file: >> %destdir%
REM dir \\telmax21\catcom\reports\robyn\system\quetzal1.* | find "quetzal1" >> %destdir%
REM plink -batch -pw %betaalpha1% %alphabeta1% ls -go /u/catcom/reports/robyn/system/quetzal1.* | find "quetzal1" >> %destdir% 
REM plink -batch -pw %betaalpha1% %alphabeta1% ls -ls /u/catcom/reports/robyn/system/quetzal1.csv | awk "{print $7,$8,$9,$6,$10}" >> %destdir% 
plink -batch -pw %betaalpha1% %alphabeta1% ls -lsT /u/catcom/reports/robyn/system/quetzal1.csv | awk "{print $8,$7,$10,$9 \"            \" $6,$11}" >> %destdir% 
ECHO. >> %destdir%
ECHO Interim processing folder: (Located on \\S-VM-Utility01 C:\Source) >> %destdir%
dir /o-d C:\Source\quetzal1.* | find "quetzal1" >> %destdir%
REM dir /o-d C:\Source\q4wimpor.* | find "q4wimpor" >> %destdir%
ECHO. >> %destdir%

set source=C:\Source
pushd "%source%"
for /f "tokens=*" %%a in ('dir impor*.log /b /a-d /o:d 2^>NUL') do (set lfile=%%a)
ECHO Update log file: (Located on \\S-VM-Utility01 %source%) >> %destdir%
dir "%source%\%lfile%" | %~dp0grep1 import >> %destdir% 
popd

ECHO. >> %destdir%

REM set source=\\s-vm-file01\robynd$\source
REM REM set source=\\blp09-san\Users\robynd\source
REM pushd "%source%"
REM for /f "tokens=*" %%a in ('dir q4wimpor.* /b /a-d /o:d 2^>NUL') do (set lfile=%%a)
REM ECHO End result on BLP09-SAN (RLD home drive): >> %destdir%
REM dir "%source%\%lfile%" | %~dp0grep1 q4wimpor >> %destdir% 
REM popd

REM ECHO. >> %destdir%

set source=\\s-vm-sql03\vqsmimport
pushd "%source%"
for /f "tokens=*" %%a in ('dir quetzal1.csv .* /b /a-d /o:d 2^>NUL') do (set lfile=%%a)
ECHO End result on S-VM-SQL03\VQSMImport: >> %destdir%
dir "%source%\%lfile%" | %~dp0grep1 quetzal1 >> %destdir% 
popd

:end
endlocal