#!/bin/bash

# vytvoril patrik bona <bona@intrak.sk>
# posledna zmena dna 14. 5. 2002


read IN;
if echo $IN | grep "GET" >> /home/head/weblog; then
        GET=$IN;
        while true; do
                read IN;
                echo $IN >> /home/head/weblog;
                if echo $IN | grep -E "^^M|^$" > /dev/null; then
                        break;
                fi
        done
        echo "HTTP/1.0 200 OK";
        echo "Content-Type: audio/mpeg";
        echo "x-audiocast-name: c0re hakor shell audio server (GNU/GPL)";
        echo;
        DIR=/mnt/disk/mp3/members_of_mayday/;
        #while true; do
                MAX=`ls -1 $DIR | wc | awk '{print $1}'`;
                NUM=$RANDOM;
                let "NUM %= $MAX";
                MP3=`ls -1 $DIR | head -n $NUM | tail -n 1`;
                echo $MP3 >> /home/head/weblog;
                cat "$DIR$MP3";
        #done   
fi;