// Copyright (c) 2002-2004 Rob Kaper <cap@capsi.com>
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// version 2 as published by the Free Software Foundation.
//
// 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; see the file COPYING. If not, write to
// the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
// Boston, MA 02110-1301, USA.
# include <tqlabel.h>
# include <tqlayout.h>
# include <tqradiobutton.h>
# include <tqsizepolicy.h>
# include <tqvbuttongroup.h>
# include <tqhgroupbox.h>
# include <kdialog.h>
# include <kextendedsocket.h>
# include <klocale.h>
# include <kiconloader.h>
# include "selectserver_widget.moc"
SelectServer : : SelectServer ( bool useMonopigatorOnStart , bool hideDevelopmentServers , TQWidget * parent , const char * name ) : TQWidget ( parent , name )
{
m_hideDevelopmentServers = hideDevelopmentServers ;
m_mainLayout = new TQVBoxLayout ( this , KDialog : : marginHint ( ) ) ;
TQ_CHECK_PTR ( m_mainLayout ) ;
// Custom server group
TQHGroupBox * customGroup = new TQHGroupBox ( i18n ( " Enter Custom monopd Server " ) , this , " customGroup " ) ;
m_mainLayout - > addWidget ( customGroup ) ;
TQLabel * hostLabel = new TQLabel ( i18n ( " Hostname: " ) , customGroup ) ;
m_hostEdit = new KLineEdit ( customGroup ) ;
m_hostEdit - > setSizePolicy ( TQSizePolicy ( TQSizePolicy : : MinimumExpanding , TQSizePolicy : : Minimum ) ) ;
TQLabel * portLabel = new TQLabel ( i18n ( " Port: " ) , customGroup ) ;
m_portEdit = new KLineEdit ( TQString : : number ( 1234 ) , customGroup ) ;
m_portEdit - > setSizePolicy ( TQSizePolicy ( TQSizePolicy : : Preferred , TQSizePolicy : : Minimum ) ) ;
KPushButton * connectButton = new KPushButton ( KGuiItem ( i18n ( " Connect " ) , " network " ) , customGroup ) ;
connect ( connectButton , TQT_SIGNAL ( clicked ( ) ) , this , TQT_SLOT ( customConnect ( ) ) ) ;
// Server list group
TQVButtonGroup * bgroup = new TQVButtonGroup ( i18n ( " Select monopd Server " ) , this , " bgroup " ) ;
bgroup - > setExclusive ( true ) ;
m_mainLayout - > addWidget ( bgroup ) ;
// List of servers
m_serverList = new TDEListView ( bgroup , " m_serverList " ) ;
m_serverList - > addColumn ( i18n ( " Host " ) ) ;
m_serverList - > addColumn ( i18n ( " Latency " ) ) ;
m_serverList - > addColumn ( i18n ( " Version " ) ) ;
m_serverList - > addColumn ( i18n ( " Users " ) ) ;
m_serverList - > setAllColumnsShowFocus ( true ) ;
m_serverList - > setSorting ( 1 ) ;
// m_mainLayout->addWidget(m_serverList);
connect ( m_serverList , TQT_SIGNAL ( clicked ( TQListViewItem * ) ) , this , TQT_SLOT ( validateConnectButton ( ) ) ) ;
connect ( m_serverList , TQT_SIGNAL ( doubleClicked ( TQListViewItem * ) ) , this , TQT_SLOT ( slotConnect ( ) ) ) ;
connect ( m_serverList , TQT_SIGNAL ( rightButtonClicked ( TQListViewItem * , const TQPoint & , int ) ) , this , TQT_SLOT ( validateConnectButton ( ) ) ) ;
connect ( m_serverList , TQT_SIGNAL ( selectionChanged ( TQListViewItem * ) ) , this , TQT_SLOT ( validateConnectButton ( ) ) ) ;
TQHBoxLayout * buttonBox = new TQHBoxLayout ( m_mainLayout , KDialog : : spacingHint ( ) ) ;
buttonBox - > addItem ( new TQSpacerItem ( 20 , 20 , TQSizePolicy : : Expanding , TQSizePolicy : : Minimum ) ) ;
// Server List / Refresh
m_refreshButton = new KPushButton ( KGuiItem ( useMonopigatorOnStart ? i18n ( " Reload Server List " ) : i18n ( " Get Server List " ) , useMonopigatorOnStart ? " reload " : " network " ) , this ) ;
buttonBox - > addWidget ( m_refreshButton ) ;
connect ( m_refreshButton , TQT_SIGNAL ( clicked ( ) ) , this , TQT_SLOT ( slotRefresh ( ) ) ) ;
// Connect
m_connectButton = new KPushButton ( BarIconSet ( " forward " , TDEIcon : : SizeSmall ) , i18n ( " Connect " ) , this ) ;
m_connectButton - > setEnabled ( false ) ;
buttonBox - > addWidget ( m_connectButton ) ;
connect ( m_connectButton , TQT_SIGNAL ( clicked ( ) ) , this , TQT_SLOT ( slotConnect ( ) ) ) ;
// Monopigator
m_monopigator = new Monopigator ( ) ;
connect ( m_monopigator , TQT_SIGNAL ( monopigatorAdd ( TQString , TQString , TQString , TQString , int ) ) , this , TQT_SLOT ( slotMonopigatorAdd ( TQString , TQString , TQString , TQString , int ) ) ) ;
connect ( m_monopigator , TQT_SIGNAL ( finished ( ) ) , TQT_SLOT ( monopigatorFinished ( ) ) ) ;
connect ( m_monopigator , TQT_SIGNAL ( timeout ( ) ) , TQT_SLOT ( monopigatorTimeout ( ) ) ) ;
}
SelectServer : : ~ SelectServer ( )
{
delete m_monopigator ;
}
void SelectServer : : setHideDevelopmentServers ( bool hideDevelopmentServers )
{
if ( m_hideDevelopmentServers ! = hideDevelopmentServers )
{
m_hideDevelopmentServers = hideDevelopmentServers ;
emit showDevelopmentServers ( ! m_hideDevelopmentServers ) ;
}
}
void SelectServer : : initMonopigator ( )
{
// Hardcoded, but there aren't any other Monopigator root servers at the moment
emit msgStatus ( i18n ( " Retrieving server list... " ) ) ;
m_refreshButton - > setGuiItem ( KGuiItem ( i18n ( " Reload Server List " ) , " reload " ) ) ;
m_monopigator - > loadData ( KURL ( " http://monopd-gator.kde.org/ " ) ) ;
}
void SelectServer : : slotMonopigatorAdd ( TQString ip , TQString host , TQString port , TQString version , int users )
{
MonopigatorEntry * item = new MonopigatorEntry ( m_serverList , host , TQString : : number ( 9999 ) , version , ( users = = - 1 ) ? i18n ( " unknown " ) : TQString : : number ( users ) , port , ip ) ;
item - > setPixmap ( 0 , BarIcon ( " atlantik " , TDEIcon : : SizeSmall ) ) ;
if ( item - > isDev ( ) )
{
item - > setVisible ( ! m_hideDevelopmentServers ) ;
connect ( this , TQT_SIGNAL ( showDevelopmentServers ( bool ) ) , item , TQT_SLOT ( showDevelopmentServers ( bool ) ) ) ;
}
validateConnectButton ( ) ;
}
void SelectServer : : monopigatorFinished ( )
{
emit msgStatus ( i18n ( " Retrieved server list. " ) ) ;
m_refreshButton - > setEnabled ( true ) ;
}
void SelectServer : : monopigatorTimeout ( )
{
emit msgStatus ( i18n ( " Error while retrieving the server list. " ) ) ;
m_refreshButton - > setEnabled ( true ) ;
}
void SelectServer : : validateConnectButton ( )
{
if ( m_serverList - > selectedItem ( ) )
m_connectButton - > setEnabled ( true ) ;
else
m_connectButton - > setEnabled ( false ) ;
}
void SelectServer : : slotRefresh ( bool useMonopigator )
{
m_serverList - > clear ( ) ;
validateConnectButton ( ) ;
if ( useMonopigator )
{
m_refreshButton - > setEnabled ( false ) ;
initMonopigator ( ) ;
}
}
void SelectServer : : slotConnect ( )
{
if ( TQListViewItem * item = m_serverList - > selectedItem ( ) )
emit serverConnect ( item - > text ( 0 ) , item - > text ( 4 ) . toInt ( ) ) ;
}
void SelectServer : : customConnect ( )
{
if ( ! m_hostEdit - > text ( ) . isEmpty ( ) & & ! m_portEdit - > text ( ) . isEmpty ( ) )
emit serverConnect ( m_hostEdit - > text ( ) , m_portEdit - > text ( ) . toInt ( ) ) ;
}