All pastes #763563 Raw Edit

Something

public text v1 · immutable
·published 2007-11-06 15:51 UTC
rendered paste body
alias create.userdb {
  var %user.db = $sqlite_open($qt($mircdirengine\users.rbd))
  if (%user.db) { 
    $tip(Init,Success,User Database created!) 
    sqlite_close %user.db 
  }
  else {
    $tip(Error,Error,Error opening database: %sqlite_errstr )
  }
}

alias destroy {
  if ($1 == Users) {
    if ( $exists($mircdirengine\users.rbd) == $false )  { echo -a The database is already gone or not created. | halt }
    else {
      .dll -u $mircdirengine\msqlite.dll 
      .remove $qt( $mircdirengine\users.rbd )
      echo -a Users Database Closed and Purged
    }
  }
  elseif ($1 == Titles) { echo -a Titles }
  else { echo -a You need to specify Users, Titles, or Records. | Halt }
}