/*************************************************************************** remoteman.cpp ------------------- copyright : (C) 2000 by Shie Erlich & Rafi Yanai e-mail : krusader@users.sourceforge.net web site : http://krusader.sourceforge.net --------------------------------------------------------------------------- Description *************************************************************************** A db dD d8888b. db db .d8888. .d8b. d8888b. d88888b d8888b. 88 ,8P' 88 `8D 88 88 88' YP d8' `8b 88 `8D 88' 88 `8D 88,8P 88oobY' 88 88 `8bo. 88ooo88 88 88 88ooooo 88oobY' 88`8b 88`8b 88 88 `Y8b. 88~~~88 88 88 88~~~~~ 88`8b 88 `88. 88 `88. 88b d88 db 8D 88 88 88 .8D 88. 88 `88. YP YD 88 YD ~Y8888P' `8888Y' YP YP Y8888D' Y88888P 88 YD S o u r c e F i l e *************************************************************************** * * * 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 "remoteman.h" #include "../kicons.h" #include "../resources.h" #include "../krusader.h" #include #include #include #include #include #include #include #include #include #include TQString remoteMan::url=TQString(); remoteMan::remoteMan() : remoteManBase(0,0,true), currentItem(0) { // Read the connection list from the configuration file and re-create the tree config2tree(); sessions->setCurrentItem(sessions->firstChild()); // some minor fixes, left out of the designer - do again in next version ! password->setEchoMode(TQLineEdit::Password); // ===> should be moved to remoteManBase <===== connect( hostName, TQT_SIGNAL( textChanged(const TQString&) ), this, TQT_SLOT( updateConnect(const TQString&) ) ); connect( sessions, TQT_SIGNAL(doubleClicked(TQListViewItem *)), this, TQT_SLOT(connection())); connect( sessions, TQT_SIGNAL(returnPressed(TQListViewItem *)), this, TQT_SLOT(connection())); // execute the main dialog exec(); } void remoteMan::expandDecos(TQListViewItem* i) { if (i->text(1)!="SESSION") i->setPixmap(0,LOADICON("folder_open")); } void remoteMan::collapseDecos(TQListViewItem* i) { if (i->text(1)!="SESSION") i->setPixmap(0,LOADICON("folder_open")); } // This is the static memeber, you'd want to call this directly ! TQString remoteMan::getHost() { remoteMan *p=new remoteMan(); delete p; return url; } // adds a new group submenu void remoteMan::addGroup() { TQListViewItem *i=0,*current; current=sessions->currentItem(); if (!current) // no item is current, or the list is empty (shouldn't happen) i=new TQListViewItem(sessions,i18n("New group"),"GROUP"); // insert into the backplane else if (current->text(1).left(5)=="GROUP") i=new TQListViewItem(current,i18n("New group"),"GROUP"); // insert under the current item else return; // cannot create a new group under an item // set an open folder pixmap for the group i->setPixmap(0,LOADICON("folder_open")); // make the new item current and refresh the view sessions->setCurrentItem(i); sessions->ensureItemVisible(i); } // add an actual session void remoteMan::addSession() { TQListViewItem *i=0,*current; current=sessions->currentItem(); // if we are pointing to a session, then the new session will be // created under the current session's tqparent group if (current->text(1)=="SESSION") current=current->tqparent(); // create a new item and give it the appropriate pixmap i=new TQListViewItem(current,i18n("New session"),"SESSION"); i->setPixmap(0,LOADICON("kr_ftp_new")); // make the new item current and refresh the view sessions->setCurrentItem(i); sessions->ensureItemVisible(i); } // called upon a selection change to update the view void remoteMan::refreshData() { // first, update the last changes the user made if (currentItem) { currentItem->setText(2,hostName->text()); currentItem->setText(3,portNum->cleanText()); currentItem->setText(4,userName->text()); currentItem->setText(5,password->text()); currentItem->setText(6,remoteDir->text()); currentItem->setText(7,description->text()); currentItem->setText(8,protocol->currentText()); // we have to check if there's another brother-session with // the same name, if so, we add a <2> to it TQListViewItem *i; if (currentItem->tqparent()) i=currentItem->tqparent()->firstChild(); else i=sessions->firstChild(); while (i) { if (i->text(0)==currentItem->text(0) && i!=currentItem) { TQString temp=currentItem->text(0).right(4); if (temp.left(1)=="<" && temp.right(1)==">") { int h=temp.mid(1,1).toInt(); int l=temp.mid(2,1).toInt(); if ((++l)==10) { ++h; l=0; } temp=TQString("<%1%2>").tqarg(h).tqarg(l); temp=currentItem->text(0).tqreplace(currentItem->text(0).length()-4,4,temp); currentItem->setText(0,temp); } else currentItem->setText(0,currentItem->text(0)+"<02>"); i=currentItem->tqparent()->firstChild(); } else i=i->nextSibling(); } } // here begins the actual function removeBtn->setEnabled(true); // just incase we turned it off last time connectBtn->setEnabled(true); TQListViewItem *current=sessions->currentItem(); if (!current) return; // if no item is current yet if (current->text(1).left(5)=="GROUP") { // disable all that don't belong to a group // first, disable all the fields a user cannot change hostName->setEnabled(false); password->setEnabled(false); portNum->setEnabled(false); remoteDir->setEnabled(false); userName->setEnabled(false); if (current->text(1)=="GROUP!") { sessionName->setEnabled(false); // even name can't be changed here! description->setEnabled(false); removeBtn->setEnabled(false); connectBtn->setEnabled(false); } else sessionName->setEnabled(true); } else { // otherwise, a normal url is under the cursor if( !current->text(8).isEmpty() ) protocol->setCurrentText(current->text(8)); else protocol->setCurrentItem(0); hostName->setEnabled(true); // anonymous connection ?? userName->setEnabled(!anonymous->isChecked()); password->setEnabled(!anonymous->isChecked()); // for now, don't allow port settings for smb:// portNum->setEnabled( protocol->currentText()=="ftp://" ); remoteDir->setEnabled(true); sessionName->setEnabled(true); description->setEnabled(true); } // now, update the session name (or group name) and needed info sessionName->setText(current->text(0)); hostName->setText(current->text(2)); portNum->setValue(current->text(3).toInt()); if (portNum->value()==0) portNum->setValue(21); userName->setText(current->text(4)); password->setText(current->text(5)); remoteDir->setText(current->text(6)); description->setText(current->text(7)); sessions->setSorting(1); sessions->sort(); // resort the tree currentItem=current; // keep the active item for other jobs // disable connect button if no host name is defined if (hostName->text().simplifyWhiteSpace().isEmpty()) connectBtn->setEnabled(false); } // called when we are changing the session/group name, so that remoteMan // is able to change it in the corrosponding listview at the same time void remoteMan::updateName(const TQString &text) { TQListViewItem *i=sessions->currentItem(); i->setText(0,text); } void remoteMan::updateConnect(const TQString &) { // disable connect button if no host name is defined if (hostName->text().simplifyWhiteSpace().isEmpty()) connectBtn->setEnabled(false); else connectBtn->setEnabled(true); } // take an item, and create a "connection", built of the full // path of folders to the item, seperated by the ` character TQString item2connection(TQListViewItem *item) { TQString con=item->text(0); TQListViewItem *iterator=item->tqparent(); while (iterator!=0) { //////////////////////// explanation: /////////////////////////// // since the` char is special to us, we use it to seperate items // in the connection, we cannot allow it to be inside a name, so // we find it (if it exists) and replace it with a ' character TQString temp=iterator->text(0); int i=temp.tqfind('`'); // are there any ` in the name ? while (i>-1) { // if so, change them until none are left temp.tqreplace(i,1,TQChar('\'')); i=temp.tqfind('`'); } con=temp+'`'+con; iterator=iterator->tqparent(); } return con; } // find an item with a specific path - if the path doesn't exist, create it TQListViewItem* remoteMan::findItem(const TQString &name, TQListViewItem *p) { TQListViewItem *it; if (name.isEmpty()) return p; // the end of the recursion has been reached!!! if (p==0) it=sessions->firstChild(); else it=p->firstChild(); int loc=name.tqfind('`'); while (it) { if (it->text(0)==name.left(loc)) break; it=it->nextSibling(); } if (!it) // item has not been found, create it if (!p) it=new TQListViewItem(sessions,name.left(loc),"GROUP"); else it=new TQListViewItem(p,name.left(loc),"GROUP"); // now, it points to the item we want, so let's go down one level it=findItem(name.mid(loc+1),it); return it; } // re-create the tree from a config file void remoteMan::config2tree() { // attempt to read the tree from krusader's config file krConfig->setGroup("RemoteMan"); TQStringList lst=krConfig->readListEntry("Connections"); if (lst.count()<1) { // no such list in the config file - create the basics // add the default groups TQListViewItem *i; i=new TQListViewItem(sessions,i18n("Sessions"),"GROUP!"); // the GROUP text signifies a group (duh), the GROUP! signifies a group // that the user cannot change i->setPixmap(0,LOADICON("folder_open")); sessions->setCurrentItem(i); //# i=new TQListViewItem(sessions,i18n("Samba sessions (comming soon)"),"GROUP!"); //# i->setPixmap(0,LOADICON("folder")); return; } // if we got here, we have a connection entry in the config file // let's work on it... TQStringList::Iterator it; TQListViewItem *item=0; for( it = lst.begin(); it != lst.end(); ++it ) { TQString t=(*it); // easier to work with // this part creates the path to the session int loc=t.tqfindRev('`'); if (loc>-1) item=findItem(t.left(loc+1),0); // at this point we have the complete path to the object // let's keep only the item's name t=t.mid(loc+1); // now, we are left with only the session name itself // so, we create it as a son of the active item TQStringList newLst=krConfig->readListEntry(*it); // and fill in bool group=(newLst[1]!="SESSION"); TQListViewItem *newItem; if (item==0) // if this item originating from the backplane newItem=new TQListViewItem(sessions,t,group ? "GROUP" : "SESSION"); else newItem=new TQListViewItem(item,t,group ? "GROUP" : "SESSION"); newItem->setPixmap(0,group ? LOADICON("folder") : LOADICON("kr_ftp_new")); // update a pixmap newItem->setText(0,t); // expand the item, if needed ++it; if ((*it) == "expanded") newItem->setOpen(true); for (int i=1; i<9; ++i) newItem->setText(i,newLst[i]);// the details item=0; // clean up pointers } } // make a single pass on the tree and create a configuration file void remoteMan::tree2config() { // first, set the stage krConfig->setGroup("RemoteMan"); TQStringList lst; TQListViewItemIterator it(sessions); while (it.current()) { // while there are still items in the tree TQString temp=item2connection((it.current())); lst.append(temp); // write the connection into the "connection-index" if (it.current()->isOpen()) lst.append("expanded"); else lst.append("collapsed"); TQStringList data; for (int i=0; i<9; ++i) data.append((it.current())->text(i)); // write the specific entry into the config file krConfig->writeEntry(temp,data); ++it; } // now we write the index krConfig->writeEntry("Connections",lst); krConfig->sync(); // force an immediate write to the disk } void remoteMan::connection() { // if clicked on a group... TQListViewItem *i=sessions->currentItem(); if (i->text(1)!="SESSION") { i->setOpen(i->isOpen()); return; } // build a url if (anonymous->isChecked()) { userName->setText(TQString()); password->setText(TQString()); } else { userName->setText(userName->text().simplifyWhiteSpace()); password->setText(password->text().simplifyWhiteSpace()); } hostName->setText(hostName->text().simplifyWhiteSpace().lower()); if (hostName->text().left(6)=="ftp://" || hostName->text().left(6)=="smb://") hostName->setText(hostName->text().mid(6)); remoteDir->setText(remoteDir->text().simplifyWhiteSpace()); if ( !remoteDir->text().isEmpty() && remoteDir->text().left(1)!="/") remoteDir->setText("/"+remoteDir->text()); TQString port=""; if (protocol->currentText()=="ftp://" && portNum->value()!=21 ) port=":"+portNum->cleanText(); url=protocol->currentText(); if( !userName->text().isEmpty() ){ url = url+userName->text(); if( !password->text().isEmpty() ); url = url+":"+password->text(); url = url+"@"; } url=url+ hostName->text()+port+remoteDir->text(); // now, let's close cleanly refreshData(); // make sure all is updated tree2config(); // write the sessions to a configuration file remoteManBase::accept(); // tidy up } // remove a connection or a group of connections void remoteMan::removeSession() { TQListViewItem *it=sessions->currentItem(); if (!it) return; // don't do anything if no item is selected switch( TQMessageBox::warning( this, i18n("RemoteMan"), i18n("Are you sure you want to delete this item ???"), TQMessageBox::Yes, TQMessageBox::No | TQMessageBox::Default | TQMessageBox::Escape)) { case TQMessageBox::No : return; } // since we're here, the user must have pressed YES, let's delete delete it; sessions->triggerUpdate(); } // what we do when the user clicked the close button void remoteMan::accept() { refreshData(); // make sure all is updated tree2config(); // write the sessions to a configuration file url=TQString(); // this signals getHost() we didn't click CONNECT remoteManBase::accept(); // tidy up } void remoteMan::reject() { refreshData(); // make sure all is updated tree2config(); // write the sessions to a configuration file url=TQString(); // this signals getHost() we didn't click CONNECT remoteManBase::reject(); } #include "remoteman.moc"