Request via Requestlist

[studio33]

Heeren, zit met de volgende vraag

Via een website kunnen luisteraars verzoeken indienen. Deze komen worden niet direct gedraaid maar komen in de requestlist van SAM te staan.
Ik wil tussen 16:00 en 18:00 de verzoeken draaien die in de requestlist staan.

Hoe doe ik dat via het PAL script?

Ruud

---
http://www.thealbumstation.nl

[Wout]

Code: Selecteer alles

PAL.Loop := True;

 while (Now >= T['16:00:01']) and (Now <= T['17:59:58']) do
   begin

var Song : TSongInfo;

Song := Req.QueueTop;
if Song <> nil then
 begin
   writeln('Added request to queue:');
   writeln(Song['filename']);
   Song.Free; {Dispose of the song object}
 end;

PAL.WaitForPlayCount(1);

   end;
 

[Dwarrel]

Code: Selecteer alles

PAL.Loop := True;

 while (Now >= T['16:00:01']) and (Now <= T['17:59:58']) do
   begin

var Song : TSongInfo;

Song := Req.QueueTop;
if Song <> nil then
 begin
   writeln('Added request to queue:');
   writeln(Song['filename']);
   Song.Free; {Dispose of the song object}
 end;

PAL.WaitForPlayCount(1);

   end;
 

Werkt perfect, alleen wil ik een paar keer per dag de requestlist laten draaien. Moet ik dan daarvoor een nieuw palscipt maken voor ander tijden en kan ik dit script gebruiken en uitbreiden met andere tijden. En welk gedeelte van het script moet ik dan nemen....??

Dwarrel....

[Evertje]

Code: Selecteer alles

PAL.Loop := True;

 while (Now >= T['08:00:01']) and (Now <= T['08:59:58']) or
 (Now >= T['12:00:01']) and (Now <= T['12:59:58']) or
 (Now >= T['16:00:01']) and (Now <= T['17:59:58']) do
 begin
  var Song : TSongInfo;
  Song := Req.QueueTop;
  if Song <> nil then
   begin
    writeln('Added request to queue:');
    writeln(Song['filename']);
    Song.Free; {Dispose of the song object}
   end;
  PAL.WaitForPlayCount(1);
 end;
 

Ik ben géén PAL expert, sterker nog ben er bijna allergisch voor.. Máár vermoed dat dit wel zal moeten werken?!
Nu voegt SAM tussen 08:00 en 09:00, tussen 12:00 en 13:00 én tussen 16:00 en 18:00 na elk nummertje één request toe aan de top van je queuelist..

Wil je dat het om de b.v. 3 nummertjes gebeurd?!
PAL.WaitForPlayCount(3);

Wil je dat de requests onderaan de queue komen te staan?!
Req.QueueBottom;


Ik hoop dat je er iets aan hebt..

[Dwarrel]

Code: Selecteer alles

PAL.Loop := True;

 while (Now >= T['08:00:01']) and (Now <= T['08:59:58']) or
 (Now >= T['12:00:01']) and (Now <= T['12:59:58']) or
 (Now >= T['16:00:01']) and (Now <= T['17:59:58']) do
 begin
  var Song : TSongInfo;
  Song := Req.QueueTop;
  if Song <> nil then
   begin
    writeln('Added request to queue:');
    writeln(Song['filename']);
    Song.Free; {Dispose of the song object}
   end;
  PAL.WaitForPlayCount(1);
 end;
 

Ik ben géén PAL expert, sterker nog ben er bijna allergisch voor.. Máár vermoed dat dit wel zal moeten werken?!
Nu voegt SAM tussen 08:00 en 09:00, tussen 12:00 en 13:00 én tussen 16:00 en 18:00 na elk nummertje één request toe aan de top van je queuelist..

Wil je dat het om de b.v. 3 nummertjes gebeurd?!
PAL.WaitForPlayCount(3);

Wil je dat de requests onderaan de queue komen te staan?!
Req.QueueBottom;


Ik hoop dat je er iets aan hebt..

Yep, helemaal TOPPIE....

Dwarrel....

[Dwarrel]

Ik loop alleen nog steeds tegen het probleem aan dat een request 2 maal in de requestlist komt te staan. OP de webstie laat ik het IP nummer van de aanvrager achter de request zetten en onder die request komt gelijk dezelfde aanvraag met een ander IP adres altijd beginnend met 38.X.X.X.

Dit probleem doet zich alleen voor als ik de requesten in de lijst laat staan, laat ik ze direct afspelen dan heb ik nergens last van. Ik heb al een .htaccess aangemaakt om de range van de IP te blokken maar zonder succes.

Wie weet hier een oplossing voor. Ik kan namelijk ook de request met het 38 IPnummer niet deleten, want dan haalt hij ook de originele aanvraag gelijk weg....

Zou graag dit probleem snel opgelost zien want mijn planning loopt op deze manier een beetje in de (tomaten)soep.

Dwarrel...