home *** CD-ROM | disk | FTP | other *** search
/ MetaWorlds Beta 17 / MSQMW17.ZIP / DATA.Z / DBGEN_P.SQL < prev    next >
Encoding:
Text File  |  1996-12-23  |  9.1 KB  |  271 lines
  1. /******************************************************************************/
  2. -- These are the required MetaWorlds Stored Procedures.
  3.  
  4. /******************************************************************************/
  5. -- At the moment this assumes that the id being passed are valid. Exceptions 
  6. -- will be thrown otherwize.
  7. CREATE PROCEDURE UserOn_InsertWithId(
  8.         IN _machineId integer,
  9.         IN _serverId integer,
  10.         IN _userId integer,
  11.         IN _timeOut integer
  12. )
  13. BEGIN
  14.     DECLARE _userOnId               integer;
  15.  
  16.     -- Get the id of row we will be inserting into if not Unique
  17.     SET _userOnId = (SELECT UserOn.id FROM UserOn WHERE
  18.                 machineId       = _machineId    AND
  19.                 serverId                = _serverId             AND
  20.                 UserId          = _userId);
  21.  
  22.     -- We should be using Update, but I couldn't get it to work.
  23.     IF _userOnId is NOT NULL THEN
  24.         UPDATE UserOn 
  25.             SET TimeOut = _timeOut,
  26.                 ActionTime = NOW()
  27.             WHERE id = _userOnId;
  28.     ELSE
  29.         -- Create new UserLog entry     
  30.         INSERT INTO UserOn (userId, machineId, serverId, timeOut, actionTime)
  31.             VALUES (_userId, _machineId, _serverId, _timeOut, NOW());
  32.     END IF;
  33. END;
  34.  
  35. /******************************************************************************/
  36. -- This function will insert into userOn if it is passed valid data.
  37. -- RETURNS: 0 if it succeeds.
  38. -- Preconditions: Machine and Server Tables are setup.
  39.  
  40. CREATE FUNCTION UserOn_Insert(
  41.         IN _machineName char(72),
  42.         IN _serverName char(72),
  43.         IN _alias char(72),
  44.         IN _timeOut integer
  45. ) RETURNS INTEGER
  46. BEGIN
  47.     DECLARE _userId                 integer;
  48.     DECLARE _machineId      integer;
  49.     DECLARE _serverId               integer;
  50.  
  51.     DECLARE _userOnId       integer;
  52.     DECLARE _userLogId      integer;
  53.  
  54.     SET _userId     = (SELECT id from Users WHERE alias                             = _alias);
  55.     SET _machineId = (SELECT id from Machines WHERE MachineName     = _machineName);
  56.     SET _serverId   = (SELECT id from Servers WHERE name                    = _serverName);
  57.  
  58.     -- Error Checking
  59.     IF _userId is NULL THEN
  60.         MESSAGE _alias , ' is not in the database';
  61.         RETURN (1);
  62.     END IF;
  63.     IF _machineId is NULL THEN
  64.         MESSAGE _machineName , ' is not in the database';
  65.         RETURN (1);
  66.     END IF;
  67.     IF _serverId is NULL THEN
  68.         MESSAGE _serverName , ' is not in the database';
  69.         RETURN (1);
  70.     END IF;
  71.  
  72.     call UserOn_InsertWithId(_machineId, _serverId, _userId, _timeOut);
  73.  
  74.     RETURN (0);             -- This could be set to return the above call.
  75. END;
  76.  
  77. /******************************************************************************/
  78. CREATE PROCEDURE UserOn_DeleteWithId (IN _userId INTEGER)
  79. BEGIN
  80.     DELETE FROM UserOn WHERE UserId = _userId;
  81. END;
  82.  
  83. /******************************************************************************/
  84. CREATE FUNCTION UserOn_Delete (IN _alias CHAR(72)) RETURNS INTEGER
  85. BEGIN
  86.     DECLARE _userId INTEGER;
  87.  
  88.     SET _userId = (SELECT id FROM Users WHERE alias = _alias);
  89.     IF _userId is NULL THEN
  90.         RETURN 0;
  91.     ELSE
  92.         CALL UserOn_DeleteWithId(_userId);
  93.         RETURN 1;
  94.     END IF;
  95. END;
  96.  
  97. /******************************************************************************/
  98. CREATE PROCEDURE User_Insert (
  99.             IN _id  integer,
  100.             IN _alias char(30),
  101.             IN _fName char(40),
  102.             IN _lName char(40)
  103. )
  104. BEGIN
  105.     INSERT INTO Users
  106.         (ID, alias, fName, lName)
  107.     VALUES
  108.         (_ID, _alias, _fName, _lName);
  109. END;
  110.  
  111. /******************************************************************************/
  112. CREATE PROCEDURE WhoIsOnline()
  113. RESULT (Alias char(30), FirstName char(72), LastName char(72), Server char(72))
  114. BEGIN
  115.     SELECT alias, fName, lName, name 
  116.         FROM Users, Servers, UserOn 
  117.         WHERE UserOn.UserId = Users.Id AND
  118.                 UserOn.ServerId = Servers.Id
  119.         ORDER BY alias  
  120. END;
  121.  
  122. /******************************************************************************/
  123. CREATE PROCEDURE UserOn_CleanUp(
  124.     IN _machineName char(72),
  125.     IN _serverName  char(72)
  126. ) 
  127. BEGIN
  128.     DECLARE _machineId      integer;
  129.     DECLARE _serverId               integer;
  130.  
  131.     SET _machineId = (SELECT id from Machines WHERE machineName = _machineName);
  132.     SET _serverId   = (SELECT id from Servers WHERE name                    = _serverName);
  133.  
  134.     DELETE FROM UserOn WHERE
  135.         UserOn.machineId        = _machineId AND
  136.         UserOn.serverId         = _serverId;
  137. END;    
  138.  
  139. /******************************************************************************/
  140. // This procedure initalizes Machines and Servers table.
  141. // It also delete users from UserOn.
  142. CREATE PROCEDURE UserOn_Initialize(
  143.         IN _machineName char(72),
  144.         IN _serverName char(72),
  145.         IN _license INTEGER DEFAULT 0,
  146.         IN _defaultTimeOut INTEGER DEFAULT 0
  147. ) 
  148. BEGIN
  149.     DECLARE _machineId      integer;
  150.     DECLARE _serverId               integer;
  151.  
  152.     SET _machineId = (SELECT id from Machines WHERE MachineName     = _machineName);
  153.     SET _serverId   = (SELECT id from Servers WHERE name                    = _serverName);
  154.  
  155.     IF _machineID is NULL THEN
  156.         INSERT INTO Machines (MachineName, License)
  157.         VALUES (_machineName, _license);
  158.         SET _machineId = @@identity
  159.     END IF;
  160.  
  161.     IF _serverId IS NULL THEN
  162.         INSERT INTO Servers (name, machineId, defaultTimeOut)
  163.         VALUES (_serverName, _machineID, _defaultTimeOut);
  164.         SET _serverId = @@identity;
  165.     ELSE
  166.         UPDATE Servers
  167.             SET machineId           = _machineId,
  168.                 defaultTimeOut = _defaultTimeOut
  169.             WHERE id = _serverId
  170.     END IF;
  171.  
  172.     DELETE FROM UserOn WHERE
  173.         machineId = _machineId AND serverId = _serverId;
  174.  
  175. END;            
  176.  
  177.  
  178. /******************************************************************************/
  179. -- This function will remove users from useron after the timeOut has expired 
  180. -- RETURNS: The number of users deleted.
  181. -- Preconditions: 
  182. CREATE FUNCTION UserOn_TimedCleanUp()
  183. RETURNS INTEGER
  184. BEGIN
  185.     DELETE FROM UserOn WHERE
  186.         timeOut > 0 AND
  187.         Now() > timeOut * 0.00069444444 + actionTime    ;               // 1 = 1 day
  188.  
  189.     COMMIT work;
  190.     RETURN @@rowCount;
  191. END;
  192.  
  193. /******************************************************************************/
  194. -- This procedure returns the Id of a validated user.
  195. -- Currently it also does the timedCleanUp (ie. remove users from UserOn whos time has expired
  196. CREATE PROCEDURE ValidateUser (
  197.         IN _alias char(72),
  198.         IN _pwd char(72)
  199. )
  200. RESULT (UserId INTEGER)
  201. BEGIN
  202.     CALL UserOn_TimedCleanUp();     
  203.     SELECT id FROM Users WHERE 
  204.         _alias = alias AND
  205.         _pwd = passwd;
  206. END;
  207.  
  208. /******************************************************************************/
  209. create function "dba".ImportPCBUsers(in sAlias char(26),in sFirst char(26),
  210.      in sLast char(26),in sStreet1 char(81),in sStreet2 char(81),in sCity char(41),
  211.      in sState char(21),in sZip char(21),in sCountry char(41),in sPassword char(21),
  212.      in sVoicePhone char(21),in sDataPhone char(21),in sEmailAddr char(81),
  213.      in sCompany char(61),in sPCBUser char(26),in vAcctID integer,in vProfID integer)
  214. returns integer
  215. begin
  216.   declare vNewID integer;
  217.   if(select id from users where fname=sFirst and lname=sLast and pcbuser=sPCBUser) is null then
  218.     set vNewID=(select max(id) from users)+1;
  219.     insert into users values(
  220.       vNewID,sAlias,sFirst,sLast,sStreet1,sStreet2,sCity,sState,sZip,sCountry,sPassword,vAcctID,sVoicePhone,sDataPhone,sEmailAddr,sCompany,sPCBUser,'');
  221.     insert into user_profile values(vNewID,vProfID)
  222.   else
  223.     set vNewID=-1
  224.   end if
  225.   ;
  226.   return(vNewID)
  227. end;
  228.  
  229. /******************************************************************************/
  230. create function "dba".ImportConferences(in sConfName char(81),in vConfNum char(21),in vConfID char(21),in vDirNum char(21),in sDirDesc char(81),in vWhichOpt integer)
  231. returns integer
  232. begin
  233.   declare ReturnValue integer;
  234.   declare vNewConfID integer;
  235.   declare vNewMsgID integer;
  236.   declare vNewFileID integer;
  237.   declare tStr char(81);
  238.   if vWhichOpt=0 then // Adding a new area & message base or just message base
  239.     set vNewConfID=(select id from subsysin where descript=sConfName and typeid=0);
  240.     if vNewConfID is null then
  241.       insert into subsysin(TypeID,Instparam,Descript) values(0,'area_nb.sht',sConfName);
  242.       set vNewConfID=@@identity;
  243.       insert into area_sub values(0,vNewConfID);
  244.       insert into areas values(vNewConfID)
  245.     end if
  246.     ;
  247.     set vNewMsgID=(select max(ID) from subsysin)+1;
  248.     set tStr=cast(vNewMsgID as char(5))+'&conf='+vConfNum;
  249.     insert into subsysin(id,typeid,instparam,descript) values(vNewMsgID,5,tStr,'Messages');
  250.     insert into area_sub values(vNewConfID,vNewMsgID);
  251.     insert into areas values(vNewMsgID);
  252.     set ReturnValue=vNewConfID
  253.   else // Adding a new file directory
  254.     set tStr='conf='+vConfNum;
  255.     set vNewFileID=(select id from subsysin where descript=sDirDesc and typeid=6 and(locate(subsysin.instparam,tStr)>0));
  256.     if vNewFileID is null then
  257.       insert into subsysin(typeid,descript) values(6,sDirDesc);
  258.       set vNewFileID=@@identity;
  259.       set tStr=cast(vNewFileID as char(5))+'&DOCUMENT=pcbfile.sht&conf='+vConfNum+'&dir='+vDirNum;
  260.       update subsysin set instparam=tStr where id=vNewFileID;
  261.       insert into area_sub values(vConfID,vNewFileID);
  262.       insert into areas values(vNewFileID)
  263.     end if
  264.     ;
  265.     set ReturnValue=vNewFileID
  266.   end if
  267.   ;
  268.   return(ReturnValue)
  269. end
  270.  
  271.