|
|
|
/***************************************************************************
|
|
|
|
* Copyright (C) 2002 by Bernd Gehrmann and Harald Fernengel *
|
|
|
|
* bernd@tdevelop.org, harry@tdevelop.org *
|
|
|
|
* *
|
|
|
|
* 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 "misc.h"
|
|
|
|
|
|
|
|
#include <tqstring.h>
|
|
|
|
#include <kemailsettings.h>
|
|
|
|
|
|
|
|
#include <pwd.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <kglobal.h>
|
|
|
|
#include <kstandarddirs.h>
|
|
|
|
#include <kconfig.h>
|
|
|
|
|
|
|
|
void AppWizardUtil::guessAuthorAndEmail(TQString *author, TQString *email)
|
|
|
|
{
|
|
|
|
KEMailSettings emailConfig;
|
|
|
|
emailConfig.setProfile( emailConfig.defaultProfileName() );
|
|
|
|
TQString fromAddr = emailConfig.getSetting( KEMailSettings::EmailAddress );
|
|
|
|
TQString name = emailConfig.getSetting( KEMailSettings::RealName );
|
|
|
|
|
|
|
|
if ( !fromAddr.isEmpty() && !name.isEmpty() ) {
|
|
|
|
*author = name;
|
|
|
|
*email = fromAddr;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
struct passwd *pw = ::getpwuid(getuid());
|
|
|
|
// pw==0 => the system must be really messed up
|
|
|
|
if (!pw)
|
|
|
|
return;
|
|
|
|
|
|
|
|
char hostname[512];
|
|
|
|
|
|
|
|
// I guess we don't have to support users with longer host names ;-)
|
|
|
|
(void) ::gethostname(hostname, sizeof hostname);
|
|
|
|
|
|
|
|
if ( name.isEmpty() )
|
|
|
|
*author = TQString::fromLocal8Bit( pw->pw_gecos );
|
|
|
|
else
|
|
|
|
*author = name;
|
|
|
|
if ( fromAddr.isEmpty() )
|
|
|
|
*email = TQString(pw->pw_name) + "@" + hostname;
|
|
|
|
else
|
|
|
|
*email = fromAddr;
|
|
|
|
}
|
|
|
|
|