/*******************************************************************************
*                         Goggles Music Manager                                *
********************************************************************************
*           Copyright (C) 2007-2021 by Sander Jansen. All Rights Reserved      *
*                               ---                                            *
* This program is free software: you can redistribute it and/or modify         *
* it under the terms of the GNU General Public License as published by         *
* the Free Software Foundation, either version 3 of the License, or            *
* (at your option) any later version.                                          *
*                                                                              *
* This program is distributed in the hope that it will be useful,              *
* but WITHOUT ANY WARRANTY; without even the implied warranty of               *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                *
* GNU General Public License for more details.                                 *
*                                                                              *
* You should have received a copy of the GNU General Public License            *
* along with this program.  If not, see http://www.gnu.org/licenses.           *
********************************************************************************/
#include "gmdefs.h"
#include "gmutils.h"
#include "GMApp.h"
#include "GMTrack.h"
#include "GMList.h"
#include "GMDatabase.h"
#include "GMTrackDatabase.h"
#include "GMCover.h"
#include "GMCoverCache.h"
#include "GMTrackList.h"
#include "GMTrackItem.h"
#include "GMTrackView.h"
#include "GMTaskManager.h"
#include "GMSource.h"
#include "GMSourceView.h"
#include "GMClipboard.h"
#include "GMPodcastSource.h"
#include "GMPlayerManager.h"
#include "GMWindow.h"
#include "GMIconTheme.h"
#include "GMFilename.h"
#include "GMTag.h"
#include "GMAlbumList.h"
#include "GMAudioPlayer.h"
#include "GMCoverLoader.h"


#include <fcntl.h> /* Definition of AT_* constants */
#include <sys/stat.h>

/*
  Notes:


    PodcastDownloader
      - don't update db, but send callback to mainthread to update status
*/

FXString gm_rfc1123(FXTime time) {
  FXDate date;
  date.setTime(time);
  FXString str;
  str  = FXString::value("%s, %d %s %d ",FXDate::dayNameShort(date.dayOfWeek()),date.day(),FXDate::monthNameShort(date.month()),date.year());
  str += FXSystem::universalTime(time, "%T GMT");
  return str;
  }


static FXbool gm_is_feed(const FXString & mime) {
  if ( FXString::comparecase(mime,"application/rss+xml")==0 ||
       FXString::comparecase(mime,"text/xml")==0 ||
       FXString::comparecase(mime,"application/xml")==0 ) {
    return true;
    }
  else {
    return false;
    }
  }

//-----------------------------------------------------------------------------


struct FeedLink {
  FXString description;
  FXString url;
  };

//-----------------------------------------------------------------------------


static void unescape_html(FXString & value) {
  value.substitute("&#38;","&");
  }


static void parse_duration(const FXString & value,FXuint & d) {
  FXint n = value.contains(":");
  FXint hh=0,mm=0,ss=0;
  switch(n) {
    case 2: value.scan("%d:%d:%d",&hh,&mm,&ss); break;
    case 1: value.scan("%d:%d",&mm,&ss); break;
    case 0: value.scan("%d",&ss); break;
    default: GM_DEBUG_PRINT("[rss] failed to parse duration %s\n",value.text()); d=0; return; break;
    };
  d=(hh*3600)+(mm*60)+ss;
  }



struct RssItem {
  FXString id;
  FXString url;
  FXString title;
  FXString description;
  FXint    length = 0;
  FXuint   time = 0;
  FXTime   date = 0;

  RssItem() {}


  void trim() {
    url.trim();
    title.trim();
    description.trim();
    }

  void clear() {
    id.clear();
    url.clear();
    title.clear();
    description.clear();
    length=0;
    time=0;
    date=0;
    }

  FXString guid() const {
    if (!id.empty())
      return id;
    else
      return url;
    }

  };

struct RssFeed {
public:
  FXString         title;
  FXString         description;
  FXString         category;
  FXString         image;
  FXTime           date = 0;
  FXArray<RssItem> items;
public:
  RssFeed() {}

  void trim() {
    title.trim();
    description.trim();
    category.trim();
    for (FXint i=0;i<items.no();i++) {
      items[i].trim();
      }
    }

#ifdef DEBUG
  void debug() {
    fxmessage("      title: %s\n",title.text());
    fxmessage("description: %s\n",description.text());
    fxmessage("   category: %s\n",category.text());
    fxmessage("       date: %s\n",FXSystem::universalTime(date).text());
    for (FXint i=0;i<items.no();i++) {
      fxmessage("----\n");
      fxmessage("         url: %s\n",items[i].url.text());
      fxmessage("      length: %d\n",items[i].length);
      fxmessage("       title: %s\n",items[i].title.text());
      fxmessage(" description: %s\n",items[i].description.text());
      fxmessage("          id: %s\n",items[i].id.text());
      fxmessage("    duration: %d\n",items[i].time);
      fxmessage("        date: %s\n",FXSystem::universalTime(items[i].date).text());
      }
    }
#endif

  };


class RssParser : public XmlParser {
public:
  RssFeed  feed;
  RssItem  item;
  FXString value;
protected:
  FXint begin(const FXchar *element,const FXchar** attributes){
    switch(node()) {
      case Elem_None:
        if (FXString::compare(element,"rss")==0)
          return Elem_RSS;
        break;
      case Elem_RSS:
        if (FXString::compare(element,"channel")==0)
          return Elem_Channel;
        break;
      case Elem_Channel:
        if (FXString::compare(element,"item")==0)
          return Elem_Item;
        else if (FXString::comparecase(element,"title")==0)
          return Elem_Channel_Title;
        else if (FXString::comparecase(element,"description")==0)
          return Elem_Channel_Description;
        else if (FXString::comparecase(element,"category")==0)
          return Elem_Channel_Category;
        else if (FXString::comparecase(element,"itunes:category")==0)
          parse_itunes_category(attributes);
        else if (FXString::comparecase(element,"itunes:image")==0 && feed.image.empty())
          parse_itunes_image(attributes);
        else if (FXString::comparecase(element,"image")==0 && feed.image.empty())
          return Elem_Channel_Image;
        else if (FXString::comparecase(element,"pubdate")==0)
          return Elem_Channel_Date;
        break;
      case Elem_Item:
        if (FXString::comparecase(element,"enclosure")==0) {
          if (attributes)
            parse_enclosure(attributes);
          }
        else if (FXString::comparecase(element,"title")==0)
          return Elem_Item_Title;
        else if (FXString::comparecase(element,"description")==0)
          return Elem_Item_Description;
        else if (FXString::comparecase(element,"guid")==0)
          return Elem_Item_Guid;
        else if (FXString::comparecase(element,"pubdate")==0)
          return Elem_Item_Date;
        else if (FXString::comparecase(element,"itunes:duration")==0)
          return Elem_Item_Duration;
        break;
      case Elem_Channel_Image:
        if (FXString::comparecase(element,"url")==0)
          return Elem_Channel_Image_Url;
      default: break;
      }
    return 0;
    }

  void data(const FXchar * ptr,FXint len){
    switch(node()) {
      case Elem_Item_Title         : item.title.append(ptr,len); break;
      case Elem_Item_Description   : item.description.append(ptr,len); break;
      case Elem_Item_Guid          : item.id.append(ptr,len); break;
      case Elem_Item_Date          : value.append(ptr,len); break;
      case Elem_Item_Duration      : value.append(ptr,len); break;
      case Elem_Channel_Title      : feed.title.append(ptr,len); break;
      case Elem_Channel_Description: feed.description.append(ptr,len); break;
      case Elem_Channel_Category   : feed.category.append(ptr,len); break;
      case Elem_Channel_Date       : value.append(ptr,len); break;
      case Elem_Channel_Image_Url  : feed.image.append(ptr,len); break;
      }
    }
  void end(const FXchar*) {
    switch(node()){
      case Elem_Item:
        feed.items.append(item);
        item.clear();
        break;
      case Elem_Item_Date:
        gm_parse_datetime(value,item.date);
        if (feed.date==0) feed.date=item.date;
        value.clear();
        break;
      case Elem_Item_Duration:
        parse_duration(value,item.time);
        value.clear();
        break;
      case Elem_Channel_Date:
        gm_parse_datetime(value,feed.date);
        value.clear();
        break;
      }
    }

  void parse_itunes_image(const FXchar** attributes) {
    for (FXint i=0;attributes[i];i+=2) {
      if (FXString::comparecase(attributes[i],"href")==0){
        feed.image = attributes[i+1];
        }
      }
    }

  void parse_itunes_category(const FXchar** attributes) {
    for (FXint i=0;attributes[i];i+=2) {
      if (FXString::comparecase(attributes[i],"text")==0){
        feed.category = attributes[i+1];
        unescape_html(feed.category);
        }
      }
    }

  void parse_enclosure(const FXchar** attributes) {
    for (FXint i=0;attributes[i];i+=2) {
      if (FXString::comparecase(attributes[i],"url")==0)
        item.url = attributes[i+1];
      else if (FXString::comparecase(attributes[i],"length")==0)
        item.length = FXString(attributes[i+1]).toInt();
      }
    }
public:
  enum {
    Elem_RSS = Elem_Last,
    Elem_Channel,
    Elem_Channel_Title,
    Elem_Channel_Description,
    Elem_Channel_Category,
    Elem_Channel_Date,
    Elem_Channel_Image,
    Elem_Channel_Image_Url,
    Elem_Item,
    Elem_Item_Title,
    Elem_Item_Description,
    Elem_Item_Guid,
    Elem_Item_Date,
    Elem_Item_Duration,
    };
public:
  RssParser(){}
  ~RssParser(){}
  };

/*--------------------------------------------------------------------------------------------*/



FXString make_podcast_feed_directory(const FXString & title) {
  gm::TextConverter filter(gm::TextConverter::NOSPACE);
  FXString feed = filter.convert(title);
  FXDir::createDirectories(GMApp::getPodcastDirectory()+PATHSEPSTRING+feed);
  return feed;
  }


/*--------------------------------------------------------------------------------------------*/

class GMImportPodcast : public GMWorker {
FXDECLARE(GMImportPodcast)
protected:
  FXString         url;
  RssParser        rss;
  GMTrackDatabase* db = nullptr;
  GMQuery          get_feed;
  GMQuery          get_tag;
  GMQuery          add_tag;
  GMQuery          add_feed;
public:
protected:
  GMImportPodcast(){}
public:
  GMImportPodcast(FXApp*app,GMTrackDatabase * database,const FXString & u) : GMWorker(app), url(u), db(database) {
    get_feed = db->compile("SELECT id FROM feeds WHERE url == ?;");
    get_tag  = db->compile("SELECT id FROM tags WHERE name == ?;");
    add_tag  = db->compile("INSERT INTO tags VALUES ( NULL, ? );");
    add_feed = db->compile("INSERT INTO feeds VALUES ( NULL,?,?,?,?,?,?,NULL,NULL,0);");
    }

  void insert_feed() {
    FXint feed=0;

    get_feed.set(0,url);
    get_feed.execute(feed);
    if (feed) return;

    rss.feed.trim();

    FXString feed_dir = make_podcast_feed_directory(rss.feed.title);

    try {
      GMLockTransaction transaction(db);
      FXint tag=0;

      // Allow unset categories, just don't insert empty strings
      if (!rss.feed.category.empty()) {
        get_tag.set(0,rss.feed.category);
        get_tag.execute(tag);
        if (!tag) {
          add_tag.set(0,rss.feed.category);
          tag = add_tag.insert();
          }
        }

      add_feed.set(0,url);
      add_feed.set(1,rss.feed.title);
      add_feed.set(2,rss.feed.description);
      add_feed.set(3,feed_dir);
      add_feed.set_null(4,tag);
      add_feed.set(5,rss.feed.date);
      FXint feed_id = add_feed.insert();

      GMQuery add_feed_item(db,"INSERT INTO feed_items VALUES ( NULL, ? , ? , ? , NULL, ? , ? , ?, ?, ?, 0)");

      for (FXint i=0;i<rss.feed.items.no();i++) {
        add_feed_item.set(0,feed_id);
        add_feed_item.set(1,rss.feed.items[i].id);
        add_feed_item.set(2,rss.feed.items[i].url);
        add_feed_item.set(3,rss.feed.items[i].title);
        add_feed_item.set(4,rss.feed.items[i].description);
        add_feed_item.set(5,rss.feed.items[i].length);
        add_feed_item.set(6,rss.feed.items[i].time);
        add_feed_item.set(7,rss.feed.items[i].date);
        add_feed_item.execute();
        }
      transaction.commit();
      }
    catch(GMDatabaseException&) {
      }
    }

  long onThreadLeave(FXObject*,FXSelector,void*) {
    FXint code=0;
    if (thread->join(code) && code==0) {
      insert_feed();
      GMPlayerManager::instance()->getTrackView()->refresh();
      }
    else {
      GM_DEBUG_PRINT("No feed found code %d\n",code);
      }
    delete this;
    return 1;
    }

  FXint select_feed(const FXArray<FeedLink> & links){
    if (links.no()>1) {
      GMThreadDialog dialog(GMPlayerManager::instance()->getMainWindow(),fxtr("Select Feed"),DECOR_TITLE|DECOR_BORDER|DECOR_RESIZE,0,0,0,0,0,0,0,0,0,0);
      FXHorizontalFrame *closebox=new FXHorizontalFrame(&dialog,LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|PACK_UNIFORM_WIDTH,0,0,0,0);
      new GMButton(closebox,fxtr("Subscribe"),nullptr,&dialog,FXDialogBox::ID_ACCEPT,BUTTON_INITIAL|BUTTON_DEFAULT|LAYOUT_RIGHT|FRAME_RAISED|FRAME_THICK,0,0,0,0, 15,15);
      new GMButton(closebox,fxtr("&Cancel"),nullptr,&dialog,FXDialogBox::ID_CANCEL,BUTTON_DEFAULT|LAYOUT_RIGHT|FRAME_RAISED|FRAME_THICK,0,0,0,0, 15,15);
      FXVerticalFrame * main = new FXVerticalFrame(&dialog,LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,10,5,10,10);
      FXMatrix * matrix = new FXMatrix(main,2,LAYOUT_FILL_X|MATRIX_BY_COLUMNS);
      new FXLabel(matrix,fxtr("Feed:"),nullptr,LABEL_NORMAL|LAYOUT_RIGHT|LAYOUT_CENTER_Y);
      GMListBox * feedbox = new GMListBox(matrix,nullptr,0,LAYOUT_FILL_X|FRAME_LINE);
      for (int i=0;i<links.no();i++){
        feedbox->appendItem(links[i].description);
        }
      feedbox->setNumVisible(FXMIN(feedbox->getNumItems(),9));
      if (dialog.execute(channel)) {
        return feedbox->getCurrentItem();
        }
      }
    else if (links.no()==1){
      return 0;
      }
    return -1;
    }


  FXbool findFeedLink(const FXString & html,FXArray<FeedLink> & links) {
    FXRex link("<link[^>]*>",FXRex::IgnoreCase|FXRex::Normal);
    FXRex attr("\\s+(\\l\\w*)(?:\\s*=\\s*(?:([\'\"])(.*?)\\2|([^\\s\"\'>]+)))?",FXRex::Capture);

    FXint b[5],e[5],f=0;
    while(link.search(html,f,html.length()-1,FXRex::Normal,b,e,1)>=0){
      f=e[0];

      FeedLink feed;
      FXString mimetype;
      FXString mlink = html.mid(b[0],e[0]-b[0]);
      GM_DEBUG_PRINT("Link: %s\n",mlink.text());

      FXint ff=0;
      while(attr.search(mlink,ff,mlink.length()-1,FXRex::Normal,b,e,5)>=0){
        if (b[1]>=0) {
          if (e[1]-b[1]==4) {
            if (FXString::comparecase(&mlink[b[1]],"type",4)==0) {
              mimetype = (b[2]>0) ? mlink.mid(b[3],e[3]-b[3]) : mlink.mid(b[4],e[4]-b[4]);
              GM_DEBUG_PRINT("\tmimetype=%s\n",mimetype.text());
              }
            else if (FXString::comparecase(&mlink[b[1]],"href",4)==0) {
              feed.url = (b[2]>0) ? mlink.mid(b[3],e[3]-b[3]) : mlink.mid(b[4],e[4]-b[4]);
              GM_DEBUG_PRINT("\thref=%s\n",feed.url.text());
              }
            }
          else if (e[1]-b[1]==5 && FXString::comparecase(&mlink[b[1]],"title",5)==0) {
            feed.description = (b[2]>0) ? mlink.mid(b[3],e[3]-b[3]) : mlink.mid(b[4],e[4]-b[4]);
            }
          }
        ff=e[0];
        }
      if (FXString::comparecase(mimetype,"application/rss+xml")==0 && !feed.url.empty()) {
        links.append(feed);
        }
      }
    return (links.no()>0);
    }


  FXint run() {
    HttpClient client;

    client.setAcceptEncoding(HttpClient::AcceptEncodingGZip);

    do {

      if (!client.basic("GET",url))
        break;

      HttpMediaType media;

      if (!client.getContentType(media))
        break;

      GM_DEBUG_PRINT("[rss] media.mime %s\n",media.mime.text());
      if (gm_is_feed(media.mime)) {
        if (rss.parse(client.body(),media.parameters["charset"]))
          return 0;
        else
          return 1;
        }
      else if (FXString::comparecase(media.mime,"text/html")==0) {
        FXArray<FeedLink> links;
        if (findFeedLink(client.body(),links)) {
          FXint index = select_feed(links);
          if (index==-1) return 1;
          FXString uri = links[index].url;
          if (uri[0]=='/') {
            uri = FXURL::scheme(url) + "://" +FXURL::host(url) + uri;
            }
          url=uri;
          continue;
          }
        }
      break;
      }
    while(1);

    return 1;
    }
  };

FXDEFMAP(GMImportPodcast) GMImportPodcastMap[]={
  FXMAPFUNC(SEL_COMMAND,GMImportPodcast::ID_THREAD_LEAVE,GMImportPodcast::onThreadLeave),
  };

FXIMPLEMENT(GMImportPodcast,GMWorker,GMImportPodcastMap,ARRAYNUMBER(GMImportPodcastMap));




/*--------------------------------------------------------------------------------------------*/


class GMDownloader : public GMWorker {
FXDECLARE(GMDownloader)
protected:
  FXbool download(const FXString & url,const FXString & filename,FXbool resume=true) {
    HttpClient http;
    HttpContentRange range;
    FXFile     file;
    FXString   headers;
    FXuint     mode   = FXIO::Writing;
    FXlong     offset = 0;

    if (FXStat::exists(filename) && resume) {
      GM_DEBUG_PRINT("[download] file %s exists trying resume\n",filename.text());
      mode    = FXIO::ReadWrite|FXIO::Append;
      offset  = FXStat::size(filename);
      if (offset>0) {
        // shutup compiler warnings and just pass string to bytes value
        headers = FXString::value("Range: bytes=%s-\r\nIf-Range: %s\r\n",FXString::value(offset).text(),gm_rfc1123(FXStat::modified(filename)).text());
        /// %lld for FOX is FXlong on 32bit and 64bit so ignore any formating warnings.
        //headers = FXString::value("Range: bytes=%lld-\r\nIf-Range: %s\r\n",offset,gm_rfc1123(FXStat::modified(filename)).text());
        GM_DEBUG_PRINT("%s\n",headers.text());
        }
      }

    if (!file.open(filename,mode)){
      GM_DEBUG_PRINT("[download] failed to open local file\n");
      return false;
      }

    if (!http.basic("GET",url,headers)) {
      GM_DEBUG_PRINT("[download] failed to connect %s\n",url.text());
      return false;
      }

    if (http.status.code == HTTP_PARTIAL_CONTENT) {

      if (!http.getContentRange(range)) {
        GM_DEBUG_PRINT("[download] failed to parse content range header\n");
        return false;
        }

      // FIXME make sure range is what we requested...
      GM_DEBUG_PRINT("[download] http partial content %lld-%lld of %lld\n",range.first,range.last,range.length);
      }
    else if (http.status.code == HTTP_REQUESTED_RANGE_NOT_SATISFIABLE) {
      GM_DEBUG_PRINT("[download] http invalid range. retrying full content\n");
      http.discard();
      if (!http.basic("GET",url) || http.status.code!=HTTP_OK)
        return false;
      file.truncate(0);
      }
    else if (http.status.code == HTTP_OK) {
      GM_DEBUG_PRINT("[download] get full content\n");
      file.truncate(0);
      }
    else {
      GM_DEBUG_PRINT("[download] http failed %d\n",http.status.code);
      return false;
      }

    /// Actual transfer
    FXuchar buffer[4096];
    FXlong  n,nbytes=0,ntotal=0,ncontent=http.getContentLength();
    //FXTime  timestamp,last = FXThread::time();
    //const FXlong seconds   = 1000000000;
    //const FXlong msample   = 100000000;
    //const FXlong kilobytes = 1024;

    while((n=http.readBody(buffer,4096))>0 && processing) {
      nbytes+=n;
      ntotal+=n;

      /* calculate transfer speed
      timestamp = FXThread::time();
      if (timestamp-last>msample) {
        FXuint kbps = (nbytes * seconds ) / (kilobytes*(timestamp-last));
        FXuint pct = (FXuint)(((double)ntotal/(double)ncontent) * 100.0);
        nbytes=0;
        last=timestamp;
        }
      */

      /* Write and check out of disk space */
      if (file.writeBlock(buffer,n)<n) {
        GM_DEBUG_PRINT("[download] disk write error\n");
        return false;
        }
      }
    file.close();

    /// Set the modtime
    FXTime modtime=0;
    if (gm_parse_datetime(http.getHeader("last-modified"),modtime) && modtime!=0) {
      GM_DEBUG_PRINT("[download] Set Modified to \"%s\"\n",http.getHeader("last-modified").text());
      FXStat::modified(filename,modtime);
      }

    /// Check for partial content
    if (ncontent!=-1 && ncontent<ntotal){
      GM_DEBUG_PRINT("[download] Incomplete %ld / %ld\n",ncontent,ntotal);
      return false;
      }

    if (ncontent!=-1)
      GM_DEBUG_PRINT("[download] Finished %ld / %ld\n",ncontent,ntotal);
    else
      GM_DEBUG_PRINT("[download] Finished %ld\n",ncontent);

    return true;
    }

  GMDownloader(){}
  GMDownloader(FXApp*app) : GMWorker(app) {}
  };

FXIMPLEMENT(GMDownloader,GMWorker,nullptr,0);





class GMPodcastDownloader : public GMDownloader {
FXDECLARE(GMPodcastDownloader)
protected:
  FXMutex          mutex;
  FXCondition      condition;

  FXint            length = 0;
  FXint            id     = 0;
  FXString         url;
  FXString         local;
  FXString         localdir;

  GMPodcastSource* src = nullptr;
  GMTrackDatabase* db  = nullptr;
protected:
  GMPodcastDownloader(){}
public:
  enum {
    ID_DOWNLOAD_COMPLETE = GMWorker::ID_LAST
    };
public:
  GMPodcastDownloader(FXApp*app,GMPodcastSource * s) : GMDownloader(app),src(s), db(s->db) {
    next_task();
    }

  void next_task() {
    GMQuery next_download(db,"SELECT feed_items.id, feed_items.url,feeds.local FROM feed_items,feeds WHERE feeds.id == feed_items.feed AND flags&1 ORDER BY feed_items.date LIMIT 1;");
    id=0;
    url.clear();
    local.clear();
    if (next_download.row()) {
      next_download.get(0,id);
      next_download.get(1,url);
      next_download.get(2,localdir);
      }
    }

  long onDownloadComplete(FXObject*,FXSelector,void*) {
    mutex.lock();

    GMQuery update_feed(db,"UPDATE feed_items SET local = ?, time = CASE WHEN time != 0 THEN time ELSE ? END, flags = ((flags&~(1<<?))|(1<<?)) WHERE id == ?;");

    update_feed.set(0,local);
    update_feed.set(1,length);
    update_feed.set(2,ITEM_FLAG_QUEUE);
    if (!local.empty())
      update_feed.set(3,ITEM_FLAG_LOCAL);
    else
      update_feed.set(3,ITEM_FLAG_DOWNLOAD_FAILED);

    update_feed.set(4,id);
    update_feed.execute();

    GMTrackView * view = GMPlayerManager::instance()->getTrackView();
    if (view->getSource()==src) {
      FXint item = view->findTrackIndexById(id);
      if (item>=0) {
        GMFeedItem * feeditem = static_cast<GMFeedItem*>(view->getTrackItem(item));
        FXuint f = feeditem->getFlags();
        f&=~(1<<ITEM_FLAG_QUEUE);
        if (!local.empty())
          f|=(1<<ITEM_FLAG_LOCAL);
        else
          f|=(1<<ITEM_FLAG_DOWNLOAD_FAILED);
        feeditem->setFlags(f);
        view->updateTrackItem(item);
        }
      }
    next_task();
    condition.signal();
    mutex.unlock();
    return 1;
    }

  long onThreadLeave(FXObject*,FXSelector,void*) {
    FXint code=0;
    if (thread->join(code) && code==0) {
      }
    src->downloader = nullptr;
    delete this;
    return 1;
    }


  void downloadNext() {
    local  = FXPath::name(FXURL::path(url));
    length = 0;
    FXDir::createDirectories(GMApp::getPodcastDirectory()+PATHSEPSTRING+localdir);

    // Download file
    if (download(url,GMApp::getPodcastDirectory()+PATHSEPSTRING+localdir+PATHSEPSTRING+local,true)){

      // Get duration from file
      GMFileTag tags;
      if (tags.open(GMApp::getPodcastDirectory()+PATHSEPSTRING+localdir+PATHSEPSTRING+local,FILETAG_AUDIOPROPERTIES)){
        length = tags.getTime();
        }

      }
    else {
      local.clear();
      }
    }

  FXint run() {
    while(id && processing) {
      downloadNext();
      mutex.lock();
      send(FXSEL(SEL_COMMAND,ID_DOWNLOAD_COMPLETE));
      condition.wait(mutex);
      mutex.unlock();
      }
    return 0;
    }
  };

FXDEFMAP(GMPodcastDownloader) GMPodcastDownloaderMap[]={
  FXMAPFUNC(SEL_COMMAND,GMPodcastDownloader::ID_THREAD_LEAVE,GMPodcastDownloader::onThreadLeave),
  FXMAPFUNC(SEL_COMMAND,GMPodcastDownloader::ID_DOWNLOAD_COMPLETE,GMPodcastDownloader::onDownloadComplete),
  };
FXIMPLEMENT(GMPodcastDownloader,GMDownloader,GMPodcastDownloaderMap,ARRAYNUMBER(GMPodcastDownloaderMap));


class GMPodcastUpdater : public GMTask {
protected:
  GMTrackDatabase * db;
protected:
  virtual FXint run();
public:
  GMPodcastUpdater(FXObject*tgt,FXSelector sel);
  virtual ~GMPodcastUpdater();
  };



GMPodcastUpdater::GMPodcastUpdater(FXObject*tgt,FXSelector sel) : GMTask(tgt,sel) {
  db = GMPlayerManager::instance()->getTrackDatabase();
  }

GMPodcastUpdater::~GMPodcastUpdater() {
  }


FXbool gm_transfer_file(HttpClient & http,FXFile & file) {
  FXuchar buffer[4096];
  FXlong  n;
  while((n=http.readBody(buffer,4096))>0) {
    if (file.writeBlock(buffer,n)<n) {
      return false;
      }
    }
  return true;
  }



FXbool gm_download_cover(const FXString & url,FXString path) {
  FXString filename;
  HttpClient http;
  HttpMediaType media;
  FXString headers;
  FXString existing;

  GM_DEBUG_PRINT("[rss] check for updated cover %s\n",url.text());

  // we'll probably have an existing one
  if (FXStat::exists(path+PATHSEPSTRING+"cover.jpg")) {
    existing = path+PATHSEPSTRING+"cover.jpg";
    }
  else if (FXStat::exists(path+PATHSEPSTRING+"cover.png")) {
    existing = path+PATHSEPSTRING+"cover.png";
    }

  // conditional request
  if (!existing.empty())
    headers=FXString::value("If-Modified-Since: %s\r\n",gm_rfc1123(FXStat::modified(existing)).text());

  if (http.basic("GET",url,headers)) {

    if (http.status.code == HTTP_NOT_MODIFIED) {
      GM_DEBUG_PRINT("[rss] cover not modified\n");
      return true;
      }

    if (http.getContentType(media)) {

      if (media.mime=="image/jpg" ||  media.mime=="image/jpeg"){
        filename=path+PATHSEPSTRING+"cover.jpg";
        }
      else if (media.mime=="image/png") {
        filename=path+PATHSEPSTRING+"cover.png";
        }
      else {
        GM_DEBUG_PRINT("[rss] cover unknown mimetype: %s\n",media.mime.text());
        return false;
        }

      FXFile file;
      if (!file.open(filename,FXIO::Writing))
        return false;

      if (!gm_transfer_file(http,file)) {
        file.close();
        FXFile::remove(filename);
        }
      file.close();

      // Set the modtime
      FXTime modtime=0;
      if (gm_parse_datetime(http.getHeader("last-modified"),modtime) && modtime!=0) {
        FXStat::modified(filename,modtime);
        }

      // Remove previous cover
      if (existing != filename) {
        GM_DEBUG_PRINT("[rss] removing old cover %s\n",filename.text());
        FXFile::remove(existing);
        }

      return true;
      }
    }
  return false;
  }


FXint GMPodcastUpdater::run() {
  try {

    GMQuery all_feeds(db,"SELECT id,url,local,date,autodownload FROM feeds;");
    GMQuery all_items(db,"SELECT id,guid FROM feed_items WHERE feed = ?;");
    GMQuery del_items(db,"DELETE FROM feed_items WHERE id == ? AND NOT (flags&2);");
    GMQuery get_item(db,"SELECT id FROM feed_items WHERE feed == ? AND guid == ?;");
    GMQuery set_feed(db,"UPDATE feeds SET url = ?, date = ? WHERE id = ?;");
    GMQuery fix_time(db,"UPDATE feed_items SET time = ? WHERE feed = ? AND guid = ?;");
    GMQuery add_feed_item(db,"INSERT INTO feed_items VALUES ( NULL, ? , ? , ? , NULL, ? , ? , ?, ?, ?, ?)");


    taskmanager->setStatus("Syncing Podcasts...");
    GMTaskTransaction transaction(db);

    FXTime date;
    FXString url;
    FXString guid;
    FXString feed_dir;
    FXint id,item_id,autodownload;
    FXuint flags=0;


    while(all_feeds.row() && processing) {
      all_feeds.get(0,id);
      all_feeds.get(1,url);
      all_feeds.get(2,feed_dir);
      all_feeds.get(3,date);
      all_feeds.get(4,autodownload);

      if (autodownload)
        flags|=ITEM_QUEUE;
      else
        flags=0;

      HttpClient    http;
      HttpMediaType media;
      FXString      moved;

      http.setAcceptEncoding(HttpClient::AcceptEncodingGZip);

      if (!http.basic("GET",url,FXString::null,FXString::null,&moved))
        continue;

      if (!http.getContentType(media)) {
        continue;
        }

      if (!gm_is_feed(media.mime)) {
        GM_DEBUG_PRINT("[rss] \"%s\" not a feed: %s\n",url.text(),media.mime.text());
        continue;
        }


      FXString feed = http.body();
      RssParser rss;

      if (rss.parse(feed,media.parameters["charset"])) {
        if (rss.feed.date!=date) {
          GM_DEBUG_PRINT("[rss] feed needs updating %s - %s\n",FXSystem::universalTime(rss.feed.date).text(),FXSystem::localTime(rss.feed.date).text());

          rss.feed.trim();

          gm_dump_file(GMApp::getPodcastDirectory()+PATHSEPSTRING+feed_dir+PATHSEPSTRING"feed.rss",feed);

          GM_DEBUG_PRINT("%s - %s\n",url.text(),FXSystem::universalTime(date).text());
          if (!rss.feed.image.empty()) {
            gm_download_cover(rss.feed.image,GMApp::getPodcastDirectory()+PATHSEPSTRING+feed_dir);
            }

          FXDictionary guids;
          for (int i=0;i<rss.feed.items.no();i++){
            if (rss.feed.items[i].guid().empty()) continue;
            guids.insert(rss.feed.items[i].guid().text(),(void*)(FXival)1);
            }

          all_items.set(0,id);
          while(all_items.row()){
            all_items.get(0,item_id);
            all_items.get(1,guid);
            if (guid.empty() || guids.has(guid)==false){
              del_items.set(0,item_id);
              del_items.execute();
              }
            }
          all_items.reset();

          for (int i=0;i<rss.feed.items.no();i++){
            item_id=0;
            get_item.set(0,id);
            get_item.set(1,rss.feed.items[i].guid());
            get_item.execute(item_id);
            if (item_id==0) {
              add_feed_item.set(0,id);
              add_feed_item.set(1,rss.feed.items[i].guid());
              add_feed_item.set(2,rss.feed.items[i].url);
              add_feed_item.set(3,rss.feed.items[i].title);
              add_feed_item.set(4,rss.feed.items[i].description);
              add_feed_item.set(5,rss.feed.items[i].length);
              add_feed_item.set(6,rss.feed.items[i].time);
              add_feed_item.set(7,rss.feed.items[i].date);
              add_feed_item.set(8,flags);
              add_feed_item.execute();
              }
            else {
              if (rss.feed.items[i].time) {
                fix_time.set(0,rss.feed.items[i].time);
                fix_time.set(1,id);
                fix_time.set(2,rss.feed.items[i].guid());
                fix_time.execute();
                }
              }
            }
          GM_DEBUG_PRINT("[rss] Update date to %s\n",FXSystem::universalTime(rss.feed.date).text());
          if (!moved.empty()) {
            GM_DEBUG_PRINT("[rss] feed was moved:\n      from: \"%s\"\n        to: \"%s\"\n",url.text(),moved.text());
            set_feed.set(0,moved);
            }
          else {
            set_feed.set(0,url);
            }
          set_feed.set(1,rss.feed.date);
          set_feed.set(2,id);
          set_feed.execute();
          }
        else {
          GM_DEBUG_PRINT("[rss] feed is up to date\n");
          }
        }
      else {
        GM_DEBUG_PRINT("[rss] failed to parse feed\n");
        }
      }
    transaction.commit();
    }
  catch(GMDatabaseException&) {
    return 1;
    }
  return 0;
  }

/*--------------------------------------------------------------------------------------------*/

class GMPodcastFeed : public GMAlbumListItem {
  FXDECLARE(GMPodcastFeed)
protected:
  GMPodcastFeed() {}
public:
  enum {
    AUTODOWNLOAD = 16
    };

public:
  GMPodcastFeed(const FXString & feed,FXbool ad,FXint id) : GMAlbumListItem(0,feed,0,id) {
    if (ad) state|=AUTODOWNLOAD;
    }

  FXbool isAutoDownload() const { return (state&AUTODOWNLOAD)!=0; }

  void setAutoDownload(FXbool download) { state^=((0-download)^state)&AUTODOWNLOAD; }

  };

FXIMPLEMENT(GMPodcastFeed,GMAlbumListItem,nullptr,0);


class GMPodcastClipboardData : public GMClipboardData {
public:
  GMPodcastSource * src;
  FXIntList         ids;
public:
  FXbool request(FXDragType target,GMClipboard * clipboard) {
    if (target==GMClipboard::urilistType){
      FXString uri;
      FXStringList filenames;
      src->getLocalFiles(ids,filenames);
      gm_convert_filenames_to_uri(filenames,uri);
      clipboard->setDNDData(FROM_CLIPBOARD,target,uri);
      return true;
      }
    else if (target==GMClipboard::kdeclipboard){
      clipboard->setDNDData(FROM_CLIPBOARD,target,"0");
      return true;
      }
    else if (target==GMClipboard::gnomeclipboard){
      FXString clipdata;
      FXStringList filenames;
      src->getLocalFiles(ids,filenames);
      gm_convert_filenames_to_gnomeclipboard(filenames,clipdata);
      clipboard->setDNDData(FROM_CLIPBOARD,target,clipdata);
      return true;
      }
    return false;
    }

  ~GMPodcastClipboardData() {
    src=nullptr;
    }
  };



FXDEFMAP(GMPodcastSource) GMPodcastSourceMap[]={
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_ADD_FEED,GMPodcastSource::onCmdAddFeed),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_REFRESH_FEED,GMPodcastSource::onCmdRefreshFeed),
  FXMAPFUNC(SEL_TIMEOUT,GMPodcastSource::ID_REFRESH_FEED,GMPodcastSource::onCmdRefreshFeed),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_DOWNLOAD_FEED,GMPodcastSource::onCmdDownloadFeed),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_REMOVE_FEED,GMPodcastSource::onCmdRemoveFeed),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_MARK_NEW,GMPodcastSource::onCmdMarkNew),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_MARK_PLAYED,GMPodcastSource::onCmdMarkPlayed),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_DELETE_LOCAL,GMPodcastSource::onCmdDeleteLocal),
  FXMAPFUNC(SEL_COMMAND,GMPodcastSource::ID_AUTO_DOWNLOAD,GMPodcastSource::onCmdAutoDownload),
  FXMAPFUNC(SEL_TASK_COMPLETED,GMPodcastSource::ID_FEED_UPDATER,GMPodcastSource::onCmdFeedUpdated),
  FXMAPFUNC(SEL_TASK_CANCELLED,GMPodcastSource::ID_FEED_UPDATER,GMPodcastSource::onCmdFeedUpdated),
  FXMAPFUNC(SEL_TIMEOUT,GMPodcastSource::ID_TRACK_PLAYED,GMPodcastSource::onCmdTrackPlayed),
  FXMAPFUNC(SEL_TASK_COMPLETED,GMPodcastSource::ID_LOAD_COVERS,GMPodcastSource::onCmdLoadCovers),
  FXMAPFUNC(SEL_TASK_CANCELLED,GMPodcastSource::ID_LOAD_COVERS,GMPodcastSource::onCmdLoadCovers),
  FXMAPFUNC(SEL_COMMAND,GMSource::ID_COPY_TRACK,GMPodcastSource::onCmdCopyTrack),
  FXMAPFUNC(SEL_DND_REQUEST,GMSource::ID_COPY_TRACK,GMPodcastSource::onCmdRequestTrack)


  };
FXIMPLEMENT(GMPodcastSource,GMSource,GMPodcastSourceMap,ARRAYNUMBER(GMPodcastSourceMap));


GMPodcastSource::GMPodcastSource(GMTrackDatabase * database) : GMSource(), db(database) {
  FXASSERT(db);
  db->execute("SELECT count(id) FROM feed_items WHERE (flags&4)==0",navailable);
  scheduleUpdate();
  }


GMPodcastSource::~GMPodcastSource(){
  GMApp::instance()->removeTimeout(this,ID_REFRESH_FEED);
  if (downloader) {
    downloader->stop();
    }
  delete covercache;
  }


void GMPodcastSource::getLocalFiles(const FXIntList & ids,FXStringList & files) {
  GMQuery get_local(db,"SELECT (? || '/' || feeds.local || '/' || feed_items.local)  FROM feed_items,feeds WHERE feeds.id == feed_items.feed AND feed_items.id == ? AND feed_items.flags&2;");
  for (FXint i=0;i<ids.no();i++) {
    get_local.set(0,GMApp::instance()->getPodcastDirectory());
    get_local.set(1,ids[i]);
    if (get_local.row()) {
      files.no(files.no()+1);
      get_local.get(0,files[files.no()-1]);
      }
    get_local.reset();
    }
  }



FXIcon* GMPodcastSource::getAlbumIcon() const {
  return GMIconTheme::instance()->icon_podcast;
  }


void GMPodcastSource::loadCovers() {
  if (covercache==nullptr) {
    covercache = new GMCoverCache("podcastcovers",GMPlayerManager::instance()->getPreferences().gui_coverdisplay_size);
    if (!covercache->load()) {
      updateCovers();
      }
    }
  else if (covercache->getSize()!=GMPlayerManager::instance()->getPreferences().gui_coverdisplay_size){
    updateCovers();
    }
  }

void GMPodcastSource::updateCovers() {
  if (covercache) {
    GMCoverPathList list;
    FXString feed_dir;
    FXint feed,n=0;
    FXint nfeeds;
    db->execute("SELECT COUNT(*) FROM feeds",nfeeds);
    if (nfeeds) {
      list.no(nfeeds);
      GMQuery all_feeds(db,"SELECT id,local FROM feeds");
      while(all_feeds.row()){
        all_feeds.get(0,feed);
        all_feeds.get(1,feed_dir);
        list[n].path = GMApp::getPodcastDirectory()+PATHSEPSTRING+feed_dir;
        list[n].id   = feed;
        n++;
        }
      GMCoverLoader * loader = new GMCoverLoader(covercache->getTempFilename(),list,GMPlayerManager::instance()->getPreferences().gui_coverdisplay_size,this,ID_LOAD_COVERS);
      loader->setFolderOnly(true);
      GMPlayerManager::instance()->runTask(loader);
      }
    }
  }



long GMPodcastSource::onCmdLoadCovers(FXObject*,FXSelector sel,void*ptr) {
  GMCoverLoader * loader = *static_cast<GMCoverLoader**>(ptr);
  if (FXSELTYPE(sel)==SEL_TASK_COMPLETED) {
    covercache->load(loader->getCacheWriter());
    GMPlayerManager::instance()->getTrackView()->redrawAlbumList();
    }
  delete loader;
  return 0;
  }



void GMPodcastSource::updateAvailable() {
  db->execute("SELECT count(id) FROM feed_items WHERE (flags&4)==0",navailable);
  GMPlayerManager::instance()->getSourceView()->refresh(this);
  }


#define SECONDS 1000000000LL


FXlong GMPodcastSource::getUpdateInterval() const {
  return GMApp::instance()->reg().readLongEntry(settingKey(),"update-interval",0);
  }

void GMPodcastSource::setUpdateInterval(FXlong interval) {
  GMApp::instance()->reg().writeLongEntry(settingKey(),"update-interval",interval);
  scheduleUpdate();
  }

void GMPodcastSource::setLastUpdate() {
  GMApp::instance()->reg().writeLongEntry(settingKey(),"last-update",FXThread::time());
  scheduleUpdate();
  }

void GMPodcastSource::scheduleUpdate() {
  FXlong interval   = getUpdateInterval();
  FXTime lastupdate = FXThread::time() - GMApp::instance()->reg().readLongEntry(settingKey(),"last-update",0);
  if (interval) {
    FXlong next = interval - lastupdate;
    GM_DEBUG_PRINT("Podcast schedule %ld %ld %ld\n",interval/SECONDS,lastupdate/SECONDS,next/SECONDS);
    if (next<=(10*SECONDS))
      GMApp::instance()->addTimeout(this,GMPodcastSource::ID_REFRESH_FEED,1*SECONDS);
    else
      GMApp::instance()->addTimeout(this,GMPodcastSource::ID_REFRESH_FEED,next);
    }
  else {
    GMApp::instance()->removeTimeout(this,GMPodcastSource::ID_REFRESH_FEED);
    }
  }



FXString GMPodcastSource::getName() const {
  if (navailable)
    return FXString::value(fxtr("Podcasts (%d)"),navailable);
  else
    return fxtr("Podcasts");
  }



void GMPodcastSource::removeFeeds(const FXIntList & feeds) {
  GMQuery remove_feed_items(db,"DELETE FROM feed_items WHERE feed = ?;");
  GMQuery remove_feed(db,"DELETE FROM feeds WHERE id = ?;");
  GMQuery query_feed_dir(db,"SELECT local FROM feeds WHERE id = ?;");
  GMQuery query_feed_files(db,"SELECT local FROM feed_items WHERE feed = ? AND flags&2;");

  FXString feed_directory;
  FXString file,local;

  for (FXint i=0;i<feeds.no();i++){

    // Get feed directory
    query_feed_dir.execute(feeds[i],feed_directory);

    // Get feed files
    query_feed_files.set(0,feeds[i]);

    // Construct feed directory
    feed_directory.prepend(GMApp::getPodcastDirectory()+PATHSEPSTRING);

    GM_DEBUG_PRINT("feed dir: %s\n",feed_directory.text());

    // Delete all music files
    while(query_feed_files.row()) {
      query_feed_files.get(0,local);

      if (!local.empty()) {
        file = feed_directory+PATHSEPSTRING+local;
        GM_DEBUG_PRINT("feed file: %s\n",file.text());
        if (FXStat::exists(file))
          FXFile::remove(file);
        }

      }

    // try removing feed directory
    if (FXStat::exists(feed_directory) && !FXDir::remove(feed_directory))
      fxwarning("failed to remove feed directory");

    try {
      GMLockTransaction transaction(db);

      // Remove feed items
      remove_feed_items.update(feeds[i]);

      // Remove feed
      remove_feed.update(feeds[i]);

      transaction.commit();
      }
    catch(GMDatabaseException&) {
      }
    }
  }


void GMPodcastSource::configure(GMColumnList& list){
  list.no(4);
  list[0]=GMColumn(notr("Date"),HEADER_DATE,GMFeedItem::ascendingDate,GMFeedItem::descendingDate,200,true,true,1);
  list[1]=GMColumn(notr("Feed"),HEADER_ALBUM,GMFeedItem::ascendingFeed,GMFeedItem::descendingFeed,100,true,true,1);
  list[2]=GMColumn(notr("Title"),HEADER_TITLE,GMFeedItem::ascendingTitle,GMFeedItem::descendingTitle,200,true,true,1);
  list[3]=GMColumn(notr("Time"),HEADER_TIME,GMFeedItem::ascendingTime,GMFeedItem::descendingTime,200,true,true,1);
  }


FXbool GMPodcastSource::hasCurrentTrack(GMSource * src) const {
  if (src==this) return true;
  return false;
  }

FXbool GMPodcastSource::setTrack(GMTrack&) const {
  return false;
  }

FXbool GMPodcastSource::getTrack(GMTrack & info) const {
  GMQuery q(db,"SELECT feed_items.url,feed_items.local,feeds.local,feeds.title,feed_items.title FROM feed_items,feeds WHERE feeds.id == feed_items.feed AND feed_items.id == ?;");
  FXString local;
  FXString localdir;
  q.set(0,current_track);
  if (q.row()) {
    q.get(0,info.url);
    q.get(1,local);
    q.get(2,localdir);
    if (!local.empty()){
      info.url = GMApp::getPodcastDirectory() + PATHSEPSTRING + localdir + PATHSEPSTRING + local;
      }
    info.artist       = q.get(3);
    info.album_artist = q.get(3);
    info.album        = q.get(3);
    info.title        = q.get(4);
    }
  return true;
  }

FXbool GMPodcastSource::source_menu(FXMenuPane * pane){
  new GMMenuCommand(pane,fxtr("Add Podcast…"),nullptr,this,ID_ADD_FEED);
  return true;
  }

FXbool GMPodcastSource::source_context_menu(FXMenuPane * pane){
  new GMMenuCommand(pane,fxtr("Refresh\t\t"),nullptr,this,ID_REFRESH_FEED);
  new GMMenuCommand(pane,fxtr("Add Podcast…"),nullptr,this,ID_ADD_FEED);
  return true;
  }

FXbool GMPodcastSource::album_context_menu(FXMenuPane * pane){
  GMPodcastFeed * item = static_cast<GMPodcastFeed*>(GMPlayerManager::instance()->getTrackView()->getCurrentAlbumItem());
  GMMenuCheck * autodownload = new GMMenuCheck(pane,fxtr("Auto Download"),this,ID_AUTO_DOWNLOAD);
  if (item->isAutoDownload())
    autodownload->setCheck(true);
  new FXMenuSeparator(pane);
  new GMMenuCommand(pane,fxtr("Remove Podcast"),nullptr,this,ID_REMOVE_FEED);
  return true;
  }

FXbool GMPodcastSource::track_context_menu(FXMenuPane * pane){
  new GMMenuCommand(pane,fxtr("Download"),nullptr,this,ID_DOWNLOAD_FEED);
  new GMMenuCommand(pane,fxtr("Mark Played"),nullptr,this,ID_MARK_PLAYED);
  new GMMenuCommand(pane,fxtr("Mark New"),nullptr,this,ID_MARK_NEW);
  new GMMenuCommand(pane,fxtr("Remove Local"),nullptr,this,ID_DELETE_LOCAL);
  return true;
  }

FXbool GMPodcastSource::listTags(GMList * list,FXIcon * icon){
  GMQuery q(db,"SELECT id,name FROM tags WHERE id in (SELECT DISTINCT(tag) FROM feeds);");
  FXint id;
  const FXchar * c_title;
  while(q.row()){
      q.get(0,id);
      c_title = q.get(1);
      list->appendItem(c_title,icon,(void*)(FXival)id);
      }
  return true;
  }

FXbool GMPodcastSource::listAlbums(GMAlbumList *list,const FXIntList &,const FXIntList & taglist){
  FXString q = "SELECT id,title,autodownload FROM feeds";
  if (taglist.no()) {
    FXString tagselection;
    GMQuery::makeSelection(taglist,tagselection);
    q += " WHERE tag " + tagselection;
    }

  GMQuery query;
  query = db->compile(q);

  const FXchar * c_title;
  FXint id,autodownload;
  GMPodcastFeed* item;
  while(query.row()){
      query.get(0,id);
      c_title = query.get(1);
      query.get(2,autodownload);
      item = new GMPodcastFeed(c_title,autodownload,id);
      list->appendItem(item);
      }

  list->sortItems();
  if (list->getNumItems()>1){
    FXString all = FXString::value(fxtrformat("All %d Feeds"),list->getNumItems());
    list->prependItem(new GMPodcastFeed(all,false,-1));
    }
  return true;
  }


FXbool GMPodcastSource::listTracks(GMTrackList * tracklist,const FXIntList & albumlist,const FXIntList & taglist){
  FXString selection,tagselection;
  GMQuery::makeSelection(albumlist,selection);
  GMQuery::makeSelection(taglist,tagselection);

  FXString query = "SELECT feed_items.id,feeds.title,feed_items.title,time,feed_items.date,flags FROM feed_items, feeds";
  query+=" WHERE feeds.id == feed_items.feed";

  if (albumlist.no())
    query+=" AND feed " + selection;

  if (taglist.no())
    query+=" AND feeds.tag " + tagselection;

  GMQuery q(db,query.text());
  const FXchar * c_title;
  const FXchar * c_feed;
  FXint id;
  FXTime date;
  FXuint time;
  FXuint flags;

  while(q.row()){
      q.get(0,id);
      c_feed = q.get(1);
      c_title = q.get(2);
      q.get(3,time);
      q.get(4,date);
      q.get(5,flags);
      GMFeedItem* item = new GMFeedItem(id,c_feed,c_title,date,time,flags);
      tracklist->appendItem(item);
      }
  return true;
  }


void GMPodcastSource::refreshFeeds() {
  FXint num_feeds=0;
  db->execute("SELECT COUNT(*) FROM feeds;",num_feeds);
  if (num_feeds) {
    GM_DEBUG_PRINT("Found %d feeds. Running Podcast Updater\n",num_feeds);
    GMPlayerManager::instance()->runTask(new GMPodcastUpdater(this,ID_FEED_UPDATER));
    }
  }

long GMPodcastSource::onCmdRefreshFeed(FXObject*,FXSelector,void*){
  refreshFeeds();
  return 1;
  }


void GMPodcastSource::setItemFlags(FXuint add,FXuint remove,FXuint condition){
  GMQuery q(db,"UPDATE feed_items SET flags = (flags&~(?))|? WHERE flags&?");
  q.set(0,remove);
  q.set(1,add);
  q.set(2,condition);
  q.execute();
  }



long GMPodcastSource::onCmdFeedUpdated(FXObject*,FXSelector,void*ptr){
  GMTask * task = *static_cast<GMTask**>(ptr);
  db->execute("SELECT count(id) FROM feed_items WHERE (flags&4)==0",navailable);

  // Retry any failed downloads
  setItemFlags(ITEM_QUEUE,ITEM_FAILED,ITEM_FAILED);

  if (downloader==nullptr) {
    FXint n;
    db->execute("SELECT count(id) FROM feed_items WHERE flags&1",n);
    if (n)  {
      GM_DEBUG_PRINT("Found %d queued. Start fetching\n",n);
      downloader = new GMPodcastDownloader(FXApp::instance(),this);
      downloader->start();
      }
    }

  GMPlayerManager::instance()->getSourceView()->refresh(this);
  setLastUpdate();
  delete task;
  return 0;
  }

long GMPodcastSource::onCmdDownloadFeed(FXObject*,FXSelector,void*){
  try {
    GMLockTransaction transaction(db);
    FXIntList tracks;
    GMPlayerManager::instance()->getTrackView()->getSelectedTracks(tracks);
    GMQuery queue_tracks(db,"UPDATE feed_items SET flags = (flags|1) WHERE id == ?;");
    for (FXint i=0;i<tracks.no();i++){
      queue_tracks.set(0,tracks[i]);
      queue_tracks.execute();
      }
    transaction.commit();
    if (downloader==nullptr) {
      downloader = new GMPodcastDownloader(FXApp::instance(),this);
      downloader->start();
      }
    }
  catch(GMDatabaseException&) {
    }
  return 1;
  }


long GMPodcastSource::onCmdDeleteLocal(FXObject*,FXSelector,void*){
  FXIntList tracks;
  GMPlayerManager::instance()->getTrackView()->getSelectedTracks(tracks);
  GMQuery get_local(db,"SELECT (? || '/' || feeds.local || '/' || feed_items.local)  FROM feed_items,feeds WHERE feeds.id == feed_items.feed AND feed_items.id == ? AND feed_items.flags&2;");
  GMQuery clear_local(db,"UPDATE feed_items SET flags = (flags&~(?)) WHERE id == ?");
  FXString local;
  FXString localdir;
  for (FXint i=0;i<tracks.no();i++) {
    get_local.set(0,GMApp::getPodcastDirectory());
    get_local.set(1,tracks[i]);
    if (get_local.row()) {
      get_local.get(0,local);
      GM_DEBUG_PRINT("delete local: %s\n",local.text());
      if (FXFile::remove(local) || !FXStat::exists(local)) {
        clear_local.set(0,ITEM_LOCAL);
        clear_local.set(1,tracks[i]);
        clear_local.execute();
        }
      else {
        GM_DEBUG_PRINT("failed to remove local: %s\n",local.text());
        }
      get_local.reset();
      }
    }
  return 1;
  }

long GMPodcastSource::onCmdAutoDownload(FXObject*,FXSelector,void*){
  try {
    GMLockTransaction transaction(db);
    GMPodcastFeed * item = static_cast<GMPodcastFeed*>(GMPlayerManager::instance()->getTrackView()->getCurrentAlbumItem());
    GMQuery update_feed(db,"UPDATE feeds SET autodownload = ? WHERE id == ?;");
    update_feed.set(0,!item->isAutoDownload());
    update_feed.set(1,item->getId());
    update_feed.execute();
    transaction.commit();
    item->setAutoDownload(!item->isAutoDownload());
    }
  catch(GMDatabaseException&) {
    }
  return 1;
  }
















long GMPodcastSource::onCmdMarkNew(FXObject*,FXSelector,void*){
  try {
    GMLockTransaction transaction(db);
    FXIntList tracks;
    GMPlayerManager::instance()->getTrackView()->getSelectedTracks(tracks);
    GMQuery mark_tracks(db,"UPDATE feed_items SET flags = (flags&~(4)) WHERE id == ?;");
    for (FXint i=0;i<tracks.no();i++){
      mark_tracks.set(0,tracks[i]);
      mark_tracks.execute();
      }
    transaction.commit();
    updateAvailable();
    }
  catch(GMDatabaseException&) {
    }
  return 1;
  }


long GMPodcastSource::onCmdMarkPlayed(FXObject*,FXSelector,void*){
  try {
    GMLockTransaction transaction(db);
    FXIntList tracks;
    GMPlayerManager::instance()->getTrackView()->getSelectedTracks(tracks);
    GMQuery queue_tracks(db,"UPDATE feed_items SET flags = (flags|4) WHERE id == ?;");
    for (FXint i=0;i<tracks.no();i++){
      queue_tracks.set(0,tracks[i]);
      queue_tracks.execute();
      }
    transaction.commit();
    updateAvailable();
    }
  catch(GMDatabaseException&) {
    }
  return 1;
  }

long GMPodcastSource::onCmdTrackPlayed(FXObject*,FXSelector,void*) {
  try {
    GMLockTransaction transaction(db);
    FXTRACE((60,"%s::onCmdTrackPlayed\n",getClassName()));
    FXASSERT(current_track>=0);
    GMQuery set_played(db,"UPDATE feed_items SET flags = (flags|4) WHERE id == ?;");
    set_played.set(0,current_track);
    set_played.execute();
    transaction.commit();
    updateAvailable();
    }
  catch(GMDatabaseException&) {
    }
  return 1;
  }




long GMPodcastSource::onCmdAddFeed(FXObject*,FXSelector,void*){
  FXDialogBox dialog(GMPlayerManager::instance()->getMainWindow(),fxtr("Subscribe to Podcast"),DECOR_TITLE|DECOR_BORDER|DECOR_RESIZE,0,0,0,0,0,0,0,0,0,0);
  GMPlayerManager::instance()->getMainWindow()->create_dialog_header(&dialog,fxtr("Subscribe to Podcast"),fxtr("Specify url for the rss feed"),nullptr);
  FXHorizontalFrame *closebox=new FXHorizontalFrame(&dialog,LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|PACK_UNIFORM_WIDTH,0,0,0,0);
  new GMButton(closebox,fxtr("Subscribe"),nullptr,&dialog,FXDialogBox::ID_ACCEPT,BUTTON_INITIAL|BUTTON_DEFAULT|LAYOUT_RIGHT|FRAME_RAISED|FRAME_THICK,0,0,0,0, 15,15);
  new GMButton(closebox,fxtr("&Cancel"),nullptr,&dialog,FXDialogBox::ID_CANCEL,BUTTON_DEFAULT|LAYOUT_RIGHT|FRAME_RAISED|FRAME_THICK,0,0,0,0, 15,15);
  new FXSeparator(&dialog,SEPARATOR_GROOVE|LAYOUT_FILL_X|LAYOUT_SIDE_BOTTOM);
  FXVerticalFrame * main = new FXVerticalFrame(&dialog,LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,10,5,10,10);
  FXMatrix * matrix = new FXMatrix(main,2,LAYOUT_FILL_X|MATRIX_BY_COLUMNS);
  new FXLabel(matrix,fxtr("Location"),nullptr,LABEL_NORMAL|LAYOUT_RIGHT|LAYOUT_CENTER_Y);
  GMTextField * location_field = new GMTextField(matrix,40,nullptr,0,LAYOUT_FILL_X|LAYOUT_FILL_COLUMN|FRAME_SUNKEN|FRAME_THICK);
  if (dialog.execute()) {
    FXString url=location_field->getText().trim();
    if (!url.empty()) {
      GMImportPodcast * podcast = new GMImportPodcast(FXApp::instance(),db,url);
      podcast->start();
      }
    }
  return 1;
  }

long GMPodcastSource::onCmdRemoveFeed(FXObject*,FXSelector,void*){
  FXIntList feeds;
  GMPlayerManager::instance()->getTrackView()->getSelectedAlbums(feeds);
  if (FXMessageBox::question(GMPlayerManager::instance()->getMainWindow(),MBOX_YES_NO,fxtr("Remove Feed?"),fxtr("Remove feed and all downloaded episodes?"))==MBOX_CLICKED_YES) {
    removeFeeds(feeds);
    GMPlayerManager::instance()->getTrackView()->refresh();
    }
  return 1;
  }

FXuint GMPodcastSource::dnd_provides(FXDragType types[]){
  types[0]=GMClipboard::kdeclipboard;
  types[1]=GMClipboard::urilistType;
  return 2;
  }

long GMPodcastSource::onCmdCopyTrack(FXObject*,FXSelector,void*){
  FXDragType types[3]={GMClipboard::kdeclipboard,GMClipboard::gnomeclipboard,FXWindow::urilistType};
  GMPodcastClipboardData * data = new GMPodcastClipboardData;
  if (GMClipboard::instance()->acquire(this,types,3,data)){
    FXApp::instance()->beginWaitCursor();
    data->src=this;
    GMPlayerManager::instance()->getTrackView()->getSelectedTracks(data->ids);
    FXApp::instance()->endWaitCursor();
    }
  else {
    delete data;
    FXApp::instance()->beep();
    }
  return 1;
  }

long GMPodcastSource::onCmdRequestTrack(FXObject*sender,FXSelector,void*ptr){
  FXEvent* event=(FXEvent*)ptr;
  FXWindow*window=(FXWindow*)sender;
  if(event->target==GMClipboard::urilistType){
    FXStringList filenames;
    FXIntList tracks;
    FXString uri;
    GMPlayerManager::instance()->getTrackView()->getSelectedTracks(tracks);
    getLocalFiles(tracks,filenames);
    gm_convert_filenames_to_uri(filenames,uri);
    window->setDNDData(FROM_DRAGNDROP,event->target,uri);
    return 1;
    }
  else if (event->target==GMClipboard::kdeclipboard){
    window->setDNDData(FROM_DRAGNDROP,event->target,"0"); // copy
    return 1;
    }
  return 0;
  }
