Request uitschakelen via PAL Script

[Gerrie K]

Vraagje van de audio freak......


Zoals jullie of de meeste leden wel weten draait RV op zondagmiddag live met een LEGE mp3 file....
Die file wordt door Sam gestart aan het begin van de Live uren....

Nu komt het....Deze file heeft Standaard als Type "s" (normal Song)
Is het mogelijk om via een PAL script de Request op niet beschkbaar te zetten als deze File "speelt"(dus van zoiets "sorry tijdens dit uur is er geen request mogelijk") of zoiets in het request Scherm.
De "s" is wel van belang omdat hij die file wel in de Current Playing laat zien.....Met een van de andere type's kreeg ik geen now playing in de request site.

Graag jullie meedenken........Alvast bedankt daarvoor.

update: ook het nieuwsblok valt hieronder......Ook hierbij moeten geen requests mogelijk zijn....

[drOhimself]

Zou je niet beter dan iets kunnen verzinnen op het TIJDSTIP dat je de LIVE uitzending doet ?
Dus onafhankelijk van wat voor type het is.

En dan nog ergens

Code: Selecteer alles

RequestPolicy.Enabled := False; 

tussen zetten.

[Gerrie K]

Dit regeltje zal te makkelijk wezen.......maar ik zal het in het weekscript plaatsen.....zal toch mijn PAL kennis nog naar een hoger niveau moeten brengen..... [smilie=gamer2.gif]
Het kan natuurlijk ook nog (mocht er toch aanvragen zijn )dat hij via PAL de requestpolicy op list zet ipv Quene top of bottom....

maar dat is maar brainstormen.....

Thanks Dr.O.


update: Request error pagina zal ik vertalen naar het nederlands met de melding: "sorry,op dit moment zijn er geen verzoekjes mogelijk en/of er is geen verbinding naar de studio van ..........,excuses voor het ongemak."

[Wout]

Is het niet makkelijker op je website, de link te laten verdwijnen bij je live-show?

[Gerrie K]

Wout,ik sta voor elke mogelijk open,maar dan moet je mij toch effe op gang helpen.....

[Wout]

Regel 72 van ./display/display.header.php
vervang je de regel

Code: Selecteer alles

<a href="playlist.php" title="Playlist & Requests"><img src="images/menu/tb-file-list.png" /> Playlist<?php if (ALLOW_REQUESTS) : ?> & Requests<?php endif; ?></a>

naar onderstaand

Code: Selecteer alles

<?php if (strftime('%w') == '0' && strftime('%H') >= 13 && strftime('%H') < 16) 
{
    echo '<a href="#" title="geen verzoek mogelijk"><img src="images/menu/tb-file-list.png">geen verzoek mogelijk</a>' ;
}
else 
{
    echo '<a href="playlist.php" title="Playlist & Requests"><img src="images/menu/tb-file-list.png" /> Playlist<?php if (ALLOW_REQUESTS) : ?> & Requests<?php endif; ?></a>' ;        
} ?>

edit: vergeten de <?php & ?> tussen te zetten.

[Eagle 1974]

Ik heb volgende PAL lopen die op bepaalde tijden (dj-tijden) de requests uitzet,
en kijkt of je zelf encode of niet aan de hand van ip

Code: Selecteer alles

var   Flag : Integer;
var   InfoPagina, IPadres, IPadresOud, IPvanmij : String;
var   I1, I2 : Integer;

const shoutcast_password = 'xxxxxxxxxx';//<<--------<<--------<<--------<<--------wachtwoord invullen
const shoutcast_host = 'xxx.xxx.xxx.xxx';//<<--------<<--------<<--------<<--------ip invullen
const shoutcast_port = 'xxxx';//<<--------<<--------<<--------<<--------<<--------port invullen

var   URL : String;
var   request, slotnummer, requestoud : Integer;

URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi';
request := 0; // ik draai er mogen requests
Flag := 0;

WHILE (Flag=0) DO
BEGIN
  PAL.WaitForTime('+00:01:00');
  //PAL.LockExecution;

  requestoud := request;
  slotnummer := 0; // we hebben nog geen dj slot
  IF (Encoders[0].Status='Encoding') THEN
    request := 0;
  IF (Encoders[0].Status<>'Encoding') THEN
  BEGIN
    request := 1; // ik draai niet, dus ik wil geen requests
  END;

  // vanaf hier volgt DJ slot1
  IF (DayOfWeek(NOW)=monday) THEN
  BEGIN
    IF (NOW >= T['19:30:00']) AND (NOW <= T['22:45:00']) THEN
    BEGIN
      request := 2;
      slotnummer := 1;
    END; // IF now
  END; // IF monday
  // hier eindigt DJ slot1

  // vanaf hier volgt DJ slot2
  IF (DayOfWeek(NOW)=tuesday) THEN
  BEGIN
    IF (NOW >= T['19:30:00']) AND (NOW <= T['22:45:00']) THEN
    BEGIN
      request := 2;
      slotnummer := 2;
    END; // IF now
  END; // IF tuesday
// hier eindigt DJ slot2

// vanaf hier volgt DJ slot3
  IF (DayOfWeek(NOW)=wednesday) THEN
  BEGIN
    IF (NOW >= T['19:30:00']) AND (NOW <= T['22:45:00']) THEN
    BEGIN
      request := 2; // nu requesten we (toch) niet
      slotnummer := 3;
    END; // IF now
  END; // IF wednesday
  // hier eindigt DJ slot3

  // vanaf hier volgt DJ slot4
  IF (DayOfWeek(NOW)=thursday) THEN
  BEGIN
    IF (NOW >= T['19:30:00']) AND (NOW <= T['22:45:00']) THEN
    BEGIN
      request := 2; // nu requesten we (toch) niet
      slotnummer := 4;
    END; // IF now
  END; // IF thursday
  // hier eindigt DJ slot4

  // vanaf hier volgt DJ slot5
  IF (DayOfWeek(NOW)=friday) THEN
  BEGIN
    IF (NOW >= T['18:30:00']) AND (NOW <= T['22:45:00']) THEN
    BEGIN
      request := 2;
      slotnummer := 5;
    END; // IF now
  END; // IF friday
  // hier eindigt DJ slot5

  // vanaf hier volgt DJ slot6
  IF (DayOfWeek(NOW)=saturday) THEN
  BEGIN
    IF (NOW >= T['19:30:00']) AND (NOW <= T['23:59:59']) THEN
    BEGIN
      request := 2;
      slotnummer := 6;
    END; // IF now
  END; // IF saturday
  // hier eindigt DJ slot6

  // vanaf hier volgt DJ slot7
  IF (DayOfWeek(NOW)=sunday) THEN
  BEGIN
    IF (NOW >= T['18:30:00']) AND (NOW <= T['22:00:00']) THEN
    BEGIN
      request := 2;
      slotnummer := 7;
    END; // IF now
  END; // IF sunday
  // hier eindigt DJ slot7

  URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi';

  IPvanmij := ('xxx.xxx.xxx.xxx');//<<--------<<--------<<--------<<--------eigen ip invullen
  IPadresOud := IPadres;
  InfoPagina := webToStr(URL);
  WebToFile('c:\IPquery.txt', URL);
  InfoPagina := FileToStr('c:\IPquery.txt');
  I1 := Pos('Incoming interface', InfoPagina);
  I2 := Pos('Outgoing interface', InfoPagina);
  IPadres := Copy(InfoPagina, I1+23, I2-I1-35);

  IF (request <> requestoud) THEN
    WriteLn('request := '+IntToStr(request));

  IF (request = 2) THEN
    RequestPolicy.Enabled := False;
 
  IF (request = 1) THEN
    RequestPolicy.Enabled := False;

  IF (request = 0) THEN
    RequestPolicy.Enabled := True;

  IF (request <> requestoud) THEN
    IF (RequestPolicy.Enabled) THEN
      WriteLn('Requests aan')
    ELSE
      WriteLn('Request uit');

  IF (IPadres <> IPadresOud) AND (IPadres <> IPvanmij) THEN
  BEGIN
    Encoders[0].Stop;
    PAL.WaitForTime('+00:00:10');
    Encoders[0].Start;
  END;

  IF (IPadres <> IPadresOud)  THEN
  BEGIN
    WriteLn(IPadres + ' ('+IPadresOud+')'+DateTimeToStr(NOW));
  END;
  //PAL.UnLockExecution;
END;

dus ff tijden aanpassen wanneer der een dj/live is,
en ff nog paar dingen invullen bij de regels met <<--------<<--------<<--------<<--------<<--------
hopelijk heb je er wat aan.

[Gerrie K]

Thank Eagle,
Maar ik ben de enigste DJ.......

[Gerrie K]

Regel 72 van ./display/display.header.php
vervang je de regel

Code: Selecteer alles

<a href="playlist.php" title="Playlist & Requests"><img src="images/menu/tb-file-list.png" /> Playlist<?php if (ALLOW_REQUESTS) : ?> & Requests<?php endif; ?></a>

naar onderstaand

Code: Selecteer alles

<?php if (strftime('%w') == '0' && strftime('%H') >= 13 && strftime('%H') < 16) 
{
    echo '<a href="#" title="geen verzoek mogelijk"><img src="images/menu/tb-file-list.png">geen verzoek mogelijk</a>' ;
}
else 
{
    echo '<a href="playlist.php" title="Playlist & Requests"><img src="images/menu/tb-file-list.png" /> Playlist<?php if (ALLOW_REQUESTS) : ?> & Requests<?php endif; ?></a>' ;        
} ?>

edit: vergeten de <?php & ?> tussen te zetten.

Wout ,ik mis hier nog een / waarschijnlijk? ---> <img src="images/menu/tb-file-list.png">

[Gerrie K]

Het werkt........

Thanks Wout.....En Dr.O