Mods to correct missing Descriptions after Zip Convert in MPL17-2B.ZIP
all changes are commented 'Pe 10/05/89

All mods Are to RBBSSUB3.BAS  Maple version 

Skip to Line..........


 20724 GOSUB 20734

'
      CALL TIMEREMAIN (TIME.REMAINING!)
      IF PRIVATE.DOOR THEN _
         X! = UPLOAD.TIME.FACTOR! * Q! _
      ELSE X! = UPLOAD.TIME.FACTOR! * (TCA! - Q!)
'
'************************8 New Convert code begins here 8*******************
' Orig mods by Warren Muldrow
'
' additional mods by Pete Eibl moved code to callable Subroutines 09/25/89
'
'      Zip Convert code.  Does the following:
'
'         .EXE files are retained as is (for self-extracting files)
'          files with NO extension are left alone 
'
'    Added a .SFX for BBS that use the EXTCHECK.DEF file to block EXE files
'    this allows a user to upload self extracting EXE files only if they
'    Re Name the file .SFX ( this is a personall preference and can be removed)
'
'         .ZIP, .ARC, .PAK, .ZOO, and .LZH are unzrc'ed and then Zipped
'
'         All other files are Zipped
'
'      PKUNZIP, PKZIP, PKUNPAK, PAK, LHARC, ZOO.BAT, WHAT.EXE, and LOOZ.EXE
'         should be in the DOS path or the RBBS directory.  WHAT is used by
'         ZOO.BAT and is included in this archive.
'
'      The Library work path (Config parm # 304) is used for a work area !!!
'
  IF ABORT = TRUE THEN _     'Corrects aborted uploads
    EXIT SUB                'corrects aborted uploads
      CALL BRKFNAME (FILE.NAME$, DR$, ZZ$, X$, TRUE)
     IF X$ = ".EXE" OR X$ = "" OR EXT$ = ".SFX" THEN _
   GOTO 20727
'
IF SYSOP OR USER.SECURITY.LEVEL > = ADD.DIR.SECURITY THEN 
  A$ = " Convert or verify " + FILE.NAME$ + " ([Y],N) "
      SUBROUTINE.PARAMETER = 1
      CALL TGET 
       IF SUBROUTINE.PARAMETER = -1 THEN _
        EXIT SUB
         IF NO THEN _
        GOTO 20727
     END IF
IF LOCAL.USER THEN _
  CALL LOCALCONVERT (DR$,ZZ$,X$,DESC$) _   'Pe 10/05/89
 ELSE _
  CALL CONVERT2ZIP (DR$,ZZ$,X$,DESC$)      'Pe 10/05/89
'
20727 GOSUB 20734     'Pe 09/06/89

'rest is the same

'Skip To End of RBBSSUB3.BAS



' $SUBTITLE: 'CONVERT2ZIP - subroutine to Convert to ZIP format'
' $PAGE
'
'  NAME    -- CONVERT2ZIP
'
'  Parameters             DR$  drive/subdir were file is located
'                         ZZ$  Filename (no Extension)
'                          X$  extension of file being converted
'                       DESC$  file description for ZIP comment 'Pe 10/05/89
'
'  PURPOSE -- Convert files to Zip format if remote user
'
      SUB CONVERT2ZIP (DR$,ZZ$,X$,DESC$) STATIC  'Pe 10/05/89
 IF X$ = ".ZIP" THEN _
 CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _
  Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _
       ELSE _
        CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _
          IF X$ = ".ARC" OR X$ = ".PAK" THEN _
             Z$ = "PAK e " + FILE.NAME$ + " " : _
          ELSE IF X$ = ".LZH" THEN _
             Z$ = "LHARC e " + FILE.NAME$ + " " : _
          ELSE IF X$ = ".ZOO" THEN _
             Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _
          ELSE _
             Z$ = "COPY " +FILE.NAME$ + " "
'
          B$ = "CONVERT"+NODE.ID$+".BAT"
          CALL OPENOUTW (B$) : _
          PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
          PRINT #2, "ECHO OFF"
          PRINT #2, "CTTY GATE"+RIGHT$(COM.PORT$,1)
          PRINT #2, "SETERROR 0"
   IF X$ = ".LZH" THEN _
      PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _
     ELSE _
          PRINT #2,  Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$
          PRINT #2,  "DEL " + FILE.NAME$
          PRINT #2, "IF ERRORLEVEL 1 GOTO ERR "
          PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ 
                 LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*"
          PRINT #2,":ERR"
          PRINT #2, "CTTY CON"
          PRINT #2,  "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
          PRINT #2,"SETERROR 0"
          PRINT #2, "ECHO ON"
          PRINT #2, "EXIT"
B$ = "COMMAND.COM /C "+B$    'Pe 10/05/89
CALL SHELLEXIT (B$)         'Pe 10/05/89
     FILE.NAME.HOLD$ = ZZ$ + ".ZIP"
     FILE.NAME$ = DR$ + FILE.NAME.HOLD$
'
' ***  adds BBS name , users name and description to Zip comment if succesfull
 CALL FINDIT (FILE.NAME$)
  IF OK THEN
    CLOSE 2
     COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT
      ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$
       ADDCMT2$ = CRLF$ +"Description: " + DESC$
       ADDCOMMENT$ =  ADDCMT1$ + ADDCMT2$ + CRLF$
      CALL OPENOUTW (COMMENT.NAME$)
     PRINT #2, ADDCOMMENT$
    CLOSE 2
   ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$
  SHELL ADDCMT$ 
 END IF
END SUB
'
'
' $SUBTITLE: 'LOCALCONVERT - subroutine to Convert to ZIP format'
' $PAGE
'
'  NAME    -- LOCALCONVERT
'
'  Parameters             DR$  drive/subdir were file is located
'                         ZZ$  Filename (no Extension)
'                          X$  extension of file being converted
'                       DESC$  file description for ZIP comment 'Pe 10/05/89
'
'  PURPOSE -- Convert files to Zip format if LOCAL  user
'
      SUB LOCALCONVERT (DR$,ZZ$,X$,DESC$) STATIC   'Pe 10/05/89
'
 IF X$ = ".ZIP" THEN _
   CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _
     Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _
    ELSE _
   CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _
    IF X$ = ".ARC" OR X$ = ".PAK" THEN _
     Z$ = "PAK e " + FILE.NAME$ + " " : _
      ELSE IF X$ = ".LZH" THEN _
       Z$ = "LHARC e " + FILE.NAME$ + " " : _
        ELSE IF X$ = ".ZOO" THEN _
       Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _
      ELSE _
     Z$ = "COPY " +FILE.NAME$ + " "
'
  B$ = "CONVERT"+NODE.ID$+".BAT"
   CALL OPENOUTW (B$) : _
    PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
     IF X$ = ".LZH" THEN _
      PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _
      ELSE _
       PRINT #2,  Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$
       PRINT #2,  "DEL " + FILE.NAME$
       PRINT #2, "IF ERRORLEVEL 1 GOTO ERR "
       PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ 
                  LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*"
       PRINT #2,":ERR"
       PRINT #2,  "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
       PRINT #2,"SETERROR 0"
       PRINT #2, "EXIT"
    CLOSE 2
  SHELL "COMMAND.COM /C "+B$
  FILE.NAME.HOLD$ = ZZ$ + ".ZIP"
  FILE.NAME$ = DR$ + FILE.NAME.HOLD$
  CALL FINDIT (FILE.NAME$)
   IF OK THEN
    CLOSE 2
     COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT
       ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$
        ADDCMT2$ = CRLF$ +"Description: " + DESC$
       ADDCOMMENT$ =  ADDCMT1$ + ADDCMT2$ + CRLF$
      CALL OPENOUTW (COMMENT.NAME$)
     PRINT #2, ADDCOMMENT$
    CLOSE 2
   ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$
  SHELL ADDCMT$ 
 END IF
END SUB




'End of Mods to RBBSSUB3.BAS

'Pete Eibl   <Maple Street BBS 414-771-2805  1200-9600 HST>