comparison pidgin/win32/winpidgin.c @ 23648:ab5b9acebde3

Update the Perl plugin loader to work with Perl 5.10. I don't think this will break compiling with older versions (note that Perl micro versions are not binary compatible). Update the win32 build to use (and require and upgrade to Perl 5.10). Fixes #5137

23647:d48d333e6ef5

			ret = TRUE;
		else {
			const char *err_msg = get_win32_error_message(retv);

			printf("Could not read reg key '%s' subkey '%s' value: '%s'.\nMessage: (%ld) %s\n",
					((key == HKEY_LOCAL_MACHINE) ? "HKLM" :
					 (key == HKEY_CURRENT_USER) ? "HKCU" :
					 "???"),
					sub_key, val_name, retv, err_msg);
		}
		RegCloseKey(hkey);
	}
	else {

	}


	/* Set up the settings dir base to be \\path\to
	 * The actual settings dir will be \\path\to\.purple */
	snprintf(path2, sizeof(path2), "PURPLEHOME=%s", path);
	printf("Setting settings dir: %s\n", path2);
	putenv(path2);

	snprintf(path2, sizeof(path2), "PIDGIN_ASPELL_DIR=%s\\Aspell\\bin", path);
	printf("%s\n", path2);
	putenv(path2);

	/* set the GTK+ path to be \\path\to\GTK\bin */
	strcat(path, "\\GTK\\bin");

	common_dll_prep(path);

	const char *locale = NULL;
	char envstr[25];

	locale = winpidgin_get_locale();

	snprintf(envstr, 25, "LANG=%s", locale);
	printf("Setting locale: %s\n", envstr);
	putenv(envstr);
}

#define PIDGIN_WM_FOCUS_REQUEST (WM_APP + 13)
#define PIDGIN_WM_PROTOCOL_HANDLE (WM_APP + 14)

			prev[0] = '\0';
		}
	} else {
		DWORD dw = GetLastError();
		const char *err_msg = get_win32_error_message(dw);
		snprintf(errbuf, 512,
			"Error getting module filename.\nError: (%u) %s",
			(UINT) dw, err_msg);
		printf("%s", errbuf);
		MessageBox(NULL, errbuf, NULL, MB_OK | MB_TOPMOST);
		pidgin_dir[0] = '\0';
	}

	/* Determine if we're running in portable mode */

		portable_mode_dll_prep(pidgin_dir);
	else if (!getenv("PIDGIN_NO_DLL_CHECK"))
		dll_prep();

	winpidgin_set_locale();
	/* If help, version or multiple flag used, do not check Mutex */
	if (!strstr(lpszCmdLine, "-h") && !strstr(lpszCmdLine, "-v"))
		if (!winpidgin_set_running(getenv("PIDGIN_MULTI_INST") == NULL && strstr(lpszCmdLine, "-m") == NULL))
			return 0;

	if (!pidgin_main) {
		DWORD dw = GetLastError();
		BOOL mod_not_found = (dw == ERROR_MOD_NOT_FOUND || dw == ERROR_DLL_NOT_FOUND);
		const char *err_msg = get_win32_error_message(dw);

		snprintf(errbuf, 512, "Error loading pidgin.dll.\nError: (%u) %s%s%s",
			(UINT) dw, err_msg,
			mod_not_found ? "\n" : "",
			mod_not_found ? "This probably means that GTK+ can't be found." : "");
		printf("%s", errbuf);
		MessageBox(NULL, errbuf, TEXT("Error"), MB_OK | MB_TOPMOST);

		return 0;
	}

23648:ab5b9acebde3

			ret = TRUE;
		else {
			const char *err_msg = get_win32_error_message(retv);

			printf("Could not read reg key '%s' subkey '%s' value: '%s'.\nMessage: (%ld) %s\n",
					(key == HKEY_LOCAL_MACHINE) ? "HKLM"
					 : ((key == HKEY_CURRENT_USER) ? "HKCU" : "???"),
					sub_key, val_name, retv, err_msg);
		}
		RegCloseKey(hkey);
	}
	else {

	}


	/* Set up the settings dir base to be \\path\to
	 * The actual settings dir will be \\path\to\.purple */
	_snprintf(path2, sizeof(path2), "PURPLEHOME=%s", path);
	printf("Setting settings dir: %s\n", path2);
	_putenv(path2);

	_snprintf(path2, sizeof(path2), "PIDGIN_ASPELL_DIR=%s\\Aspell\\bin", path);
	printf("%s\n", path2);
	_putenv(path2);

	/* set the GTK+ path to be \\path\to\GTK\bin */
	strcat(path, "\\GTK\\bin");

	common_dll_prep(path);

	const char *locale = NULL;
	char envstr[25];

	locale = winpidgin_get_locale();

	_snprintf(envstr, 25, "LANG=%s", locale);
	printf("Setting locale: %s\n", envstr);
	_putenv(envstr);
}

static void winpidgin_add_perl_to_path() {
	char perl_path[MAX_PATH + 1];
	DWORD plen = sizeof(perl_path);

	printf("%s", "Looking for Perl... ");

	if (read_reg_string(HKEY_LOCAL_MACHINE, "SOFTWARE\\Perl", "",
			    (LPBYTE) &perl_path, &plen)) {
		const char *path = getenv("PATH");
		/* Enough to add "PATH=" + ";"  + perl_path + "\\bin" + \0 */

		/* We *could* check for perl510.dll, but it seems unnecessary. */

		printf("found in '%s'.\n", perl_path);

		if (perl_path[strlen(perl_path) - 1] != '\\') {
			strcat(perl_path, "\\");
		}
		strcat(perl_path, "bin");

		if (!strstr(path, perl_path)) {
			int newlen = (path ? strlen(path) : 0) + strlen(perl_path) + 10;
			char *newpath = malloc(newlen);
			*newpath = '\0';

			_snprintf(newpath, newlen, "PATH=%s%s%s",
				  path ? path : "",
				  path ? ";" : "",
				  perl_path);

			printf("Adding Perl to PATH: %s\n", newpath);

			_putenv(newpath);
			free(newpath);
		} else
			printf("%s\n", "Perl already in PATH.");
	} else
		printf("%s", "not found.\n");

}

#define PIDGIN_WM_FOCUS_REQUEST (WM_APP + 13)
#define PIDGIN_WM_PROTOCOL_HANDLE (WM_APP + 14)

			prev[0] = '\0';
		}
	} else {
		DWORD dw = GetLastError();
		const char *err_msg = get_win32_error_message(dw);
		_snprintf(errbuf, 512,
			"Error getting module filename.\nError: (%u) %s",
			(UINT) dw, err_msg);
		printf("%s\n", errbuf);
		MessageBox(NULL, errbuf, NULL, MB_OK | MB_TOPMOST);
		pidgin_dir[0] = '\0';
	}

	/* Determine if we're running in portable mode */

		portable_mode_dll_prep(pidgin_dir);
	else if (!getenv("PIDGIN_NO_DLL_CHECK"))
		dll_prep();

	winpidgin_set_locale();

	winpidgin_add_perl_to_path();

	/* If help, version or multiple flag used, do not check Mutex */
	if (!strstr(lpszCmdLine, "-h") && !strstr(lpszCmdLine, "-v"))
		if (!winpidgin_set_running(getenv("PIDGIN_MULTI_INST") == NULL && strstr(lpszCmdLine, "-m") == NULL))
			return 0;

	if (!pidgin_main) {
		DWORD dw = GetLastError();
		BOOL mod_not_found = (dw == ERROR_MOD_NOT_FOUND || dw == ERROR_DLL_NOT_FOUND);
		const char *err_msg = get_win32_error_message(dw);

		_snprintf(errbuf, 512, "Error loading pidgin.dll.\nError: (%u) %s%s%s",
			(UINT) dw, err_msg,
			mod_not_found ? "\n" : "",
			mod_not_found ? "This probably means that GTK+ can't be found." : "");
		printf("%s\n", errbuf);
		MessageBox(NULL, errbuf, TEXT("Error"), MB_OK | MB_TOPMOST);

		return 0;
	}