::::::::::::::
/usr/local/bin/radio2015_allmeta.sh
::::::::::::::
#!/bin/bash

curMetaF=/var/www/v2015/meta/cur.txt
allMetaF=/var/www/v2015/meta/all.txt
allMetaH=/var/www/v2015/meta/all.html

while :
do
 c=`radio2015_curmeta.sh`
 n=`radio2015_nextmeta.sh`
 p=`radio2015_prevmeta.sh`

 echo -ne "${c}" > $curMetaF
 echo -ne "${p}\n${c}\n${n}" > $allMetaF

cat <<EOT> $allMetaH
<div id="playlist">
 <div class="dotted">
  <dt class="text">Будет</dt>
   <dd>
    <p><strong>${n}</strong></p>
   </dd>
 </div>
 <div class="dotted play">
  <dt class="text">Сейчас звучит</dt>
  <dd>
   <p><em><strong>${c}</strong></em></p>
  </dd>
 </div>
 <div class="dotted">
  <dt class="text">Отзвучало</dt>
   <dd>
    <p><strong>${p}</strong></p>
  </dd>
 </div>
</div>
EOT

 sleep 5
done
::::::::::::::
/usr/local/bin/radio2015_changePlaylist.sh
::::::::::::::
#!/bin/bash

eval `date +"pl_year=%Y pl_month=%m pl_day=%d pl_hour=%H" | sed 's/=0/=/g'`
export pl_year pl_month pl_day pl_hour

pl_dir=`/usr/local/bin/radio2015_getCurrentPlaylist.php`

if [ "$pl_dir" != "" ]
then
echo "start $pl_dir"

nc -q 1 127.0.0.1 8099 <<EOT
dynamic_playlist.change $pl_dir
exit
EOT

if [ "$?" = "1" ]
then
chroot /wheezy/ /usr/local/bin/lsoap_start.sh

echo "restart $pl_dir"

sleep 10

nc -q 1 127.0.0.1 8099 <<EOT
dynamic_playlist.change $pl_dir
exit
EOT



fi

fi
::::::::::::::
/usr/local/bin/radio2015_curmeta.sh
::::::::::::::
#!/bin/bash

cur_f=`grep "NowPlaying" /wheezy/tmp/lsoap-kamwa.log | tail -1 | sed 's/.*NowPla
ying//g'`
cur_d=`dirname "${cur_f}"`

cur_fs=`basename "${cur_f}"`

mid3v2k "$cur_f"
::::::::::::::
/usr/local/bin/radio2015_getCurrentPlaylist.php
::::::::::::::
#!/usr/bin/php
<?php
require('radio2015_lib.php');

$pl_year=getenv("pl_year");
$pl_month=getenv("pl_month");
$pl_day=getenv("pl_day");
$pl_hour=getenv("pl_hour");

$pl_link=radio2015_db_connect();

$res=radio2015_db_select_playlist( $pl_link, 'plpath', $pl_year, $pl_month, $pl_
day, $pl_hour);

radio2015_db_disconnect( $pl_link );

echo $res;

?>
::::::::::::::
/usr/local/bin/radio2015_getCurrentPlaylistType.php
::::::::::::::
#!/usr/bin/php
<?php
require('radio2015_lib.php');

$pl_year=getenv("pl_year");
$pl_month=getenv("pl_month");
$pl_day=getenv("pl_day");
$pl_hour=getenv("pl_hour");

$pl_link=radio2015_db_connect();

radio2015_db_select_playlist( $pl_link, 'pltype', $pl_year, $pl_month, $pl_day,
$pl_hour);

radio2015_db_disconnect( $pl_link );
?>
::::::::::::::
/usr/local/bin/radio2015_lib.php
::::::::::::::
<?php

function radio2015_db_connect()
{
$db='kamwa';
$dbuser='пользователь';
$dbpass='пароль';
$dbhost='localhost';


// Connecting, selecting database
$link = mysql_connect($dbhost, $dbuser, $dbpass) or die('Could not connect: ' .
mysql_error());

mysql_select_db($db, $link) or die('Could not select database');

return( $link );

}

function radio2015_db_select_playlist( $link, $field, $pl_year, $pl_month, $pl_d
ay, $pl_hour)
{


$query="select $field
from kmw_radioplaylisttype radioplaylisttype, kmw_radioplaylist radioplaylist, k
mw_radioscheduler radioscheduler
where
radioscheduler.idpl=radioplaylist.idpl and
radioplaylisttype.idplt=radioplaylist.idplt and
( year=$pl_year or year=-1) and
( month=$pl_month or month=-1) and
( day=$pl_day or day=-1) and
( hour=$pl_hour or hour=-1)
limit 1;";



$result = mysql_query($query, $link) or die('Query failed: ' . mysql_error());

$ret="";

if( $row = mysql_fetch_row($result) ) $ret=$row[0];

return( $ret );

}

function radio2015_db_disconnect( $link )
{
mysql_close($link);
}

?>
::::::::::::::
/usr/local/bin/radio2015_nextmeta.sh
::::::::::::::
#!/bin/bash


cur_f=`grep "NowPlaying" /wheezy/tmp/lsoap-kamwa.log | tail -1 | sed 's/.*NowPla
ying//g'`
cur_d=`dirname "${cur_f}"`

cur_fs=`basename "${cur_f}"`

cur_n=`ls -1 "${cur_d}" | grep -n "${cur_fs}" | awk -F ':' '{print $1}'`

dir_n=`ls -1 "${cur_d}" | wc -l`

if [ $dir_n -gt $cur_n ]
then
next_fs=`ls -1 "$cur_d" | sed -n "$((cur_n+1))p"`

mid3v2k "$cur_d/$next_fs"
fi

::::::::::::::
/usr/local/bin/radio2015_prevmeta.sh
::::::::::::::
#!/bin/bash

cur_f=`grep "NowPlaying" /wheezy/tmp/lsoap-kamwa.log | tail -1 | sed 's/.*NowPla
ying//g'`
cur_d=`dirname "${cur_f}"`

cur_fs=`basename "${cur_f}"`

cur_n=`ls -1 "${cur_d}" | grep -n "${cur_fs}" | awk -F ':' '{print $1}'`

if [ $cur_n -gt 1 ]
then
prev_fs=`ls -1 "${cur_d}" | sed -n "$((cur_n-1))p"`

mid3v2k "$cur_d/$prev_fs"
fi



$ cat /wheezy/home/vlc/lsoap/kamwa_dyn_call_recl2016.liq
#!/usr/bin/liquidsoap

# Start as a daemon
set("init.daemon", true)
#set("log.stdout", true)

# telnet iface (telnet localhost 1234)
set("server.telnet.bind_addr","127.0.0.1")
set("server.telnet.port", 8099)
set("server.telnet",true)


set("log.file.path","/tmp/lsoap-kamwa.log")


s1 = playlist.safe(mode="normal", reload_mode="watch", "/var/www/kamwa/data/mp3/KAMWA-Radio/Eclectic_day7/")


noise = noise()
s = fallback(track_sensitive = false, [s1, noise])

#reclama1 = playlist.safe(mode="normal", reload_mode="watch", "/home/kamwa/mp3/KAMWA-Radio/ROLIK_2015")

#reclama = switch([({05m0s},reclama1),({15m0s},reclama1),({30m0s},reclama1),({45m0s},reclama1)])

#s = fallback(track_sensitive = false, [reclama,s1])




def apply_metadata(m) =
#  title = m["title"]
#  artist = m["artist"]
  filename = m["filename"]
#  status = m["status"]
#  liq_cue_in = m["liq_cue_in"]
#  dal = list.hd(!pll)

#  retmeta = list.hd(get_process_lines("/usr/local/bin/radio2015_allmeta.sh"))

#  log("StartedGetMeta:#{retmeta}\n")

  log("NowPlaying#{filename}\n")
end

s = on_metadata(apply_metadata,s)

# Stream it out
out=output.icecast(%mp3.abr(bitrate=128,id3v2=true,samplerate=44100),
  host = "ios.kamwa.ru", port = 8002,
  password = "пароль", mount = "kamwa-mp3", url="http://ios.kamwa.ru:8002/kamwa-mp3",name="Kamwa",
  encoding="UTF-8",genre="Other",user="kamwa")

output=out(s)


xou = ref output

xou := output


#end

def dochange_playlist(sri) =

  source.shutdown( !xou )
# change_playlist(sri)

  s1 = playlist.safe(mode="normal", reload_mode="watch", sri)


#  reclama1 = playlist.safe(mode="normal", reload_mode="watch", "/home/kamwa/mp3/KAMWA-Radio/ROLIK_2015")

#  reclama = switch([({05m0s},reclama1),({15m0s},reclama1),({30m0s},reclama1),({45m0s},reclama1)])

# s = fallback(track_sensitive = false, [reclama,s1])

  s = on_metadata(apply_metadata,s1)

  output=out(s)
  xou := output
  "ChangeD"
end


#ss=change_playlist("/home/kamwa/mp3/KAMWA-Radio/End_of_your_trip7/")



server.register(namespace="dynamic_playlist",
                description="changeStart a new dynamic playlist.",
                usage="change <uri>",
                "change",
                dochange_playlist)