Untitled

/*
** Database Management Module
**
** Command List: /wipe /update /backup /view
**               /newdb /newtitledb /newrecdb /newusrdb
*/
alias unload.all {
  ; Unload mSQL so we can remove databases
  dll -u msqlite.dll

  ; Check if database exists or not, if it does, abort, if it doesn't, remove it.
  if ($exists($qt($mircdirdata\main.db))) { 
    remove $qt($mircdirdata\main.db)
  }
  else {
    echo -a Database Already Deleted, Aborting...
    halt
  }
  ; We are done!
  echo -a Databases Unloaded
}

alias wipe {}
alias backup {}
alias newusrdb {}
alias newrecdb {}
alias newtitledb {}

alias newdb {
  if ($exists($qt($mircdirdata\main.db))) {
    echo -a Failure! - Main Database Exists Already
    halt
  }
  elseif {
    set %db.main $sqlite_open($qt($mircdir\data\main.db))
    echo -a Success! - Main Database Created
  }
  else {
    echo -a Failure! - Error Opening Database -- %sqlite_errstr - %sqlite_errnum
    halt
  }
}

alias view {}

on *:START: { 
  if ($exists($qt($mircdirdata\main.db))) {
    echo -a Success! - Main Database Loaded
    splay stop
    splay $qt($mircdirmedia\engine\core\maindbloaded.wav)
  }
  else {
    echo -a Failure! - Main Database Missing..Creating
    splay stop | splay $qt($mircdirmedia\engine\core\dbmissing.wav) | newdb
  }
}