Changeset 5372 for trunk/tools
- Timestamp:
- Mar 24, 2001, 8:22:02 PM (24 years ago)
- Location:
- trunk/tools/DailyBuild
- Files:
-
- 2 edited
-
odin32ftp2.cmd (modified) (7 diffs)
-
odin32pack.cmd (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/DailyBuild/odin32ftp2.cmd
r5255 r5372 1 /* $Id: odin32ftp2.cmd,v 1.1 0 2001-02-23 14:41:51bird Exp $1 /* $Id: odin32ftp2.cmd,v 1.11 2001-03-24 19:22:02 bird Exp $ 2 2 * 3 3 * Uploads the relase and debug builds to the FTP sites. … … 15 15 parse arg sLoc 16 16 17 /* 18 * Determin files to upload and files to delete. 19 */ 20 if (DATE('B')//7 = 4) then /* Thursdays only! */ 21 do /* weekly .wpi build */ 22 asUploads.0 = 3; 23 asUploads.1 = 'ChangeLog'; 24 asUploads.2 = 'odin32bin-'DATE('S')'-release.wpi'; 25 asUploads.3 = 'odin32bin-'DATE('S')'-debug.wpi'; 26 end 27 else 28 do /* daily .zip build */ 29 asUploads.0 = 3; 30 asUploads.1 = 'ChangeLog'; 31 asUploads.2 = 'odin32bin-'DATE('S')'-release.zip'; 32 asUploads.3 = 'odin32bin-'DATE('S')'-debug.zip'; 33 end 34 35 asDelete.0 = 25; 36 do i = 1 to 12 37 j = i * 2; 38 asDelete.j = 'odin32bin-'DateSub(Date('S'), 31+i)'-release.zip'; 39 j = j + 1; 40 asDelete.j = 'odin32bin-'DateSub(Date('S'), 31+i)'-debug.zip'; 41 end 42 43 44 /* 45 * Execution loop. 46 */ 17 47 do i = 1 to 5 /* (Retries 5 times) */ 18 sFile = 'odin32bin-'|| DATE(S);19 sDelete = 'odin32bin-'|| DateSub(DATE('S'), 7);20 sFileDbg = sFile || '-debug.zip';21 sFileGlideDbg = sFile || '-glide-debug.zip';22 sFileDbgWPI = sFile || '-debug.wpi';23 sDeleteDbg = sDelete || '-debug.zip';24 sDeleteGlideDbg = sDelete || '-glide-debug.zip';25 sDeleteDbgWPI = sDelete || '-debug.wpi';26 sFileRel = sFile || '-release.zip';27 sFileGlideRel = sFile || '-glide-release.zip';28 sFileRelWPI = sFile || '-release.wpi';29 sDeleteRel = sDelete || '-release.zip';30 sDeleteGlideRel = sDelete || '-glide-release.zip';31 sDeleteRelWPI = sDelete || '-release.wpi';32 sChangeLog = 'ChangeLog';33 34 48 /* 35 * Cleanup the daily directory at source forge.49 * Put files to SourceForge. 36 50 */ 37 51 rc = cleanSF(); 52 do j = 1 to asUploads.0 53 rc = putSF(asUploads.j, 'SF-'||asUploads.j); 54 end 38 55 39 56 /* 40 * Put file to SourceForge. 41 */ 42 rc = putSF(sFileDbg, 'SF-debug'); 43 rc = putSF(sFileGlideDbg, 'SF-glide-debug'); 44 rc = putSF(sFileDbgWPI, 'SF-debug-wpi'); 45 rc = putSF(sFileRel, 'SF-release'); 46 rc = putSF(sFileGlideRel, 'SF-glide-release'); 47 rc = putSF(sFileRelWPI, 'SF-release-wpi'); 48 rc = putSF(sChangeLog, 'SF-ChangeLog'); 49 50 /* 51 * Forwards files from source forge to os2.ftp.org 57 * Forwards files from sourceforge(t) to os2.ftp.org 52 58 */ 53 59 if (sLoc = '' | sLoc = 'os2') then 54 60 do 55 rc = deletefunction( '/daily/'sDeleteDbg, '/daily/'sDeleteRel, 'os2-delete', 'www.os2.org'); 56 /* rc = deletefunction('/daily/'sDeleteGlideDbg, '/daily/'sDeleteGlideRel, 'os2-delete-glide', 'www.os2.org'); */ 57 rc = deletefunction( '/daily/'sDeleteDbgWPI, '/daily/'sDeleteRelWPI, 'os2-delete-wpi', 'www.os2.org'); 58 rc = forwardSF(sFileDbg, 'os2-debug', '/daily', 'www.os2.org'); 59 /* rc = forwardSF(sFileGlideDbg, 'os2-glide-debug', '/daily', 'www.os2.org'); */ 60 rc = forwardSF(sFileRel, 'os2-release', '/daily', 'www.os2.org'); 61 /* rc = forwardSF(sFileGlideRel, 'os2-glide-release', '/daily', 'www.os2.org'); */ 62 rc = forwardSF(sFileDbgWPI, 'os2-debug-wpi', '/daily', 'www.os2.org'); 63 rc = forwardSF(sFileRelWPI, 'os2-release-wpi', '/daily', 'www.os2.org'); 64 rc = forwardSF(sChangeLog, 'os2-ChangeLog', '/daily', 'www.os2.org'); 65 66 end 67 61 rc = cleanFtp('os2-delete', '/daily', 'www.os2.org'); 62 do j = 1 to asUploads.0 63 rc = forwardSF(asUploads.j, 'os2-'||asUploads.j, '/daily', 'www.os2.org'); 64 end 65 end 66 67 /* 68 * Upload files to netlabs. 69 */ 68 70 if (sLoc = '' | sLoc = 'netlabs') then 69 71 do 70 /* ( sDeleteFile1, sDeleteFile2, sLockFile, sSite); */ 71 rc = deletefunction( '/daily/'sDeleteDbg, '/daily/'sDeleteRel, 'netlabs-delete', 'ftp.netlabs.org'); 72 /* rc = deletefunction('/odinftp/daily/'sDeleteGlideDbg, '/daily/'sDeleteGlideRel,'netlabs-delete-glide', 'ftp.netlabs.org'); */ 73 rc = deletefunction( '/daily/'sDeleteDbgWPI, '/daily/'sDeleteRelWPI, 'netlabs-delete-wpi', 'ftp.netlabs.org'); 74 if 1 then 75 do 76 /* (sFile, sFileRemote, sLockFile, sSite); */ 77 rc = putfunction(sFileDbg, '/daily', 'netlabs-debug', 'ftp.netlabs.org'); 78 /* rc = putfunction(sFileGlideDbg, '/daily', 'netlabs-glide-debug', 'ftp.netlabs.org'); */ 79 rc = putfunction(sFileRel, '/daily', 'netlabs-release', 'ftp.netlabs.org'); 80 /* rc = putfunction(sFileGlideRel, '/daily','netlabs-glide-release', 'ftp.netlabs.org'); */ 81 rc = putfunction(sFileDbgWPI, '/daily', 'netlabs-debug-wpi', 'ftp.netlabs.org'); 82 rc = putfunction(sFileRelWPI, '/daily', 'netlabs-release-wpi', 'ftp.netlabs.org'); 83 rc = putfunction('ChangeLog', '/daily', 'netlabs-ChangeLog', 'ftp.netlabs.org'); 84 end 85 else 86 do 87 /* (sFile, sLockFile, sRemoteDir, sSite); */ 88 rc = forwardSF(sFileDbg, 'netlabs-debug', '/daily', 'ftp.netlabs.org'); 89 /* rc = forwardSF(sFileGlideDbg, 'netlabs-debug', '/daily', 'ftp.netlabs.org'); */ 90 rc = forwardSF(sFileRel, 'netlabs-release', '/daily', 'ftp.netlabs.org'); 91 /* rc = forwardSF(sFileGlideRel, 'netlabs-release', '/daily', 'ftp.netlabs.org'); */ 92 rc = forwardSF(sFileDbgWPI, 'netlabs-debug', '/daily', 'ftp.netlabs.org'); 93 rc = forwardSF(sFileRelWPI, 'netlabs-release', '/daily', 'ftp.netlabs.org'); 94 rc = forwardSF('ChangeLog', 'netlabs-ChangeLog', '/daily', 'ftp.netlabs.org'); 72 rc = cleanFtp('netlabs-delete', '/daily', 'ftp.netlabs.org'); 73 do j = 1 to asUploads.0 74 if (1) then 75 rc = putFtp(asUploads.j, 'netlabs-'||asUploads.j, '/daily', 'ftp.netlabs.org'); 76 else 77 rc = forwardSF(asUploads.j, 'netlabs-'||asUploads.j, '/daily', 'ftp.netlabs.org'); 95 78 end 96 79 end … … 182 165 * Puts a file to a ftp site using ncftpput from ncftp v3.0 beta. 183 166 */ 184 put function: procedure185 parse arg sFile, s RemoteDir, sLockFile, sSite167 putFtp: procedure 168 parse arg sFile, sLockFile, sRemoteDir, sSite 186 169 187 170 /* check for done-lock */ … … 198 181 end 199 182 parse var sPasswdString sUser':'sPasswd; 200 201 /* debug logging */202 if 0 then203 do204 say sFile205 say sRemoteDir;206 say sLockFile207 say sSite208 say sUser209 say sPasswd210 end211 183 212 184 /* do the put */ … … 226 198 asErrors.7 = 'Malformed URL.'; 227 199 if (rc < asErrors.0) then 228 say ' NCFTPPut failed with rc='rc'-' asErrors.rc;200 say 'ncftpput failed with rc='rc'-' asErrors.rc; 229 201 else 230 say ' NCFTPPut failed with rc='rc;202 say 'ncftpput failed with rc='rc; 231 203 end 232 204 end … … 238 210 239 211 /* 240 * Delete two files on a given ftp site. 241 */ 242 deletefunction: procedure 243 parse arg sDeleteFile1, sDeleteFile2, sLockFile, sSite 244 245 /* 246 * On fridays we don't perform any deletetions. 247 */ 248 if (DATE('B')//7 = 5) then 249 return 0; 250 251 if stream(sLockFile,'c','query exists') = '' then 252 do 253 say '--- deleting old files('sDeleteFile1','sDeleteFile2') at 'sSite' ---' 212 * Delete the files in asDelete on a given ftp site. 213 */ 214 cleanFtp: procedure expose asDelete.; 215 parse arg sLockFile, sRemoteDir, sSite 216 217 if (stream(sLockFile,'c','query exists') = '') then 218 do 219 say '--- deleting old files at 'sSite' ---' 254 220 255 221 /* get password */ … … 262 228 parse var sPasswdString sUser':'sPasswd; 263 229 264 /* debug logging */265 if 0 then266 do267 say sDeleteFile1268 say sDeleteFile2269 say sLockFile270 say sSite271 say sUser272 say sPasswd273 end274 275 230 /* start ftp'ing */ 276 231 rc = FtpSetUser(sSite, sUser, sPasswd); 277 if rc = 1 then 278 do 279 rc1 = FtpDelete(sDeleteFile1) 280 if (rc1 <> 0 & FTPERRNO = 'FTPCOMMAND') then /* happens when the file don't exists... too. */ 281 rc1 = 0; 282 if (rc1 <> 0) then 283 do 284 rc = rc1; 285 call failure rc, 'FtpDelete failed -' sSite , FTPERRNO; 232 if (rc = 1) then 233 do 234 cErrors = 0; 235 do i = 1 to asDelete.0 236 rc = FtpDelete(sRemoteDir||'/'||asDelete.i) 237 if (rc <> 0 & FTPERRNO = 'FTPCOMMAND') then /* happens when the file don't exists... too. */ 238 rc = 0; 239 if (rc <> 0) then 240 do 241 call failure rc, 'FtpDelete failed - 'sRemoteDir||'/'||asDelete.i' -' sSite , FTPERRNO; 242 cErrors = cErrors + 1; 243 end 286 244 end 287 245 288 rc2 = FtpDelete(sDeleteFile2) 289 if (rc2 <> 0 & FTPERRNO = 'FTPCOMMAND') then /* happens when the file don't exists... too. */ 290 rc2 = 0; 291 if (rc1 <> 0) then 292 do 293 rc = rc2; 294 call failure rc, 'FtpDelete failed -' sSite , FTPERRNO; 295 end 296 if (rc1 = 0 & rc2 = 0) then 297 do 246 if (cErrors = 0) then 298 247 'echo ok >' sLockFile; 299 rc = 0;300 end301 248 else 302 say 'delete failed with rc1='rc1 'and rc2='rc2;303 rc1 = FtpLogoff();249 say 'delete failed with 'cErrors' times.'; 250 call FtpLogoff; 304 251 end 305 252 else 306 253 do 307 254 call failure rc, 'Logon failed -' sSite, FTPERRNO; 308 if rc = 0then rc = -1;255 if (rc = 0) then rc = -1; 309 256 end 310 257 end -
trunk/tools/DailyBuild/odin32pack.cmd
r4937 r5372 1 /* $Id: odin32pack.cmd,v 1.1 3 2001-01-12 16:05:21bird Exp $1 /* $Id: odin32pack.cmd,v 1.14 2001-03-24 19:22:02 bird Exp $ 2 2 * 3 3 * Make the two zip files. … … 12 12 sStartDir = directory(); 13 13 14 if (DATE('B')//7 = 4) then /* weekly on Thursdays */ 15 sType = '-Weekly'; 16 else 17 sType = '-Daily'; 18 14 19 /* 15 20 * Make .WPI files. 16 21 */ 17 22 call ChDir 'tools\install'; 18 'call odin.cmd debug'23 'call odin.cmd 'sType' debug' 19 24 if (RC <> 0) then call failure rc, 'odin.cmd debug failed.'; 20 'call odin.cmd release'25 'call odin.cmd 'sType' release' 21 26 if (RC <> 0) then call failure rc, 'odin.cmd release failed.'; 22 27 'move *.wpi' sStartDir;
Note:
See TracChangeset
for help on using the changeset viewer.
