// plasmaCrawlerLoader.java 
// ------------------------
// part of YaCy
// (C) by Michael Peter Christen; mc@anomic.de
// first published on http://www.anomic.de
// Frankfurt, Germany, 2004
//
// $LastChangedDate$
// $LastChangedRevision$
// $LastChangedBy$
//
// 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 2 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, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// Using this software in any meaning (reading, learning, copying, compiling,
// running) means that you agree that the Author(s) is (are) not responsible
// for cost, loss of data or any harm that may be caused directly or indirectly
// by usage of this softare or this documentation. The usage of this software
// is on your own risk. The installation and usage (starting/running) of this
// software may allow other people or application to access your computer and
// any attached devices and is highly dependent on the configuration of the
// software which must be done by the user of the software; the author(s) is
// (are) also not responsible for proper configuration and usage of the
// software, even if provoked by documentation provided together with
// the software.
//
// Any changes to this file according to the GPL as documented in the file
// gpl.txt aside this file in the shipment you received can be done to the
// lines that follows this copyright notice here, but changes must not be
// done inside the copyright notive above. A re-distribution must contain
// the intact and unchanged copyright notice.
// Contributions and changes to the program code must be marked as such.

package de.anomic.plasma;

import java.net.URL;
import java.util.ArrayList;
import java.util.Collections;
import java.util.Comparator;

import org.apache.commons.pool.impl.GenericObjectPool;

import de.anomic.server.serverSemaphore;
import de.anomic.server.logging.serverLog;

public final class plasmaCrawlLoader extends Thread {

    static plasmaSwitchboard switchboard;

    private final plasmaHTCache   cacheManager;
    private final serverLog       log;   

    private final CrawlerMessageQueue theQueue;
    private final CrawlerPool crawlwerPool;
    private GenericObjectPool.Config crawlerPoolConfig = null; 
    private final ThreadGroup theThreadGroup = new ThreadGroup("CrawlerThreads");
    private boolean stopped = false;

    public plasmaCrawlLoader(
            plasmaHTCache theCacheManager, 
            serverLog theLog) {
        
        this.setName("plasmaCrawlLoader");

        this.cacheManager    = theCacheManager;
        this.log             = theLog;

        // configuring the crawler messagequeue
        this.theQueue = new CrawlerMessageQueue();

        // configuring the crawler thread pool
        // implementation of session thread pool
        this.crawlerPoolConfig = new GenericObjectPool.Config();

        // The maximum number of active connections that can be allocated from pool at the same time,
        // 0 for no limit
        this.crawlerPoolConfig.maxActive = Integer.parseInt(switchboard.getConfig("crawler.MaxActiveThreads","10"));

        // The maximum number of idle connections connections in the pool
        // 0 = no limit.        
        this.crawlerPoolConfig.maxIdle = Integer.parseInt(switchboard.getConfig("crawler.MaxIdleThreads","7"));
        this.crawlerPoolConfig.minIdle = Integer.parseInt(switchboard.getConfig("crawler.MinIdleThreads","5"));    

        // block undefinitely 
        this.crawlerPoolConfig.maxWait = -1; 

        // Action to take in case of an exhausted DBCP statement pool
        // 0 = fail, 1 = block, 2= grow        
        this.crawlerPoolConfig.whenExhaustedAction = GenericObjectPool.WHEN_EXHAUSTED_BLOCK; 
        this.crawlerPoolConfig.minEvictableIdleTimeMillis = 30000; 
        //this.crawlerPoolConfig.timeBetweenEvictionRunsMillis = 30000;
//        config.testOnReturn = true;

        CrawlerFactory theFactory = new CrawlerFactory(
                this.theThreadGroup,
                switchboard,
                cacheManager,
                log);

        this.crawlwerPool = new CrawlerPool(theFactory,this.crawlerPoolConfig,this.theThreadGroup);        
        
        // start the crawl loader
        this.start();
    }

    public GenericObjectPool.Config getPoolConfig() {
        return this.crawlerPoolConfig;
    }

    public void setPoolConfig(GenericObjectPool.Config newConfig) {
        this.crawlwerPool.setConfig(newConfig);
    }

    public void close() {
        try {
            // setting the stop flag to true
            this.stopped = true;

            // interrupting the plasmaCrawlLoader
            this.interrupt();

            // waiting for the thread to finish...
            this.log.logInfo("Waiting for plasmaCrawlLoader shutdown ...");
            this.join(5000);
        } catch (Exception e) {
            // we where interrupted while waiting for the crawlLoader Thread to finish
        }
    }

    public ThreadGroup threadStatus() {
        return this.theThreadGroup;
    }
    
    public void run() {

        while (!this.stopped && !Thread.interrupted()) {
            try {
                // getting a new message from the crawler queue
                plasmaCrawlLoaderMessage theMsg = this.theQueue.waitForMessage();

                // getting a new crawler from the crawler pool
                plasmaCrawlWorker theWorker = (plasmaCrawlWorker) this.crawlwerPool.borrowObject();
                theWorker.execute(theMsg);

            } catch (InterruptedException e) {
                Thread.interrupted();
                this.stopped = true;
            }
            catch (Exception e) {
                this.log.logSevere("plasmaCrawlLoader.run/loop", e);
            }
        }

        // consuming the "is interrupted"-flag
        this.isInterrupted();

        // closing the pool
        try {
            this.crawlwerPool.close();
        }
        catch (Exception e) {
            this.log.logSevere("plasmaCrawlLoader.run/close", e);
        }
        
    }

    public void loadParallel(
            URL url, 
            String name,
            String referer, 
            String initiator, 
            int depth, 
            plasmaCrawlProfile.entry profile) {

        if (!this.crawlwerPool.isClosed) {            
            int crawlingPriority = 5;
            
            // creating a new crawler queue object
            plasmaCrawlLoaderMessage theMsg = new plasmaCrawlLoaderMessage(url, name, referer, initiator, depth, profile, crawlingPriority);
            
            // adding the message to the queue
            try  {
                this.theQueue.addMessage(theMsg);
            } catch (InterruptedException e) {
                this.log.logSevere("plasmaCrawlLoader.loadParallel", e);
            }
        }
    }

    public int getNumIdleWorker() {
        return crawlwerPool.getNumIdle();
    }
    
    public int getNumActiveWorker() {
        return size();
    }
    
    public int size() {
        return crawlwerPool.getNumActive();
    }
}

class CrawlerMessageQueue {
    private final serverSemaphore readSync;
    private final serverSemaphore writeSync;
    private final ArrayList messageList;
    
    public CrawlerMessageQueue()  {
        this.readSync  = new serverSemaphore (0);
        this.writeSync = new serverSemaphore (1);
        
        this.messageList = new ArrayList(10);        
    }

    /**
     * 
     * @param newMessage
     * @throws MessageQueueLockedException
     * @throws InterruptedException
     */
    public void addMessage(plasmaCrawlLoaderMessage newMessage) 
        throws InterruptedException, NullPointerException 
    {
        if (newMessage == null) throw new NullPointerException();

        this.writeSync.P();

            boolean insertionDoneSuccessfully = false;
            synchronized(this.messageList) {
                insertionDoneSuccessfully = this.messageList.add(newMessage);
            }

            if (insertionDoneSuccessfully)  {
                this.sortMessages();
                this.readSync.V();              
            }
        
        this.writeSync.V();
    }

    public plasmaCrawlLoaderMessage waitForMessage() throws InterruptedException {
        this.readSync.P();         
        this.writeSync.P();

        plasmaCrawlLoaderMessage newMessage = null;
        synchronized(this.messageList) {               
            newMessage = (plasmaCrawlLoaderMessage) this.messageList.remove(0);
        }

        this.writeSync.V();
        return newMessage;
    }

    protected void sortMessages() {
        Collections.sort(this.messageList, new Comparator()  { 
            public int compare(Object o1, Object o2)
            {
                plasmaCrawlLoaderMessage message1 = (plasmaCrawlLoaderMessage) o1; 
                plasmaCrawlLoaderMessage message2 = (plasmaCrawlLoaderMessage) o2; 
                
                int message1Priority = message1.crawlingPriority;
                int message2Priority = message2.crawlingPriority;
                
                if (message1Priority > message2Priority){ 
                    return -1; 
                } else if (message1Priority < message2Priority) { 
                    return 1; 
                }  else { 
                    return 0; 
                }            
            } 
        }); 
    }
}

final class CrawlerPool extends GenericObjectPool {
    private final ThreadGroup theThreadGroup;
    public boolean isClosed = false;

    public CrawlerPool(CrawlerFactory objFactory,
                       GenericObjectPool.Config config,
                       ThreadGroup threadGroup) {
        super(objFactory, config);
        this.theThreadGroup = threadGroup;
        objFactory.setPool(this);
    }

    public Object borrowObject() throws Exception  {
       return super.borrowObject();
    }

    public void returnObject(Object obj) {
        if (obj == null) return;
        if (obj instanceof plasmaCrawlWorker) {
            try {
                ((plasmaCrawlWorker)obj).setName(plasmaCrawlWorker.threadBaseName + "_inPool");
                super.returnObject(obj);
            } catch (Exception e) {
                ((plasmaCrawlWorker)obj).setStopped(true);
                serverLog.logSevere("CRAWLER-POOL","Unable to return crawler thread to pool.",e);                
            }
        } else {
            serverLog.logSevere("CRAWLER-POOL","Object of wront type '" + obj.getClass().getName() +
            "' returned to pool.");            
        }        
    }        
    
    public void invalidateObject(Object obj) {
        if (obj == null) return;
        if (this.isClosed) return;
        if (obj instanceof plasmaCrawlWorker) {
            try {
                ((plasmaCrawlWorker)obj).setName(plasmaCrawlWorker.threadBaseName + "_invalidated");
                ((plasmaCrawlWorker)obj).setStopped(true);
                super.invalidateObject(obj);
            } catch (Exception e) {
                serverLog.logSevere("CRAWLER-POOL","Unable to invalidate crawling thread.",e); 
            }
        }
    }        
    
    public synchronized void close() throws Exception {
        try {
            /*
             * shutdown all still running session threads ...
             */
            this.isClosed  = true;

            /* waiting for all threads to finish */
            int threadCount  = this.theThreadGroup.activeCount();    
            Thread[] threadList = new Thread[threadCount];     
            threadCount = this.theThreadGroup.enumerate(threadList);

            // signaling shutdown to all still running or pooled threads ...
            serverLog.logInfo("CRAWLER","Signaling shutdown to " + threadCount + " remaining crawler threads ...");
            for ( int currentThreadIdx = 0; currentThreadIdx < threadCount; currentThreadIdx++ )  {
                ((plasmaCrawlWorker)threadList[currentThreadIdx]).setStopped(true);
            }   

            // giving the crawlers some time to finish shutdown
            try { Thread.sleep(500); } catch(Exception e) {}            

            // sending interrupted signal to all remaining threads
            serverLog.logInfo("CRAWLER","Sending interruption signal to " + this.theThreadGroup.activeCount() + " remaining crawler threads ...");
            this.theThreadGroup.interrupt();        

            // aborting all crawlers by closing all still open httpc sockets
            serverLog.logInfo("CRAWLER","Trying to abort  " + this.theThreadGroup.activeCount() + " remaining crawler threads ...");
            for ( int currentThreadIdx = 0; currentThreadIdx < threadCount; currentThreadIdx++ )  {
                Thread currentThread = threadList[currentThreadIdx];
                if (currentThread.isAlive()) {
                    serverLog.logInfo("CRAWLER","Trying to shutdown crawler thread '" + currentThread.getName() + "' [" + currentThreadIdx + "].");
                    ((plasmaCrawlWorker)currentThread).close();
                }
            }            

            serverLog.logInfo("CRAWLER","Waiting for " + this.theThreadGroup.activeCount() + " remaining crawler threads to finish shutdown ...");
            for ( int currentThreadIdx = 0; currentThreadIdx < threadCount; currentThreadIdx++ )  {
                Thread currentThread = threadList[currentThreadIdx];
                if (currentThread.isAlive()) {
                    serverLog.logInfo("CRAWLER","Waiting for crawler thread '" + currentThread.getName() + "' [" + currentThreadIdx + "] to finish shutdown.");
                    try { currentThread.join(500); } catch (InterruptedException ex) {}
                }
            }
            serverLog.logWarning("CRAWLER","Shutdown of remaining crawler threads finish.");
        }
        catch (Exception e) {
            serverLog.logWarning("CRAWLER","Unexpected error while trying to shutdown all remaining crawler threads.",e);  
        }        

        super.close();        

    }

}

final class CrawlerFactory implements org.apache.commons.pool.PoolableObjectFactory {

    private CrawlerPool thePool;
    private final ThreadGroup theThreadGroup;
    private final plasmaHTCache   cacheManager;
    private final serverLog       theLog;
    private final plasmaSwitchboard sb;

    public CrawlerFactory(           
            ThreadGroup threadGroup,
            plasmaSwitchboard theSb,
            plasmaHTCache theCacheManager,
            serverLog log) {

        super();  

        if (threadGroup == null)
            throw new IllegalArgumentException("The threadgroup object must not be null.");

        this.theThreadGroup = threadGroup;
        this.cacheManager = theCacheManager;
        this.sb = theSb;  
        this.theLog = log;
    }

    public void setPool(CrawlerPool pool) {
        this.thePool = pool;    
    }

    /**
     * @see org.apache.commons.pool.PoolableObjectFactory#makeObject()
     */
    public Object makeObject() {
        return new plasmaCrawlWorker(
                this.theThreadGroup,
                this.thePool,
                this.sb,
                this.cacheManager,
                this.theLog);
    }

     /**
     * @see org.apache.commons.pool.PoolableObjectFactory#destroyObject(java.lang.Object)
     */
    public void destroyObject(Object obj) {
        if (obj == null) return;
        if (obj instanceof plasmaCrawlWorker) {
            plasmaCrawlWorker theWorker = (plasmaCrawlWorker) obj;
            synchronized(theWorker) {
                theWorker.destroyed = true;
                theWorker.setName(plasmaCrawlWorker.threadBaseName + "_destroyed");
                theWorker.setStopped(true);
                theWorker.interrupt();
            }
        }
    }

    /**
     * @see org.apache.commons.pool.PoolableObjectFactory#validateObject(java.lang.Object)
     */
    public boolean validateObject(Object obj) {
        return true;
    }

    /**
     * @param obj 
     * 
     */
    public void activateObject(Object obj)  {
        //log.debug(" activateObject...");
    }

    /**
     * @param obj 
     * 
     */
    
    public void passivateObject(Object obj) { 
        //log.debug(" passivateObject..." + obj);
    	/*
        if (obj instanceof plasmaCrawlWorker)  {
            plasmaCrawlWorker theWorker = (plasmaCrawlWorker) obj;             
        }
     */
    }
    
}