|
|
|
/*
|
|
|
|
* Copyright (C) 1999-2001 Bernd Gehrmann
|
|
|
|
* bernd@mail.berlios.de
|
|
|
|
*
|
|
|
|
* 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <tqfile.h>
|
|
|
|
#include <tqdir.h>
|
|
|
|
#include <tqtextstream.h>
|
|
|
|
#include <tdeapplication.h>
|
|
|
|
#include <tdeconfig.h>
|
|
|
|
|
|
|
|
#include "repositories.h"
|
|
|
|
#include "cervisiapart.h"
|
|
|
|
|
|
|
|
|
|
|
|
static TQString fileNameCvs()
|
|
|
|
{
|
|
|
|
return TQDir::homeDirPath() + "/.cvspass";
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static TQString fileNameCvsnt()
|
|
|
|
{
|
|
|
|
return TQDir::homeDirPath() + "/.cvs/cvspass";
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// old .cvspass format:
|
|
|
|
// user@host:/path Acleartext_password
|
|
|
|
//
|
|
|
|
// new .cvspass format (since cvs 1.11.1):
|
|
|
|
// /1 user@host:port/path Aencoded_password
|
|
|
|
//
|
|
|
|
static TQStringList readCvsPassFile()
|
|
|
|
{
|
|
|
|
TQStringList list;
|
|
|
|
|
|
|
|
TQFile f(fileNameCvs());
|
|
|
|
if (f.open(IO_ReadOnly))
|
|
|
|
{
|
|
|
|
TQTextStream stream(&f);
|
|
|
|
while (!stream.eof())
|
|
|
|
{
|
|
|
|
int pos;
|
|
|
|
TQString line = stream.readLine();
|
|
|
|
if ( (pos = line.find(' ')) != -1)
|
|
|
|
{
|
|
|
|
if (line[0] != '/') // old format
|
|
|
|
list.append(line.left(pos));
|
|
|
|
else // new format
|
|
|
|
list.append(line.section(' ', 1, 1));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return list;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// .cvs/cvspass format
|
|
|
|
// user@host:port/path=Aencoded_password
|
|
|
|
//
|
|
|
|
static TQStringList readCvsntPassFile()
|
|
|
|
{
|
|
|
|
TQStringList list;
|
|
|
|
|
|
|
|
TQFile file(fileNameCvsnt());
|
|
|
|
if (file.open(IO_ReadOnly))
|
|
|
|
{
|
|
|
|
TQTextStream stream(&file);
|
|
|
|
while (!stream.atEnd())
|
|
|
|
{
|
|
|
|
const TQString line(stream.readLine());
|
|
|
|
|
|
|
|
const int pos(line.find("=A"));
|
|
|
|
if (pos >= 0)
|
|
|
|
list.append(line.left(pos));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return list;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TQStringList Repositories::readCvsPassFile()
|
|
|
|
{
|
|
|
|
return (TQFileInfo(fileNameCvs()).lastModified()
|
|
|
|
< TQFileInfo(fileNameCvsnt()).lastModified())
|
|
|
|
? readCvsntPassFile()
|
|
|
|
: ::readCvsPassFile();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TQStringList Repositories::readConfigFile()
|
|
|
|
{
|
|
|
|
TQStringList list;
|
|
|
|
|
|
|
|
TDEConfig *config = CervisiaPart::config();
|
|
|
|
config->setGroup("Repositories");
|
|
|
|
list = config->readListEntry("Repos");
|
|
|
|
|
|
|
|
// Some people actually use CVSROOT, so we add it here
|
|
|
|
char *env;
|
|
|
|
if ( (env = ::getenv("CVSROOT")) != 0 && !list.contains(env))
|
|
|
|
list.append(env);
|
|
|
|
|
|
|
|
return list;
|
|
|
|
}
|