static
char *GetEnv(const char *variable)
{
#ifdef _WIN32_WCE
return NULL;
#else
#ifdef WIN32
/* This shit requires windows.h (HUGE) to be included */
char env[MAX_PATH]; /* MAX_PATH is from windef.h */
char *temp = getenv(variable);
env[0] = '\0';
if (temp != NULL)
ExpandEnvironmentStrings(temp, env, sizeof(env));
#else
#ifdef VMS
char *env = getenv(variable);
if (env && strcmp("HOME",variable) == 0) {
env = decc$translate_vms(env);
}
#else
/* no length control */
char *env = getenv(variable);
#endif
#endif
return (env && env[0])?strdup(env):NULL;
#endif
}
/*
* szGetHomeDirectory - get the name of the home directory
*/
const char *
szGetHomeDirectory(void)
{
const char *szHome;
#if defined(__vms)
szHome = decc$translate_vms(getenv("HOME"));
#elif defined(__Plan9__)
szHome = getenv("home");
#else
szHome = getenv("HOME");
#endif /* __vms */
if (szHome == NULL || szHome[0] == '\0') {
#if defined(N_PLAT_NLM)
szHome = "SYS:";
#elif defined(__dos)
szHome = "C:";
#else
werr(0, "I can't find the name of your HOME directory");
szHome = "";
#endif /* __dos */
}
return szHome;
} /* end of szGetHomeDirectory */
/* return the home directory of the current user as an allocated string */
char *homedir(void)
{
char *home;
home = GetEnv("CURL_HOME", FALSE);
if(home)
return home;
home = GetEnv("HOME", FALSE);
if(home)
return home;
#if defined(HAVE_GETPWUID) && defined(HAVE_GETEUID)
{
struct passwd *pw = getpwuid(geteuid());
if (pw) {
#ifdef VMS
home = decc$translate_vms(pw->pw_dir);
#else
home = pw->pw_dir;
#endif
if (home && home[0])
home = strdup(home);
}
}
#endif /* PWD-stuff */
#ifdef WIN32
home = GetEnv("APPDATA", TRUE);
if(!home)
home = GetEnv("%USERPROFILE%\\Application Data", TRUE); /* Normally only
on Win-2K/XP */
#endif /* WIN32 */
return home;
}
/*
* szGetAntiwordDirectory - get the name of the Antiword directory
*/
const char *
szGetAntiwordDirectory(void)
{
#if defined(__vms)
return decc$translate_vms(getenv("ANTIWORDHOME"));
#else
return getenv("ANTIWORDHOME");
#endif /* __vms */
} /* end of szGetAntiwordDirectory */
static nsresult
GetUnixHomeDir(nsILocalFile** aFile)
{
#ifdef VMS
char *pHome;
pHome = getenv("HOME");
if (*pHome == '/') {
return NS_NewNativeLocalFile(nsDependentCString(pHome),
PR_TRUE,
aFile);
} else {
return NS_NewNativeLocalFile(nsDependentCString(decc$translate_vms(pHome)),
PR_TRUE,
aFile);
}
#else
return NS_NewNativeLocalFile(nsDependentCString(PR_GetEnv("HOME")),
PR_TRUE, aFile);
#endif
}
static nsresult
GetUnixHomeDir(nsIFile** aFile)
{
#ifdef VMS
char *pHome;
pHome = getenv("HOME");
if (*pHome == '/') {
return NS_NewNativeLocalFile(nsDependentCString(pHome),
true,
aFile);
} else {
return NS_NewNativeLocalFile(nsDependentCString(decc$translate_vms(pHome)),
true,
aFile);
}
#elif defined(ANDROID)
// XXX no home dir on android; maybe we should return the sdcard if present?
return NS_ERROR_FAILURE;
#else
return NS_NewNativeLocalFile(nsDependentCString(PR_GetEnv("HOME")),
true, aFile);
#endif
}
static
char *GetEnv(const char *variable)
{
#ifdef _WIN32_WCE
return NULL;
#else
#ifdef WIN32
char env[MAX_PATH]; /* MAX_PATH is from windef.h */
char *temp = getenv(variable);
env[0] = '\0';
if (temp != NULL)
ExpandEnvironmentStrings(temp, env, sizeof(env));
return (env[0] != '\0')?strdup(env):NULL;
#else
char *env = getenv(variable);
#ifdef VMS
if (env && strcmp("HOME",variable) == 0)
env = decc$translate_vms(env);
#endif
return (env && env[0])?strdup(env):NULL;
#endif
#endif
}
static
char *GetEnv(const char *variable, char do_expand)
{
char *env = NULL;
#ifdef WIN32
char buf1[1024], buf2[1024];
DWORD rc;
/* Don't use getenv(); it doesn't find variable added after program was
* started. Don't accept truncated results (i.e. rc >= sizeof(buf1)). */
rc = GetEnvironmentVariable(variable, buf1, sizeof(buf1));
if (rc > 0 && rc < sizeof(buf1)) {
env = buf1;
variable = buf1;
}
if (do_expand && strchr(variable,'%')) {
/* buf2 == variable if not expanded */
rc = ExpandEnvironmentStrings (variable, buf2, sizeof(buf2));
if (rc > 0 && rc < sizeof(buf2) &&
!strchr(buf2,'%')) /* no vars still unexpanded */
env = buf2;
}
#else
(void)do_expand;
#ifdef VMS
env = getenv(variable);
if (env && strcmp("HOME",variable) == 0) {
env = decc$translate_vms(env);
}
#else
/* no length control */
env = getenv(variable);
#endif
#endif
return (env && env[0])?strdup(env):NULL;
}
/* returns -1 on failure, 0 if the host is found, 1 is the host isn't found */
int Curl_parsenetrc(char *host,
char *login,
char *password,
char *netrcfile)
{
FILE *file;
int retcode=1;
int specific_login = (login[0] != 0);
char *home = NULL;
bool home_alloc = FALSE;
bool netrc_alloc = FALSE;
int state=NOTHING;
char state_login=0; /* Found a login keyword */
char state_password=0; /* Found a password keyword */
int state_our_login=FALSE; /* With specific_login, found *our* login name */
#define NETRC DOT_CHAR "netrc"
#ifdef CURLDEBUG
{
/* This is a hack to allow testing.
* If compiled with --enable-debug and CURL_DEBUG_NETRC is defined,
* then it's the path to a substitute .netrc for testing purposes *only* */
char *override = curl_getenv("CURL_DEBUG_NETRC");
if (override) {
fprintf(stderr, "NETRC: overridden " NETRC " file: %s\n", override);
netrcfile = override;
netrc_alloc = TRUE;
}
}
#endif /* CURLDEBUG */
if(!netrcfile) {
home = curl_getenv("HOME"); /* portable environment reader */
if(home) {
home_alloc = TRUE;
#if defined(HAVE_GETPWUID) && defined(HAVE_GETEUID)
}
else {
struct passwd *pw;
pw= getpwuid(geteuid());
if (pw) {
#ifdef VMS
home = decc$translate_vms(pw->pw_dir);
#else
home = pw->pw_dir;
#endif
}
#endif
}
if(!home)
return -1;
netrcfile = curl_maprintf("%s%s%s", home, DIR_CHAR, NETRC);
if(!netrcfile) {
if(home_alloc)
free(home);
return -1;
}
netrc_alloc = TRUE;
}
file = fopen(netrcfile, "r");
if(file) {
char *tok;
char *tok_buf;
bool done=FALSE;
char netrcbuffer[256];
while(!done && fgets(netrcbuffer, sizeof(netrcbuffer), file)) {
tok=strtok_r(netrcbuffer, " \t\n", &tok_buf);
while(!done && tok) {
if (login[0] && password[0]) {
done=TRUE;
break;
}
switch(state) {
case NOTHING:
if(strequal("machine", tok)) {
/* the next tok is the machine name, this is in itself the
delimiter that starts the stuff entered for this machine,
after this we need to search for 'login' and
'password'. */
state=HOSTFOUND;
}
break;
case HOSTFOUND:
if(strequal(host, tok)) {
/* and yes, this is our host! */
state=HOSTVALID;
#ifdef _NETRC_DEBUG
fprintf(stderr, "HOST: %s\n", tok);
#endif
retcode=0; /* we did find our host */
}
else
/* not our host */
state=NOTHING;
break;
case HOSTVALID:
/* we are now parsing sub-keywords concerning "our" host */
if(state_login) {
if (specific_login) {
state_our_login = strequal(login, tok);
}
else {
strncpy(login, tok, LOGINSIZE-1);
#ifdef _NETRC_DEBUG
fprintf(stderr, "LOGIN: %s\n", login);
#endif
}
state_login=0;
}
else if(state_password) {
if (state_our_login || !specific_login) {
strncpy(password, tok, PASSWORDSIZE-1);
#ifdef _NETRC_DEBUG
fprintf(stderr, "PASSWORD: %s\n", password);
#endif
}
state_password=0;
}
else if(strequal("login", tok))
state_login=1;
else if(strequal("password", tok))
state_password=1;
else if(strequal("machine", tok)) {
/* ok, there's machine here go => */
state = HOSTFOUND;
state_our_login = FALSE;
}
break;
} /* switch (state) */
tok = strtok_r(NULL, " \t\n", &tok_buf);
} /* while (tok) */
} /* while fgets() */
fclose(file);
}
if(home_alloc)
free(home);
if(netrc_alloc)
free(netrcfile);
return retcode;
}
//----------------------------------------------------------------------------------------
void nsSpecialSystemDirectory::operator = (SystemDirectories aSystemSystemDirectory)
//----------------------------------------------------------------------------------------
{
SystemDirectoriesKey dirKey(aSystemSystemDirectory);
SystemDirectoriesKey mozBinDirKey(Moz_BinDirectory);
// This flag is used to tell whether or not we need to append something
// onto the *this. Search for needToAppend to how it's used.
// IT's VERY IMPORTANT that needToAppend is initialized to PR_TRUE.
PRBool needToAppend = PR_TRUE;
*this = (const char*)nsnull;
switch (aSystemSystemDirectory)
{
case OS_DriveDirectory:
#if defined (XP_WIN)
{
char path[_MAX_PATH];
PRInt32 len = GetWindowsDirectory( path, _MAX_PATH );
if (len)
{
if ( path[1] == ':' && path[2] == '\\' )
path[3] = 0;
}
*this = MakeUpperCase(path);
}
#elif defined(XP_OS2)
{
// printf( "*** Warning warning OS_DriveDirectory called for");
ULONG ulBootDrive = 0;
char buffer[] = " :\\OS2\\";
DosQuerySysInfo( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE,
&ulBootDrive, sizeof ulBootDrive);
buffer[0] = 'A' - 1 + ulBootDrive; // duh, 1-based index...
*this = buffer;
#ifdef DEBUG
printf( "Got OS_DriveDirectory: %s\n", buffer);
#endif
}
#else
*this = "/";
#endif
break;
case OS_TemporaryDirectory:
#if defined (WINCE)
{
*this = "\\TEMP";
}
#elif defined (XP_WIN)
{
char path[_MAX_PATH];
DWORD len = GetTempPath(_MAX_PATH, path);
*this = MakeUpperCase(path);
}
#elif defined(XP_OS2)
{
char buffer[CCHMAXPATH] = "";
char *c = getenv( "TMP");
if( c) strcpy( buffer, c);
else
{
c = getenv( "TEMP");
if( c) strcpy( buffer, c);
}
if( c) *this = buffer;
// use exe's directory if not set
else GetCurrentProcessDirectory(*this);
}
#elif defined(XP_UNIX) || defined(XP_BEOS)
{
static const char *tPath = nsnull;
if (!tPath) {
tPath = PR_GetEnv("TMPDIR");
if (!tPath || !*tPath) {
tPath = PR_GetEnv("TMP");
if (!tPath || !*tPath) {
tPath = PR_GetEnv("TEMP");
if (!tPath || !*tPath) {
tPath = "/tmp/";
}
}
}
}
*this = tPath;
}
#endif
break;
case OS_CurrentProcessDirectory:
GetCurrentProcessDirectory(*this);
break;
case OS_CurrentWorkingDirectory:
GetCurrentWorkingDirectory(*this);
break;
case XPCOM_CurrentProcessComponentRegistry:
{
nsFileSpec *dirSpec = NULL;
// if someone has called nsSpecialSystemDirectory::Set()
if (systemDirectoriesLocations) {
// look for the value for the argument key
if (!(dirSpec = (nsFileSpec *)systemDirectoriesLocations->Get(&dirKey))) {
// if not found, try Moz_BinDirectory
dirSpec = (nsFileSpec *)
systemDirectoriesLocations->Get(&mozBinDirKey);
}
else {
// if the value is found for the argument key,
// we don't need to append.
needToAppend = PR_FALSE;
}
}
if (dirSpec)
{
*this = *dirSpec;
}
else
{
GetCurrentProcessDirectory(*this);
}
if (needToAppend) {
// XXX We need to unify these names across all platforms
*this += "component.reg";
}
}
break;
case XPCOM_CurrentProcessComponentDirectory:
{
nsFileSpec *dirSpec = NULL;
// if someone has called nsSpecialSystemDirectory::Set()
if (systemDirectoriesLocations) {
// look for the value for the argument key
if (!(dirSpec = (nsFileSpec *)systemDirectoriesLocations->Get(&dirKey))) {
// if not found, try Moz_BinDirectory
dirSpec = (nsFileSpec *)
systemDirectoriesLocations->Get(&mozBinDirKey);
}
else {
// if the value is found for the argument key,
// we don't need to append.
needToAppend = PR_FALSE;
}
}
if (dirSpec)
{
*this = *dirSpec;
}
else
{
// <exedir>/Components
GetCurrentProcessDirectory(*this);
}
if (needToAppend) {
// XXX We need to unify these names across all platforms
*this += "components";
}
}
break;
case Moz_BinDirectory:
{
nsFileSpec *dirSpec = NULL;
// if someone has called nsSpecialSystemDirectory::Set()
if (systemDirectoriesLocations) {
// look for the value for the argument key
dirSpec = (nsFileSpec *)
systemDirectoriesLocations->Get(&dirKey);
}
if (dirSpec) {
*this = *dirSpec;
}
else {
GetCurrentProcessDirectory(*this);
}
}
break;
#if defined (XP_WIN)
case Win_SystemDirectory:
{
char path[_MAX_PATH];
PRInt32 len = GetSystemDirectory( path, _MAX_PATH );
// Need enough space to add the trailing backslash
if (len > _MAX_PATH-2)
break;
path[len] = '\\';
path[len+1] = '\0';
*this = MakeUpperCase(path);
break;
}
case Win_WindowsDirectory:
{
char path[_MAX_PATH];
PRInt32 len = GetWindowsDirectory( path, _MAX_PATH );
// Need enough space to add the trailing backslash
if (len > _MAX_PATH-2)
break;
path[len] = '\\';
path[len+1] = '\0';
*this = MakeUpperCase(path);
break;
}
case Win_HomeDirectory:
{
char path[_MAX_PATH];
if (GetEnvironmentVariable(TEXT("HOME"), path, _MAX_PATH) > 0)
{
PRInt32 len = PL_strlen(path);
// Need enough space to add the trailing backslash
if (len > _MAX_PATH - 2)
break;
path[len] = '\\';
path[len+1] = '\0';
*this = MakeUpperCase(path);
break;
}
if (GetEnvironmentVariable(TEXT("HOMEDRIVE"), path, _MAX_PATH) > 0)
{
char temp[_MAX_PATH];
if (GetEnvironmentVariable(TEXT("HOMEPATH"), temp, _MAX_PATH) > 0)
PL_strcatn(path, _MAX_PATH, temp);
PRInt32 len = PL_strlen(path);
// Need enough space to add the trailing backslash
if (len > _MAX_PATH - 2)
break;
path[len] = '\\';
path[len+1] = '\0';
*this = MakeUpperCase(path);
break;
}
}
case Win_Desktop:
{
GetWindowsFolder(CSIDL_DESKTOP, *this);
break;
}
case Win_Programs:
{
GetWindowsFolder(CSIDL_PROGRAMS, *this);
break;
}
case Win_Controls:
{
GetWindowsFolder(CSIDL_CONTROLS, *this);
break;
}
case Win_Printers:
{
GetWindowsFolder(CSIDL_PRINTERS, *this);
break;
}
case Win_Personal:
{
GetWindowsFolder(CSIDL_PERSONAL, *this);
break;
}
case Win_Favorites:
{
GetWindowsFolder(CSIDL_FAVORITES, *this);
break;
}
case Win_Startup:
{
GetWindowsFolder(CSIDL_STARTUP, *this);
break;
}
case Win_Recent:
{
GetWindowsFolder(CSIDL_RECENT, *this);
break;
}
case Win_Sendto:
{
GetWindowsFolder(CSIDL_SENDTO, *this);
break;
}
case Win_Bitbucket:
{
GetWindowsFolder(CSIDL_BITBUCKET, *this);
break;
}
case Win_Startmenu:
{
GetWindowsFolder(CSIDL_STARTMENU, *this);
break;
}
case Win_Desktopdirectory:
{
GetWindowsFolder(CSIDL_DESKTOPDIRECTORY, *this);
break;
}
case Win_Drives:
{
GetWindowsFolder(CSIDL_DRIVES, *this);
break;
}
case Win_Network:
{
GetWindowsFolder(CSIDL_NETWORK, *this);
break;
}
case Win_Nethood:
{
GetWindowsFolder(CSIDL_NETHOOD, *this);
break;
}
case Win_Fonts:
{
GetWindowsFolder(CSIDL_FONTS, *this);
break;
}
case Win_Templates:
{
GetWindowsFolder(CSIDL_TEMPLATES, *this);
break;
}
#ifndef WINCE
case Win_Common_Startmenu:
{
GetWindowsFolder(CSIDL_COMMON_STARTMENU, *this);
break;
}
case Win_Common_Programs:
{
GetWindowsFolder(CSIDL_COMMON_PROGRAMS, *this);
break;
}
case Win_Common_Startup:
{
GetWindowsFolder(CSIDL_COMMON_STARTUP, *this);
break;
}
case Win_Common_Desktopdirectory:
{
GetWindowsFolder(CSIDL_COMMON_DESKTOPDIRECTORY, *this);
break;
}
case Win_Printhood:
{
GetWindowsFolder(CSIDL_PRINTHOOD, *this);
break;
}
case Win_Cookies:
{
GetWindowsFolder(CSIDL_COOKIES, *this);
break;
}
#endif // WINCE
case Win_Appdata:
{
GetWindowsFolder(CSIDL_APPDATA, *this);
break;
}
#endif // XP_WIN
#if defined(XP_UNIX)
case Unix_LocalDirectory:
*this = "/usr/local/netscape/";
break;
case Unix_LibDirectory:
*this = "/usr/local/lib/netscape/";
break;
case Unix_HomeDirectory:
#ifdef VMS
{
char *pHome;
pHome = getenv("HOME");
if (*pHome == '/')
*this = pHome;
else
*this = decc$translate_vms(pHome);
}
#else
*this = PR_GetEnv("HOME");
#endif
break;
#endif
#ifdef XP_BEOS
case BeOS_SettingsDirectory:
{
char path[MAXPATHLEN];
find_directory(B_USER_SETTINGS_DIRECTORY, 0, 0, path, MAXPATHLEN);
// Need enough space to add the trailing backslash
int len = strlen(path);
if (len > MAXPATHLEN-2)
break;
path[len] = '/';
path[len+1] = '\0';
*this = path;
break;
}
case BeOS_HomeDirectory:
{
char path[MAXPATHLEN];
find_directory(B_USER_DIRECTORY, 0, 0, path, MAXPATHLEN);
// Need enough space to add the trailing backslash
int len = strlen(path);
if (len > MAXPATHLEN-2)
break;
path[len] = '/';
path[len+1] = '\0';
*this = path;
break;
}
case BeOS_DesktopDirectory:
{
char path[MAXPATHLEN];
find_directory(B_DESKTOP_DIRECTORY, 0, 0, path, MAXPATHLEN);
// Need enough space to add the trailing backslash
int len = strlen(path);
if (len > MAXPATHLEN-2)
break;
path[len] = '/';
path[len+1] = '\0';
*this = path;
break;
}
case BeOS_SystemDirectory:
{
char path[MAXPATHLEN];
find_directory(B_BEOS_DIRECTORY, 0, 0, path, MAXPATHLEN);
// Need enough space to add the trailing backslash
int len = strlen(path);
if (len > MAXPATHLEN-2)
break;
path[len] = '/';
path[len+1] = '\0';
*this = path;
break;
}
#endif
#ifdef XP_OS2
case OS2_SystemDirectory:
{
ULONG ulBootDrive = 0;
char buffer[] = " :\\OS2\\System\\";
DosQuerySysInfo( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE,
&ulBootDrive, sizeof ulBootDrive);
buffer[0] = 'A' - 1 + ulBootDrive; // duh, 1-based index...
*this = buffer;
#ifdef DEBUG
printf( "Got OS2_SystemDirectory: %s\n", buffer);
#endif
break;
}
case OS2_OS2Directory:
{
ULONG ulBootDrive = 0;
char buffer[] = " :\\OS2\\";
DosQuerySysInfo( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE,
&ulBootDrive, sizeof ulBootDrive);
buffer[0] = 'A' - 1 + ulBootDrive; // duh, 1-based index...
*this = buffer;
#ifdef DEBUG
printf( "Got OS2_OS2Directory: %s\n", buffer);
#endif
break;
}
case OS2_HomeDirectory:
{
char *tPath = PR_GetEnv("MOZILLA_HOME");
/* If MOZILLA_HOME is not set, use GetCurrentProcessDirectory */
/* To ensure we get a long filename system */
if (!tPath || !*tPath)
GetCurrentProcessDirectory(*this);
else
*this = tPath;
PrfWriteProfileString(HINI_USERPROFILE, "Mozilla", "Home", *this);
break;
}
case OS2_DesktopDirectory:
{
char szPath[CCHMAXPATH + 1];
BOOL fSuccess;
fSuccess = WinQueryActiveDesktopPathname (szPath, sizeof(szPath));
int len = strlen (szPath);
if (len > CCHMAXPATH -1)
break;
szPath[len] = '\\';
szPath[len + 1] = '\0';
#ifdef DEBUG
if (fSuccess) {
printf ("Got OS2_DesktopDirectory: %s\n", szPath);
} else {
printf ("Failed getting OS2_DesktopDirectory: %s\n", szPath);
}
#endif
break;
}
#endif
default:
break;
}
}
/**
* Try to find the IP number and port for a (possibly) logical server name.
*
* @note This function uses only the interfaces file and is deprecated.
*/
static int
tds_read_interfaces(const char *server, TDSLOGIN * login)
{
int found = 0;
/* read $SYBASE/interfaces */
if (!server || !server[0]) {
server = getenv("TDSQUERY");
if (!server || !server[0])
server = "SYBASE";
tdsdump_log(TDS_DBG_INFO1, "Setting server to %s from $TDSQUERY.\n", server);
}
tdsdump_log(TDS_DBG_INFO1, "Looking for server %s....\n", server);
/*
* Look for the server in the interf_file iff interf_file has been set.
*/
if (interf_file) {
tdsdump_log(TDS_DBG_INFO1, "Looking for server in file %s.\n", interf_file);
found = search_interface_file(login, "", interf_file, server);
}
/*
* if we haven't found the server yet then look for a $HOME/.interfaces file
*/
if (!found) {
char *path = tds_get_home_file(".interfaces");
if (path) {
tdsdump_log(TDS_DBG_INFO1, "Looking for server in %s.\n", path);
found = search_interface_file(login, "", path, server);
free(path);
}
}
/*
* if we haven't found the server yet then look in $SYBBASE/interfaces file
*/
if (!found) {
const char *sybase = getenv("SYBASE");
#ifdef __VMS
/* We've got to be in unix syntax for later slash-joined concatenation. */
#include <unixlib.h>
const char *unixspec = decc$translate_vms(sybase);
if ( (int)unixspec != 0 && (int)unixspec != -1 ) sybase = unixspec;
#endif
if (!sybase || !sybase[0])
sybase = interfaces_path;
tdsdump_log(TDS_DBG_INFO1, "Looking for server in %s/interfaces.\n", sybase);
found = search_interface_file(login, sybase, "interfaces", server);
}
/*
* If we still don't have the server and port then assume the user
* typed an actual server host name.
*/
if (!found) {
int ip_port;
const char *env_port;
/*
* Make a guess about the port number
*/
if (login->port == 0) {
/*
* Not set in the [global] section of the
* configure file, take a guess.
*/
ip_port = TDS_DEF_PORT;
} else {
/*
* Preserve setting from the [global] section
* of the configure file.
*/
ip_port = login->port;
}
if ((env_port = getenv("TDSPORT")) != NULL) {
ip_port = tds_lookup_port(env_port);
tdsdump_log(TDS_DBG_INFO1, "Setting 'ip_port' to %s from $TDSPORT.\n", env_port);
} else
tdsdump_log(TDS_DBG_INFO1, "Setting 'ip_port' to %d as a guess.\n", ip_port);
/*
* look up the host
*/
if (TDS_SUCCEED(tds_lookup_host_set(server, &login->ip_addrs)))
if (!tds_dstr_copy(&login->server_host_name, server))
return 0;
if (ip_port)
login->port = ip_port;
}
return found;
}
int
odbc_read_login_info(void)
{
static const char *PWD = "../../../PWD";
FILE *in = NULL;
char line[512];
char *s1, *s2;
#ifndef _WIN32
char path[1024];
int len;
#endif
setbuf(stdout, NULL);
setbuf(stderr, NULL);
s1 = getenv("TDSPWDFILE");
if (s1 && s1[0])
in = fopen(s1, "r");
if (!in)
in = fopen(PWD, "r");
if (!in)
in = fopen("PWD", "r");
if (!in) {
fprintf(stderr, "Can not open PWD file\n\n");
return 1;
}
while (fgets(line, 512, in)) {
s1 = strtok(line, "=");
s2 = strtok(NULL, "\n");
if (!s1 || !s2)
continue;
if (!strcmp(s1, "UID")) {
strcpy(odbc_user, s2);
} else if (!strcmp(s1, "SRV")) {
strcpy(odbc_server, s2);
} else if (!strcmp(s1, "PWD")) {
strcpy(odbc_password, s2);
} else if (!strcmp(s1, "DB")) {
strcpy(odbc_database, s2);
}
}
fclose(in);
#ifndef _WIN32
/* find our driver */
if (!getcwd(path, sizeof(path)))
return 0;
#ifdef __VMS
{
/* A hard-coded driver path has to be in unix syntax to be recognized as such. */
const char *unixspec = decc$translate_vms(path);
if ( (int)unixspec != 0 && (int)unixspec != -1 ) strcpy(path, unixspec);
}
#endif
len = strlen(path);
if (len < 10 || strcmp(path + len - 10, "/unittests") != 0)
return 0;
path[len - 9] = 0;
/* TODO this must be extended with all possible systems... */
if (!check_lib(path, ".libs/libtdsodbc.so") && !check_lib(path, ".libs/libtdsodbc.sl")
&& !check_lib(path, ".libs/libtdsodbc.dll") && !check_lib(path, ".libs/libtdsodbc.dylib")
&& !check_lib(path, "_libs/libtdsodbc.exe"))
return 0;
strcpy(odbc_driver, path);
/* craft out odbc.ini, avoid to read wrong one */
in = fopen("odbc.ini", "w");
if (in) {
fprintf(in, "[%s]\nDriver = %s\nDatabase = %s\nServername = %s\n", odbc_server, odbc_driver, odbc_database, odbc_server);
fclose(in);
setenv("ODBCINI", "./odbc.ini", 1);
setenv("SYSODBCINI", "./odbc.ini", 1);
}
#endif
return 0;
}
int
odbc_read_login_info(void)
{
static const char *PWD = "../../../PWD";
FILE *in = NULL;
char line[512];
char *s1, *s2;
const char *const *search_p;
char path[1024];
int len;
#ifdef _WIN32
UWORD old_config_mode;
#endif
setbuf(stdout, NULL);
setbuf(stderr, NULL);
s1 = getenv("TDSPWDFILE");
if (s1 && s1[0])
in = fopen(s1, "r");
if (!in)
in = fopen(PWD, "r");
if (!in)
in = fopen("PWD", "r");
if (!in) {
fprintf(stderr, "Can not open PWD file\n\n");
return 1;
}
while (fgets(line, 512, in)) {
s1 = strtok(line, "=");
s2 = strtok(NULL, "\n");
if (!s1 || !s2)
continue;
if (!strcmp(s1, "UID")) {
strcpy(odbc_user, s2);
} else if (!strcmp(s1, "SRV")) {
strcpy(odbc_server, s2);
} else if (!strcmp(s1, "PWD")) {
strcpy(odbc_password, s2);
} else if (!strcmp(s1, "DB")) {
strcpy(odbc_database, s2);
}
}
fclose(in);
/* find our driver */
#ifndef _WIN32
if (!getcwd(path, sizeof(path)))
#else
if (!_getcwd(path, sizeof(path)))
#endif
return 0;
#ifdef __VMS
{
/* A hard-coded driver path has to be in unix syntax to be recognized as such. */
const char *unixspec = decc$translate_vms(path);
if ( (int)unixspec != 0 && (int)unixspec != -1 ) strcpy(path, unixspec);
}
#endif
len = strlen(path);
if (len < 10 || (strcasecmp(path + len - 10, "/unittests") != 0
#ifdef _WIN32
&& strcasecmp(path + len - 10, "\\unittests") != 0
#endif
))
return 0;
path[len - 9] = 0;
for (search_p = search_driver; *search_p; ++search_p) {
if (check_lib(path, *search_p))
break;
}
if (!*search_p)
return 0;
strcpy(odbc_driver, path);
#ifndef _WIN32
/* craft out odbc.ini, avoid to read wrong one */
snprintf(path, sizeof(path), "odbc.ini.%d", (int) getpid());
in = fopen(path, "w");
if (in) {
fprintf(in, "[%s]\nDriver = %s\nDatabase = %s\nServername = %s\n", odbc_server, odbc_driver, odbc_database, odbc_server);
fclose(in);
setenv("ODBCINI", "./odbc.ini", 1);
setenv("SYSODBCINI", "./odbc.ini", 1);
rename(path, "odbc.ini");
unlink(path);
}
#else
if (SQLGetConfigMode(&old_config_mode)) {
SQLSetConfigMode(ODBC_USER_DSN);
SQLWritePrivateProfileString(odbc_server, "Driver", odbc_driver, "odbc.ini");
SQLWritePrivateProfileString(odbc_server, "Database", odbc_database, "odbc.ini");
SQLWritePrivateProfileString(odbc_server, "Servername", odbc_server, "odbc.ini");
SQLSetConfigMode(old_config_mode);
}
#endif
return 0;
}
int
read_login_info(int argc, char **argv)
{
int len;
FILE *in = NULL;
#if !defined(__MINGW32__) && !defined(_MSC_VER)
int ch;
#endif
char line[512];
char *s1, *s2;
char filename[PATH_MAX];
static const char *PWD = "../../../PWD";
struct { char *username, *password, *servername, *database; char fverbose; } options;
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_STACK)
#define MAX_STACK (8*1024*1024)
struct rlimit rlim;
if (!getrlimit(RLIMIT_STACK, &rlim) && (rlim.rlim_cur == RLIM_INFINITY || rlim.rlim_cur > MAX_STACK)) {
rlim.rlim_cur = MAX_STACK;
setrlimit(RLIMIT_STACK, &rlim);
}
#endif
setbuf(stdout, NULL);
setbuf(stderr, NULL);
free(ARGV0);
#ifdef __VMS
{
/* basename expects unix format */
s1 = strrchr(argv[0], ';'); /* trim version; extension trimmed later */
if (s1) *s1 = 0;
const char *unixspec = decc$translate_vms(argv[0]);
ARGV0 = strdup(unixspec);
}
#else
ARGV0 = strdup(argv[0]);
#endif
BASENAME = tds_basename(ARGV0);
#if defined(_WIN32) || defined(__VMS)
s1 = strrchr(BASENAME, '.');
if (s1) *s1 = 0;
#endif
DIRNAME = dirname(ARGV0);
memset(&options, 0, sizeof(options));
#if !defined(__MINGW32__) && !defined(_MSC_VER)
/* process command line options (handy for manual testing) */
while ((ch = getopt(argc, (char**)argv, "U:P:S:D:f:v")) != -1) {
switch (ch) {
case 'U':
options.username = strdup(optarg);
break;
case 'P':
options.password = strdup(optarg);
break;
case 'S':
options.servername = strdup(optarg);
break;
case 'D':
options.database = strdup(optarg);
break;
case 'f': /* override default PWD file */
PWD = strdup(optarg);
break;
case 'v':
options.fverbose = 1; /* doesn't normally do anything */
break;
case '?':
default:
fprintf(stderr, "usage: %s \n"
" [-U username] [-P password]\n"
" [-S servername] [-D database]\n"
" [-i input filename] [-o output filename] "
"[-e error filename]\n"
, BASENAME);
exit(1);
}
}
#endif
strcpy(filename, PWD);
s1 = getenv("TDSPWDFILE");
if (s1 && s1[0])
in = fopen(s1, "r");
if (!in)
in = fopen(filename, "r");
if (!in)
in = fopen("PWD", "r");
if (!in) {
sprintf(filename, "%s/%s", (DIRNAME) ? DIRNAME : ".", PWD);
in = fopen(filename, "r");
if (!in) {
fprintf(stderr, "Can not open %s file\n\n", filename);
goto Override;
}
}
while (fgets(line, 512, in)) {
s1 = strtok(line, "=");
s2 = strtok(NULL, "\n");
if (!s1 || !s2)
continue;
if (!strcmp(s1, "UID")) {
strcpy(USER, s2);
} else if (!strcmp(s1, "SRV")) {
strcpy(SERVER, s2);
} else if (!strcmp(s1, "PWD")) {
strcpy(PASSWORD, s2);
} else if (!strcmp(s1, "DB")) {
strcpy(DATABASE, s2);
}
}
fclose(in);
Override:
/* apply command-line overrides */
if (options.username) {
strcpy(USER, options.username);
free(options.username);
}
if (options.password) {
strcpy(PASSWORD, options.password);
free(options.password);
}
if (options.servername) {
strcpy(SERVER, options.servername);
free(options.servername);
}
if (options.database) {
strcpy(DATABASE, options.database);
free(options.database);
}
if (!*SERVER) {
fprintf(stderr, "no servername provided, quitting.\n");
exit(1);
}
printf("found %s.%s for %s in \"%s\"\n", SERVER, DATABASE, USER, filename);
#if 0
dbrecftos(BASENAME);
#endif
len = snprintf(sql_file, sizeof(sql_file), "%s/%s.sql", FREETDS_SRCDIR, BASENAME);
assert(len >= 0 && len <= sizeof(sql_file));
if (input_file)
fclose(input_file);
if ((input_file = fopen(sql_file, "r")) == NULL) {
fflush(stdout);
fprintf(stderr, "could not open SQL input file \"%s\"\n", sql_file);
}
if (!free_file_registered)
atexit(free_file);
free_file_registered = 1;
printf("SQL text will be read from %s\n", sql_file);
return 0;
}
