Changeset 6668 for trunk/tools/DailyBuild

Timestamp:

Sep 6, 2001, 5:22:47 AM (24 years ago)

Author:

bird

Message:

Upload database to netlabs.

File:

• trunk/tools/DailyBuild/odin32db.cmd (modified) (5 diffs)

trunk/tools/DailyBuild/odin32db.cmd

@@ -1 @@
-/* $Id: odin32db.cmd,v 1.3 2001-06-27 08:55:14 bird Exp $
+/* $Id: odin32db.cmd,v 1.4 2001-09-06 03:22:47 bird Exp $
  *
  * Updates the Odin32 API database.
@@ -17 +17 @@
     parse source sd1 sd2 sScript
     sScriptDir = filespec('drive', sScript) || filespec('path', sScript);
-
     'cd tools\database';
     if rc <> 0 then call failure rc, 'cd db failed';
@@ -40 +39 @@
     'd:';
     'cd ..';
+
+    /* dump database and install the dump at netlabs */
+    'mkdir db'
+    'mysqldump --no-create-db --add-drop-table --allow-keywords -Tdb odin32'
+    if (rc <> 0) then call failure rc, 'mysqldump failed';
+    '@rm -f odin32db.dump'
+    'mysqldump --no-create-db --add-drop-table --allow-keywords -e odin32 > odin32db.dump'
+    if (rc <> 0) then call failure rc, 'mysqldump (2) failed';
+    'zip -9 odin32db.zip odin32db.dump'
+    if (rc <> 0) then call failure rc, 'createing odin32db.zip failed';
+    rc = SysFileTree('db\*', 'asFiles', 'O');
+    if (rc <> 0) then call failure rc, 'listing db\* failed';
+    do i = 1 to asFiles.0
+        rc = putRexxFtp(asFiles.i, '/dev/12345678', '/daily/db', 'ftp.netlabs.org');
+        if (rc <> 0) then call failure rc, 'uploading of 'asFiles.i' failed';
+    end
+    rc = putRexxFtp('odin32db.zip', '/dev/12345678', '/daily/db', 'ftp.netlabs.org');
+    if (rc <> 0) then call failure rc, 'uploading of 'asFiles.i' failed';
+
+    sPwdDummy = GetPassword('odin32dbupdate');
+    parse var sPwdDummy sPasswd':'sDummy
+    'wget -O /dev/con http://www.netlabs.org/odin/odin32dbtest/Odin32DBUpdate.phtml?sPasswd='||sPasswd
+    if (rc <> 0) then call failure rc, 'wget failed';
+
+
     exit(0);
 
@@ -46 +70 @@
     say 'rc='rc sText
     exit(rc);
+
+failure2: procedure
+parse arg rc, sText;
+    say 'rc='rc sText
+    return 0;
 
 
@@ -79 +108 @@
     return sDataDir;
 
+/*
+ *
+ *  From odin32ftp2.cmd
+ *  From odin32ftp2.cmd
+ *  From odin32ftp2.cmd
+ *  From odin32ftp2.cmd
+ *  From odin32ftp2.cmd
+ *  From odin32ftp2.cmd
+ *
+ */
+
+
+/*
+ * Reads the password file (passwd) in the script directory to
+ *   get a password and userid for a given site.
+ *
+ * Format of the passwd file is:
+ *  <site> <user> <password>
+ * Lines starting with '#' is ignored.
+ *
+ * @param   sSite   name of the site.
+ * @returns String on the form '<userid>:<passwd>' if found.
+ *          Empty string if not found.
+ */
+GetPassword: procedure;
+    parse upper arg sSiteToFind
+    parse source sd1 sd2 sScript
+    sPasswd = filespec('drive', sScript) || filespec('path', sScript)||'\passwd';
+
+    rc = stream(sPasswd, 'c', 'open read');
+    if (pos('READY', rc) <> 1) then
+    do
+        say 'failed to open ftp password file - rc='rc;
+        return '';
+    end
+
+    sRet = '';
+    do while (lines(sPasswd) > 0)
+        sLine = strip(linein(sPasswd));
+        if (sLine = '' | substr(sLine, 1, 1) = '#') then
+            iterate;
+
+        parse var sLine sSite' 'sUser' 'sPassword' 'sDummy
+        sSite = translate(strip(sSite));
+        sUser = strip(sUser);
+        sPassword = strip(sPassword);
+        if (sSite = '' | sPassword = '' | sUser = '') then
+            say 'warning! misformed password line!';
+        if (sSite = sSiteToFind) then
+        do
+           sRet = sUser||':'||sPassword;
+           leave
+        end
+    end
+    call stream sPasswd, 'c', 'close';
+    return sRet;
+
+
+/*
+ * REXX FTP put function.
+ */
+putRexxFtp: procedure
+    parse arg sFile, sLockFile, sRemoteDir, sSite
+
+    /* check for done-lock */
+    if stream(sLockFile,'c','query exists') = '' then
+    do
+        say '--- put' sFile '->' sRemoteDir'/'sFile '---';
+
+        /* get password */
+        sPasswdString = GetPassword(sSite);
+        if (sPasswdString = '') then
+        do
+            call failure rc, 'Can''t find userid/password for' sSite'.', -1;
+            return -1;
+        end
+        parse var sPasswdString sUser':'sPasswd;
+
+        /* log on the ftp site */
+        rc = FtpSetUser(sSite, sUser, sPasswd);
+        if (rc = 1) then
+        do
+            /* put file, delete it if we fail */
+            say sSite  sUser  sPasswd  sFile  sRemoteDir'/'filespec('name', sFile)  'Binary'
+            rcPut = FtpPut(sFile, sRemoteDir'/'filespec('name',sFile), 'Binary');
+            /*
+            if (rcPut <> 0) then
+                rc = FtpDelete(sRemoteDir'/'filespec('name', sFile));
+            */
+
+            /* Logoff and make lock file. */
+            rc = FtpLogoff();
+            if (rcPut = 0) then
+                'echo ok  ' || sLockFile; /* changed - no lockfile */
+            else
+                call failure2 rc, 'FtpPut failed -' sSite , FTPERRNO;
+            rc = rcPut;
+        end
+        else
+        do
+            call failure2 rc, 'Logon failed -' sSite, FTPERRNO;
+            if rc = 0 then rc = -1;
+        end
+    end
+    else
+        rc = 0;
+    return 0;
+
+