#!/usr/bin/perl -w

use LWP;
use JSON;
use strict;
use warnings; 
use Date::Calc qw(:all);
use LWP::Simple;

sub get_lautfm_playing($)
{

  my $station = shift;
  my $url = get ("http://api.laut.fm/station/".$station."/current_song");

  my $json_obj = decode_json $url;
  $$json_obj{'artist'} = 'unbekannt' if !defined($$json_obj{'artist'});
  $$json_obj{'title'} = 'unbekannt' if !defined($$json_obj{'title'});


    # Rückgabe von Artist und Title
    if($$json_obj{'title'}=~m/(.*?)\s*\((.*)\)\s*(\d+)/)
    {

      # Artist, Titel, Version, Jahr
     ($$json_obj{'artist'},$1,$2,$3);
    }
    elsif($$json_obj{'title'}=~m/(.*?)\s*\((.*)\)/)
    {

      # Artist, Titel, Version, Jahr = ''
      ($$json_obj{'artist'},$1,$2,'');
    }
    else
    {
      # Artist, Titel, Version = '', Jahr = ''
      ($$json_obj{'artist'},$$json_obj{'title'},'','');
    }
}