#
#  Table structure for users table
#
DROP TABLE IF EXISTS users;

CREATE TABLE users (
 username varchar(30) primary key,
 password varchar(32),
 userid varchar(32),
 userlevel tinyint(1) unsigned not null,
 email varchar(50),
 timestamp int(11) unsigned not null
);


#
#  Table structure for active users table
#
DROP TABLE IF EXISTS active_users;

CREATE TABLE active_users (
 username varchar(30) primary key,
 timestamp int(11) unsigned not null
);


#
#  Table structure for active guests table
#
DROP TABLE IF EXISTS active_guests;

CREATE TABLE active_guests (
 ip varchar(15) primary key,
 timestamp int(11) unsigned not null
);


#
#  Table structure for banned users table
#
DROP TABLE IF EXISTS banned_users;

CREATE TABLE banned_users (
 username varchar(30) primary key,
 timestamp int(11) unsigned not null
);

// Requests on Stream.pal
// 2008-11-12 v1.0 Moonbase
// based on Xgeek's "Inject Request Dedication.pal" v0.05, 2004-11-12
PAL.LockExecution;
PAL.Loop := True;

// Instantiate a Song Info object
var Song: TSongInfo = TSongInfo.Create;
var dedicationText: String = '';

// Check if current song is a request
if ((ActivePlayer.GetSongInfo['requestID']) > 0) then
begin
  var reqInfo: TDataSet = Query('SELECT name, msg FROM requestlist WHERE id = ' + ActivePlayer.GetSongInfo['requestID'], [], true);
  var requestBy: String = reqInfo['name'];
  var dedicationMsg : String = reqInfo['msg'];
  reqInfo.Free;
  var i: Integer;
  var c: String;
  var addStr, newTitle: String;

  // clean up unwanted characters (i.e., line feeds, control characters; leave only ISO-8859-1)
  for i := 1 to Length(dedicationMsg) do
  begin
    c := CharAt(dedicationMsg, i);
    if (((CompareStr(c, ' ') >= 0) and (CompareStr(c, '~') <= 0)) or ((CompareStr(c, ' ') >= 0) and (CompareStr(c, 'ÿ') <= 0))) then
      dedicationText := dedicationText + c;
  end;

  // build addistional info string
  addStr := ' [Request';
  if (requestBy > '') then
  begin
    // we have requester's name
    addStr := addStr + ' von ' + requestBy;
    if (dedicationText > '') then
      // we also have a dedication
      addStr := addStr + ': "' + dedicationText + '"';
    addStr := addStr + ']';
  end
  else
    // requester didn't give his name, we won't show anonymous dedications
    addStr := addStr + ']';
 
  writeln(addStr);
  Song['artist'] := ActivePlayer.GetSongInfo['artist'];
  newTitle := ActivePlayer.GetSongInfo['title'] + addStr;
  // force maximum length of 150 characters
  // (shoutCAST server shows password since v1.9.2 if > 150 characters!)
  if (Length(Song['artist'] + ' - ' + newTitle) > 150) then
    newTitle := Copy(ActivePlayer.GetSongInfo['title'] + addStr, 1, 146 - Length(Song['artist'])) + '...]';
  Song['title'] := newTitle;
  Encoders.SongChange(Song);
  writeln(Song['artist'] + ' - ' + Song['title']);
end;
 
PAL.UnlockExecution;
// Release data structures
Song.Free;
// Wait for next song to come up
PAL.WaitForPlayCount(1);

or ((CompareStr(c, ' ') >= 0)

// Requests on Stream.pal
// 2008-11-12 v1.1 Moonbase
// Originally based on Xgeek's "Inject Request Dedication.pal" v0.05, 2004-11-12
PAL.LockExecution;
PAL.Loop := True;

// Instantiate Song Info objects
var curSong: TSongInfo;
var updSong: TSongInfo;
var dedicationText: String = '';

curSong := TSongInfo.Create;
updSong := TSongInfo.Create;

// Save info about current song  ActivePlayer might change while we work!
curSong := nil;
if (ActivePlayer <> nil) then
  curSong := ActivePlayer.GetSongInfo;

if (curSong <> nil) then
begin
  // Something is playing, see if it is a request
  if (curSong['requestID'] > 0) then
  begin
    // we have a request, get requester's name and dedication text (if given)
    var reqInfo: TDataSet = Query('SELECT name, msg FROM requestlist WHERE id = ' + curSong['requestID'], [], true); // r/o query
    var requestBy: String = reqInfo['name'];
    var dedicationMsg: String = reqInfo['msg'];
    reqInfo.Free;
    writeln(requestBy);
    writeln(dedicationMsg);
    var i: Integer;
    var c: String;
    var addStr, newTitle: String;

    // clean up unwanted characters (i.e., line feeds, control characters; leave only ISO-8859-1)
    i := 1;
    while (i <= Length(dedicationMsg)) do
    begin
      c := CharAt(dedicationMsg, i);
      if (((CompareStr(c, ' ') >= 0) and (CompareStr(c, '~') <= 0)) or ((CompareStr(c, ' ') >= 0) and (CompareStr(c, 'ÿ') <= 0))) then
        dedicationText := dedicationText + c;
      i := i + 1;
    end;

    // build additional request info string
    addStr := ' [Hörerwunsch'; // ' [Request'
    if (requestBy > '') then
    begin
      // we have requester's name
      addStr := addStr + ' von ' + requestBy; // ' by '
      if (dedicationText > '') then
        // we also have a dedication
        addStr := addStr + ': "' + dedicationText + '"';
      addStr := addStr + ']';
    end
    else
      // requester didn't give his name, we won't show anonymous dedications
      addStr := addStr + ']';
   
    writeln(addStr); // debug
    updSong['artist'] := curSong['artist'];
    newTitle := curSong['title'] + addStr;
    // force maximum length of 150 characters
    // (shoutCAST server bug: shows password since v1.9.2 if > 150 characters!)
    if (Length(updSong['artist'] + ' - ' + newTitle) > 150) then
      newTitle := Copy(ActivePlayer.GetSongInfo['title'] + addStr, 1, 146 - Length(updSong['artist'])) + '...]';
    updSong['title'] := newTitle;
    Encoders.SongChange(updSong);
    writeln(updSong['artist'] + ' - ' + updSong['title']);
  end;
  PAL.UnlockExecution;
  PAL.WaitForPlayCount(1); // wait until current finished
end
else
begin
  // Nothing is playing, wait a while and see again
  PAL.UnlockExecution;
  PAL.WaitForTime('+00:00:15');
end;
 
// Release data structures
curSong.Free;
updSong.Free;