@ECHO LINK-DAV Convert Davar Web Site Links into HTML 03/27/2003-04/01/2003 @ECHO -------------------------------------------------------------------------- @ECHO %TR% : Copyright (C) 2003 by Vladimir Veytsel www.davar.net DIR %DOS%:\DAVAR\LINKS.TXT /EFHKMS > %DOS%:\LINK-DAV.LST FOR %Line IN (@%DOS%:\LINK-DAV.LST) DO GOSUB Process_Link_File DEL %DOS%:\LINK-DAV.LST /Q UNSET File_Name QUIT :Process_Link_File ------------------------------------------------------------- SET File_Name=%@UPPER[%@WORD[".",0,%Line]] IFF NOT EXIST %File_Name%.HTM THEN ECHO %S%%R%Links file %M%%File_Name%.HTM %R%doesn't exist - %M%conversion bypassed%D% RETURN ENDIFF IFF %@FILEAGE[%File_Name%.TXT] GT %@FILEAGE[%File_Name%.HTM] THEN CONVLNK %File_Name% ELSE ECHO %B%Links file %C%%File_Name%.TXT %B%has no new links - %C%conversion bypassed%D% ENDIFF RETURN