/*
* cardmon.cpp
*
* ---------------------
*
* copyright   : (c) 2002 by Maximilian Reiss
* email       : max.reiss@gmx.de
* based on two apps by Devin Butterfield
*/
/***************************************************************************
 *                                                                         *
 *   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.                                   *
 *                                                                         *
 ***************************************************************************/

#include "cardmon.h"

/* OPIE */
#include <opie2/odevice.h>
#include <opie2/otaskbarapplet.h>
#include <qpe/applnk.h>
#include <qpe/resource.h>

/* QT */
#include <qcopchannel_qws.h>
#include <qpainter.h>
#include <qfile.h>
#include <qtextstream.h>
#include <qsound.h>
#include <qtimer.h>

/* STD */
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>

#if defined(_OS_LINUX_) || defined(Q_OS_LINUX)
#include <sys/vfs.h>
#include <mntent.h>
#endif

using namespace Opie;

CardMonitor::CardMonitor( QWidget * parent ) : QWidget( parent ),
        pm( Resource::loadPixmap( "cardmon/pcmcia" ) )
{

    QCopChannel * pcmciaChannel = new QCopChannel( "QPE/Card", this );
    connect( pcmciaChannel,
             SIGNAL( received( const QCString &, const QByteArray & ) ), this,
             SLOT( cardMessage( const QCString &, const QByteArray & ) ) );

    QCopChannel *sdChannel = new QCopChannel( "QPE/Card", this );
    connect( sdChannel,
             SIGNAL( received( const QCString &, const QByteArray & ) ), this,
             SLOT( cardMessage( const QCString &, const QByteArray & ) ) );

    cardInPcmcia0 = FALSE;
    cardInPcmcia1 = FALSE;
    cardInSd = FALSE;

    setFocusPolicy( NoFocus );

    setFixedWidth ( AppLnk::smallIconSize() );
    setFixedHeight ( AppLnk::smallIconSize() );

    getStatusPcmcia( TRUE );
    getStatusSd( TRUE );
    repaint( FALSE );
    popupMenu = 0;
}

CardMonitor::~CardMonitor()
{
    if ( popupMenu )
    {
        delete popupMenu;
    }
}

void CardMonitor::popUp( QString message, QString icon )
{
    if ( !popupMenu )
    {
        popupMenu = new QPopupMenu( this );
    }

    popupMenu->clear();
    if ( icon.isEmpty() )
    {
        popupMenu->insertItem( message, 0 );
    }
    else
    {
        popupMenu->insertItem( QIconSet( Resource::loadPixmap( icon ) ),
                               message, 0 );
    }

    QPoint p = mapToGlobal( QPoint( 0, 0 ) );
    QSize s = popupMenu->sizeHint();
    popupMenu->popup( QPoint( p.x() + ( width() / 2 ) - ( s.width() / 2 ),
                              p.y() - s.height() ), 0 );

    QTimer::singleShot( 2000, this, SLOT( popupTimeout() ) );
}

void CardMonitor::popupTimeout()
{
    popupMenu->hide();
}

void CardMonitor::mousePressEvent( QMouseEvent * )
{
    QPopupMenu * menu = new QPopupMenu( this );
    QString cmd;
    int err = 0;

    if ( cardInSd )
    {
        menu->insertItem( QIconSet( Resource::loadPixmap( "cardmon/ide" ) ),
                          tr( "Eject SD/MMC card" ), 0 );
    }

    if ( cardInPcmcia0 )
    {
        menu->
        insertItem( QIconSet
                    ( Resource::loadPixmap( "cardmon/" + cardInPcmcia0Type ) ),
                    tr( "Eject card 0: %1" ).arg( cardInPcmcia0Name ), 1 );
    }

    if ( cardInPcmcia1 )
    {
        menu->
        insertItem( QIconSet
                    ( Resource::loadPixmap( "cardmon/" + cardInPcmcia1Type ) ),
                    tr( "Eject card 1: %1" ).arg( cardInPcmcia1Name ), 2 );
    }

    QPoint p = mapToGlobal( QPoint( 0, 0 ) );
    QSize s = menu->sizeHint();
    int opt = menu->exec( QPoint( p.x() + ( width() / 2 ) - ( s.width() / 2 ),
                                  p.y() - s.height() ), 0 );

    if ( opt == 1 )
    {
        cmd = "/sbin/cardctl eject 0";
        err = system( ( const char * ) cmd );
        if ( err != 0 )
        {
            qDebug( "Could not execute `/sbin/cardctl eject 0'! err=%d",
                    err );
            popUp( tr( "CF/PCMCIA card eject failed!" ) );
        }
    }
    else if ( opt == 0 )
    {
        if ( ODevice::inst() ->system() == System_Familiar )
        {
            cmd = "umount /dev/mmc/part1";
        }
        else
        {
            cmd = "umount /dev/mmcda1";
        }
        err = system( ( const char * ) cmd );
        if ( err != 0 )
        {
            popUp( tr( "SD/MMC card eject failed!" ) );
        }
    }
    else if ( opt == 2 )
    {
        cmd = "/sbin/cardctl eject 1";
        err = system( ( const char * ) cmd );
        if ( err != 0 )
        {
            qDebug( "Could not execute `/sbin/cardctl eject 1'! err=%d",
                    err );
            popUp( tr( "CF/PCMCIA card eject failed!" ) );
        }
    }
    delete menu;
}


void CardMonitor::cardMessage( const QCString & msg, const QByteArray & )
{
    if ( msg == "stabChanged()" )
    {
        // qDebug("Pcmcia: stabchanged");
        getStatusPcmcia();
    }
    else if ( msg == "mtabChanged()" )
    {
        // qDebug("CARDMONAPPLET: mtabchanged");
        getStatusSd();
    }
}

bool CardMonitor::getStatusPcmcia( int showPopUp )
{

    bool cardWas0 = cardInPcmcia0;	// remember last state
    bool cardWas1 = cardInPcmcia1;

    QString fileName;

    // one of these 3 files should exist
    if ( QFile::exists( "/var/run/stab" ) )
    {
        fileName = "/var/run/stab";
    }
    else if ( QFile::exists( "/var/state/pcmcia/stab" ) )
    {
        fileName = "/var/state/pcmcia/stab";
    }
    else
    {
        fileName = "/var/lib/pcmcia/stab";
    }

    QFile f( fileName );

    if ( f.open( IO_ReadOnly ) )
    {
        QStringList list;
        QTextStream stream( &f );
        QString streamIn;
        streamIn = stream.read();
        list = QStringList::split( "\n", streamIn );
        for ( QStringList::Iterator line = list.begin(); line != list.end();
                line++ )
        {
            if ( ( *line ).startsWith( "Socket 0:" ) )
            {
                if ( ( *line ).startsWith( "Socket 0: empty" ) && cardInPcmcia0 )
                {
                    cardInPcmcia0 = FALSE;
                }
                else if ( !( *line ).startsWith( "Socket 0: empty" )
                          && !cardInPcmcia0 )
                {
                    cardInPcmcia0Name =
                        ( *line ).mid( ( ( *line ).find( ':' ) + 1 ),
                                       ( *line ).length() - 9 );
                    cardInPcmcia0Name.stripWhiteSpace();
                    cardInPcmcia0 = TRUE;
                    show();
                    line++;
                    int pos = ( *line ).find( '\t' ) + 1;
                    cardInPcmcia0Type =
                        ( *line ).mid( pos, ( *line ).find( "\t", pos ) - pos );
                }
            }
            else if ( ( *line ).startsWith( "Socket 1:" ) )
            {
                if ( ( *line ).startsWith( "Socket 1: empty" ) && cardInPcmcia1 )
                {
                    cardInPcmcia1 = FALSE;
                }
                else if ( !( *line ).startsWith( "Socket 1: empty" )
                          && !cardInPcmcia1 )
                {
                    cardInPcmcia1Name =
                        ( *line ).mid( ( ( *line ).find( ':' ) + 1 ),
                                       ( *line ).length() - 9 );
                    cardInPcmcia1Name.stripWhiteSpace();
                    cardInPcmcia1 = TRUE;
                    show();
                    line++;
                    int pos = ( *line ).find( '\t' ) + 1;
                    cardInPcmcia1Type =
                        ( *line ).mid( pos, ( *line ).find( "\t", pos ) - pos );
                }
            }
        }
        f.close();

        if ( !showPopUp
                && ( cardWas0 != cardInPcmcia0 || cardWas1 != cardInPcmcia1 ) )
        {
            QString text = QString::null;
            QString what = QString::null;
            if ( cardWas0 != cardInPcmcia0 )
            {
                if ( cardInPcmcia0 )
                {
                    text += tr( "New card: " );
                    what = "on";
                }
                else
                {
                    text += tr( "Ejected: " );
                    what = "off";
                }
                text += cardInPcmcia0Name;
                popUp( text, "cardmon/" + cardInPcmcia0Type );
            }

            if ( cardWas1 != cardInPcmcia1 )
            {
                if ( cardInPcmcia1 )
                {
                    text += tr( "New card: " );
                    what = "on";
                }
                else
                {
                    text += tr( "Ejected: " );
                    what = "off";
                }
                text += cardInPcmcia1Name;
                popUp( text, "cardmon/" + cardInPcmcia1Type );
            }
#ifndef QT_NO_SOUND
            QSound::play( Resource::findSound( "cardmon/card" + what ) );
#endif

        }
    }
    else
    {
        // no file found
        qDebug( "no file found" );
        cardInPcmcia0 = FALSE;
        cardInPcmcia1 = FALSE;
    }
    repaint( FALSE );
    return ( ( cardWas0 == cardInPcmcia0
               && cardWas1 == cardInPcmcia1 ) ? FALSE : TRUE );

}


bool CardMonitor::getStatusSd( int showPopUp )
{

    bool cardWas = cardInSd;	// remember last state
    cardInSd = FALSE;

#if defined(_OS_LINUX_) || defined(Q_OS_LINUX)
    struct mntent *me;
    FILE *mntfp = setmntent( "/etc/mtab", "r" );

    if ( mntfp )
    {
        while ( ( me = getmntent( mntfp ) ) != 0 )
        {
            QString fs = me->mnt_fsname;
            //qDebug( fs );
            if ( fs.left( 14 ) == "/dev/mmc/part1" || fs.left( 7 ) == "/dev/sd"
                    || fs.left( 9 ) == "/dev/mmcd" )
            {
                cardInSd = TRUE;
                show();
            }
            //            else {
            //                 cardInSd = FALSE;
            //             }
        }
        endmntent( mntfp );
    }

    if ( !showPopUp && cardWas != cardInSd )
    {
        QString text = QString::null;
        QString what = QString::null;
        if ( cardInSd )
        {
            text += "New card: SD/MMC";
            what = "on";
        }
        else
        {
            text += "Ejected: SD/MMC";
            what = "off";
        }
        //qDebug("TEXT: " + text );
#ifndef QT_NO_SOUND
        QSound::play( Resource::findSound( "cardmon/card" + what ) );
#endif
        popUp( text, "cardmon/ide" );	// XX add SD pic
    }
#else
#error "Not on Linux"
#endif
    repaint( FALSE );
    return ( ( cardWas == cardInSd ) ? FALSE : TRUE );
}

void CardMonitor::paintEvent( QPaintEvent * )
{

    QPainter p( this );

    if ( cardInPcmcia0 || cardInPcmcia1 || cardInSd )
    {
        p.drawPixmap( 0, 0, pm );
        show();
    }
    else
    {
        //p.eraseRect(rect());
        hide();
    }
}

int CardMonitor::position()
{
    return 7;
}

Q_EXPORT_INTERFACE()
{
    Q_CREATE_INSTANCE( OTaskbarAppletWrapper<CardMonitor> );
}