ex-protos moved to the Plugins folder

git-svn-id: http://svn.miranda-ng.org/main/trunk@2545 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 486 deletions

diff --git a/protocols/Weather/src/weather_contacts.cpp b/protocols/Weather/src/weather_contacts.cpp
deleted file mode 100644
index 4c049f5d26..0000000000
--- a/protocols/Weather/src/weather_contacts.cpp
+++ /dev/null
@@ -1,486 +0,0 @@
-/*

-Weather Protocol plugin for Miranda IM

-Copyright (c) 2012 Miranda NG Team

-Copyright (c) 2005-2011 Boris Krasnovskiy All Rights Reserved

-Copyright (c) 2002-2005 Calvin Che

-

-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; version 2

-of the License.

-

-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, see <http://www.gnu.org/licenses/>.

-*/

-

-/* This file contain the source that is related to weather contacts, 

-include the links, edit settings, and loading weather information for

-the contact.

-*/

-

-#include "weather.h"

-

-static void OpenUrl( TCHAR* format, TCHAR* id )

-{

-	TCHAR loc[512];

-

-	GetID( id );

-	mir_sntprintf( loc, SIZEOF(loc), format, id );

-	

-	CallService(MS_UTILS_OPENURL, opt.NewBrowserWin | OUF_TCHAR, (LPARAM)loc );

-}

-

-//============ BASIC CONTACTS FUNCTIONS AND LINKS  ============

-

-// view weather log for the contact

-// wParam = current contact

-INT_PTR ViewLog(WPARAM wParam, LPARAM lParam) 

-{

-	// see if the log path is set

-	DBVARIANT dbv;

-	if ( !DBGetContactSettingTString((HANDLE)wParam, WEATHERPROTONAME, "Log", &dbv)) {

-		if (dbv.pszVal[0] != 0)

-			ShellExecute((HWND)lParam, _T("open"), dbv.ptszVal, _T(""), _T(""), SW_SHOW);

-		db_free(&dbv);

-	}

-	else	// display warning dialog if no path is specified

-		MessageBox(NULL, TranslateT("Weather condition was not logged."), 

-		TranslateT("Weather Protocol"), MB_OK | MB_ICONINFORMATION);

-	return 0;

-}

-

-// read complete forecast

-// wParam = current contact

-INT_PTR LoadForecast(WPARAM wParam, LPARAM lParam) 

-{

-	TCHAR id[256], loc2[256];

-	GetStationID((HANDLE)wParam, id, SIZEOF(id));

-	if (id[0] != 0) {

-		// check if the complte forecast URL is set. If it is not, display warning and quit

-		if ( DBGetStaticString((HANDLE)wParam, WEATHERPROTONAME, "InfoURL", loc2, SIZEOF(loc2)) || loc2[0] == 0) {

-			MessageBox(NULL, TranslateT("The URL for complete forcast have not been set. You can set it from the Edit Settings dialog."), 

-				TranslateT("Weather Protocol"), MB_ICONINFORMATION);

-			return 1;

-		}

-		// set the url and open the webpage

-		OpenUrl(loc2, id );

-	}

-	return 0;

-}

-

-// load weather map

-// wParam = current contact

-INT_PTR WeatherMap(WPARAM wParam, LPARAM lParam) 

-{

-	TCHAR id[256], loc2[256];

-	GetStationID((HANDLE)wParam, id, SIZEOF(id));

-	if (id[0] != 0) {

-		// check if the weather map URL is set. If it is not, display warning and quit

-		if ( DBGetStaticString((HANDLE)wParam, WEATHERPROTONAME, "MapURL", loc2, SIZEOF(loc2)) || loc2[0] == 0) {

-			MessageBox(NULL, TranslateT("The URL for weather map have not been set.  You can set it from the Edit Settings dialog."), TranslateT("Weather Protocol"), MB_ICONINFORMATION);

-			return 1;

-		}

-

-		// set the url and open the webpage

-		OpenUrl(loc2, id);

-	}

-

-	return 0;

-}

-

-//============ EDIT SETTINGS  ============

-

-// show edit settings dialog

-// wParam = current contact

-INT_PTR EditSettings(WPARAM wParam, LPARAM lParam) 

-{

-	HWND hEditDlg = WindowList_Find(hWindowList, (HANDLE)wParam);

-

-	// search the dialog list to prevent multiple instance of dialog for the same contact

-	if (hEditDlg != NULL) {

-		// if the dialog box already opened, bring it to the front

-		SetForegroundWindow(hEditDlg);

-		SetFocus(hEditDlg);

-	}

-	else {

-		// if the dialog box is not opened, open a new one

-		if (IsMyContact((HANDLE)wParam))

-			CreateDialogParam(hInst, MAKEINTRESOURCE(IDD_EDIT), NULL, DlgProcChange, (LPARAM)wParam);

-	}

-

-	return 0;

-}

-

-typedef struct

-{

-	HANDLE hContact;

-	HICON  hRename;

-	HICON  hUserDetail;

-	HICON  hFile;

-	HICON  hSrchAll;

-} CntSetWndDataType;

-

-// edit weather settings

-// lParam = current contact

-INT_PTR CALLBACK DlgProcChange(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam) 

-{

-	DBVARIANT dbv;

-	TCHAR str[256], str2[256], city[256], filter[256], *pfilter, *chop;

-	char loc[512];

-	OPENFILENAME ofn;       // common dialog box structure

-	HANDLE hContact;

-	WIDATA *sData;

-	CntSetWndDataType *wndData = NULL;

-

-	switch (msg) {

-	case WM_INITDIALOG:

-		TranslateDialogDefault(hwndDlg);

-

-		wndData = ( CntSetWndDataType* )mir_alloc(sizeof(CntSetWndDataType));

-		wndData->hContact = hContact = (HANDLE)lParam;

-		wndData->hRename = LoadSkinnedIcon(SKINICON_OTHER_RENAME);

-		wndData->hUserDetail = LoadSkinnedIcon(SKINICON_OTHER_USERDETAILS);

-		wndData->hFile = LoadSkinnedIcon(SKINICON_EVENT_FILE);

-		wndData->hSrchAll = LoadSkinnedIcon(SKINICON_OTHER_SEARCHALL);

-

-		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)wndData);

-

-		// set button images

-		SendDlgItemMessage(hwndDlg, IDC_GETNAME, BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hRename);

-		SendDlgItemMessage(hwndDlg, IDC_SVCINFO, BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hUserDetail);

-		SendDlgItemMessage(hwndDlg, IDC_BROWSE,  BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hFile);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW1,   BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hSrchAll);

-		SendDlgItemMessage(hwndDlg, IDC_RESET1,  BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hRename);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW2,   BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hSrchAll);

-		SendDlgItemMessage(hwndDlg, IDC_RESET2,  BM_SETIMAGE, IMAGE_ICON, (LPARAM)wndData->hRename);

-

-		// make all buttons flat

-		SendDlgItemMessage(hwndDlg, IDC_GETNAME, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_SVCINFO, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_BROWSE, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW1, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_RESET1, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW2, BUTTONSETASFLATBTN, TRUE, 0);

-		SendDlgItemMessage(hwndDlg, IDC_RESET2, BUTTONSETASFLATBTN, TRUE, 0);

-

-		// set tooltip for the buttons

-		SendDlgItemMessage(hwndDlg, IDC_GETNAME, BUTTONADDTOOLTIP, (WPARAM) LPGENT("Get city name from ID"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_SVCINFO, BUTTONADDTOOLTIP, (WPARAM) LPGENT("Weather INI information"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_BROWSE, BUTTONADDTOOLTIP, (WPARAM) LPGENT("Browse"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW1, BUTTONADDTOOLTIP, (WPARAM) LPGENT("View webpage"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_RESET1, BUTTONADDTOOLTIP, (WPARAM) LPGENT("Reset to default"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_VIEW2, BUTTONADDTOOLTIP, (WPARAM) LPGENT("View webpage"), BATF_TCHAR);

-		SendDlgItemMessage(hwndDlg, IDC_RESET2, BUTTONADDTOOLTIP, (WPARAM) LPGENT("Reset to default"), BATF_TCHAR);

-

-		// save the handle for the contact

-		WindowList_Add(hWindowList, hwndDlg, hContact);

-

-		// start to get the settings

-		// if the setting not exist, leave the dialog box blank

-		if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "ID", &dbv)) {

-			SetDlgItemText(hwndDlg, IDC_ID, dbv.ptszVal);

-			// check if the station is a default station

-			CheckDlgButton(hwndDlg, IDC_DEFA, _tcscmp(dbv.ptszVal, opt.Default) != 0);

-			db_free(&dbv);

-		}

-		if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "Nick", &dbv)) {

-			SetDlgItemText(hwndDlg, IDC_NAME, dbv.ptszVal);

-			db_free(&dbv);

-		}

-		if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "Log", &dbv)) {

-			SetDlgItemText(hwndDlg, IDC_LOG, dbv.ptszVal);

-			// if the log path is not empty, check the checkbox for external log

-			if (dbv.ptszVal[0]) CheckDlgButton(hwndDlg, IDC_External, TRUE);

-			db_free(&dbv);

-		}

-		// enable/disable the browse button depending on the value of external log checkbox

-		EnableWindow(GetDlgItem(hwndDlg, IDC_BROWSE), (BYTE)IsDlgButtonChecked(hwndDlg, IDC_External));

-

-		// other checkbox options

-		CheckDlgButton(hwndDlg, IDC_DPop, db_get_b(hContact, WEATHERPROTONAME, "DPopUp", FALSE));

-		CheckDlgButton(hwndDlg, IDC_DAutoUpdate, db_get_b(hContact, WEATHERPROTONAME, "DAutoUpdate", FALSE));

-		CheckDlgButton(hwndDlg, IDC_Internal, db_get_b(hContact, WEATHERPROTONAME, "History", 0));

-

-		if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "InfoURL", &dbv)) {

-			SetDlgItemText(hwndDlg, IDC_IURL, dbv.ptszVal);

-			db_free(&dbv);

-		}

-		if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "MapURL", &dbv)) {

-			SetDlgItemText(hwndDlg, IDC_MURL, dbv.ptszVal);

-			db_free(&dbv);

-		}

-

-		// display the dialog box and free memory

-		Utils_RestoreWindowPositionNoMove(hwndDlg, NULL, WEATHERPROTONAME, "EditSetting_");

-		ShowWindow(hwndDlg, SW_SHOW);

-		break;

-

-	case WM_COMMAND:

-		wndData = (CntSetWndDataType*)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);

-		hContact = wndData ? wndData->hContact : NULL;

-

-		switch(LOWORD(wParam)) {

-		case IDC_ID:

-			// check if there are 2 parts in the ID (svc/id) seperated by "/"

-			// if not, don't let user change the setting

-			GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-			chop = _tcsstr(str, _T("/"));

-			if (chop == NULL)

-				EnableWindow(GetDlgItem(hwndDlg, IDC_CHANGE), FALSE);

-			else

-				EnableWindow(GetDlgItem(hwndDlg, IDC_CHANGE), TRUE);

-			break;

-

-		case IDC_NAME:

-			// check if station name is entered

-			// if not, don't let user change the setting

-			GetDlgItemText(hwndDlg, IDC_NAME, str, SIZEOF(str));

-			EnableWindow(GetDlgItem(hwndDlg, IDC_CHANGE), str[0] != 0);

-			break;

-

-		case IDC_GETNAME: 

-			{

-				// the button for getting station name from the internet

-				// this function uses the ID search for add/find weather station

-

-				if ( !CheckSearch()) return TRUE;	// don't download if update is in progress

-				// get the weather update data using the string in the ID field

-				GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-				GetSvc(str);

-				WIDATA *sData = GetWIData(str);

-				GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-				GetID(str);

-				// if ID search is available, do it

-				if (sData->IDSearch.Available) {

-					TCHAR *szData = NULL;

-

-					// load the page

-					wsprintfA(loc, sData->IDSearch.SearchURL, str);

-					str[0] = 0;

-					if (InternetDownloadFile(loc, NULL, &szData) == 0) {

-						TCHAR *szInfo = szData;

-						TCHAR* search = _tcsstr(szInfo, sData->IDSearch.NotFoundStr);

-

-						// if the page is found (ie. valid ID), get the name of the city

-						if (search == NULL)

-							GetDataValue(&sData->IDSearch.Name, str, &szInfo);

-

-						// free memory

-						mir_free(szData);

-					}

-					NetlibHttpDisconnect();

-				}

-				// give no station name but only ID if the search is unavailable

-				if (str[0] != 0)	SetDlgItemText(hwndDlg, IDC_NAME, str);

-				break;

-			}

-		case IDC_External:

-			// enable/disable the borwse button depending if the external log is enabled

-			EnableWindow(GetDlgItem(hwndDlg, IDC_BROWSE), (BYTE)IsDlgButtonChecked(hwndDlg, IDC_External));

-			if ( !(BYTE)IsDlgButtonChecked(hwndDlg, IDC_External)) return TRUE;

-

-		case IDC_BROWSE:	// fall through

-			// browse for the external log file

-			GetDlgItemText(hwndDlg, IDC_LOG, str, SIZEOF(str));

-			// Initialize OPENFILENAME

-			ZeroMemory(&ofn, sizeof(OPENFILENAME));

-			ofn.lStructSize = sizeof(OPENFILENAME);

-			ofn.hwndOwner = hwndDlg;

-			ofn.lpstrFile = str;

-			ofn.nMaxFile = SIZEOF(str);

-			// set filters

-			_tcscpy(filter, TranslateT("Text Files"));

-			_tcscat(filter, _T(" (*.txt)"));

-			pfilter = filter + _tcslen(filter)+1;

-			_tcscpy(pfilter, _T("*.txt"));

-			pfilter = pfilter + _tcslen(pfilter)+1;

-			_tcscpy(pfilter, TranslateT("All Files"));

-			_tcscat(pfilter, _T(" (*.*)"));

-			pfilter = pfilter + _tcslen(pfilter)+1;

-			_tcscpy(pfilter, _T("*.*"));

-			pfilter = pfilter + _tcslen(pfilter)+1;

-			*pfilter = '\0';

-			ofn.lpstrFilter = filter;

-			ofn.nFilterIndex = 1;

-			ofn.lpstrFileTitle = NULL;

-			ofn.nMaxFileTitle = 0;

-			ofn.lpstrInitialDir = NULL;

-			ofn.Flags = OFN_PATHMUSTEXIST;

-

-			// Display a Open dialog box and put the file name on the dialog

-			if (GetOpenFileName(&ofn))

-				SetDlgItemText(hwndDlg, IDC_LOG, ofn.lpstrFile);

-			// if there is no log file specified, disable external logging

-			EnableWindow(GetDlgItem(hwndDlg, IDC_CHANGE), ofn.lpstrFile[0] != 0);

-			break;

-

-		case IDC_VIEW1:

-			// view the page for more info

-			GetDlgItemText(hwndDlg, IDC_IURL, str, SIZEOF(str));

-			if (str[0] == 0) return TRUE;

-			GetDlgItemText(hwndDlg, IDC_ID, str2, SIZEOF(str2));

-			OpenUrl(str, str2);

-			break;

-

-		case IDC_VIEW2:

-			// view the page for weather map

-			GetDlgItemText(hwndDlg, IDC_MURL, str, SIZEOF(str));

-			if (str[0] == 0) return TRUE;

-			GetDlgItemText(hwndDlg, IDC_ID, str2, SIZEOF(str2));

-			OpenUrl(str, str2);

-			break;

-

-		case IDC_RESET1:

-			// reset the more info url to service default

-			GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-			GetSvc(str);

-			sData = GetWIData(str);

-			SetDlgItemTextA(hwndDlg, IDC_IURL, sData->DefaultURL);

-			break;

-

-		case IDC_RESET2:

-			// reset the weathe map url to service default

-			GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-			GetSvc(str);

-			sData = GetWIData(str);

-			SetDlgItemText(hwndDlg, IDC_MURL, sData->DefaultMap);

-			break;

-

-		case IDC_SVCINFO:

-			// display the information of the ini file used by the weather station

-			GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-			GetSvc(str);

-			GetINIInfo(str);

-			break;

-

-		case IDC_CHANGE:

-			// temporary disable the protocol while applying the change

-			// start writing the new settings to database

-			GetDlgItemText(hwndDlg, IDC_ID, str, SIZEOF(str));

-			db_set_ts(hContact, WEATHERPROTONAME, "ID", str);

-			if ((BYTE)IsDlgButtonChecked(hwndDlg, IDC_DEFA)) {	// if default station is set

-				_tcscpy(opt.Default, str);

-				opt.DefStn = hContact;

-				db_set_ts(NULL, WEATHERPROTONAME, "Default", opt.Default);

-			}

-			GetDlgItemText(hwndDlg, IDC_NAME, city, SIZEOF(city));

-			db_set_ts(hContact, WEATHERPROTONAME, "Nick", city);

-			wsprintf(str2, TranslateT("Current weather information for %s."), city);

-			if ((BYTE)IsDlgButtonChecked(hwndDlg, IDC_External)) {

-				GetDlgItemText(hwndDlg, IDC_LOG, str, SIZEOF(str));

-				db_set_ts(hContact, WEATHERPROTONAME, "Log", str);

-			}

-			else db_unset(hContact, WEATHERPROTONAME, "Log");

-

-			GetDlgItemText(hwndDlg, IDC_IURL, str, SIZEOF(str));

-			db_set_ts(hContact, WEATHERPROTONAME, "InfoURL", str);

-

-			GetDlgItemText(hwndDlg, IDC_MURL, str, SIZEOF(str));

-			db_set_ts(hContact, WEATHERPROTONAME, "MapURL", str);

-			db_set_w(hContact, WEATHERPROTONAME, "Status", ID_STATUS_OFFLINE);

-			db_set_w(hContact, WEATHERPROTONAME, "StatusIcon", ID_STATUS_OFFLINE);

-			AvatarDownloaded(hContact);

-			db_set_ts(hContact, WEATHERPROTONAME, "About", str2);

-			db_set_b(hContact, WEATHERPROTONAME, "History", (BYTE)IsDlgButtonChecked(hwndDlg, IDC_Internal));

-			db_set_b(hContact, WEATHERPROTONAME, "Overwrite", (BYTE)IsDlgButtonChecked(hwndDlg, IDC_Overwrite));

-			db_set_b(hContact, WEATHERPROTONAME, "File", (BYTE)IsDlgButtonChecked(hwndDlg, IDC_External));

-			db_set_b(hContact, WEATHERPROTONAME, "DPopUp", (BYTE)IsDlgButtonChecked(hwndDlg, IDC_DPop));

-			db_set_b(hContact, WEATHERPROTONAME, "DAutoUpdate", (BYTE)IsDlgButtonChecked(hwndDlg, IDC_DAutoUpdate));

-

-			// re-enable the protocol and update the data for the station

-			db_set_s(hContact, WEATHERPROTONAME, "LastCondition", "None");

-			UpdateSingleStation((WPARAM)hContact, 0);

-

-		case IDCANCEL:		// fall through

-			// remove the dialog from window list and close it

-			DestroyWindow(hwndDlg);

-			break;

-		}

-		break;

-

-	case WM_CLOSE:

-		// remove the dialog from window list and close it

-		DestroyWindow(hwndDlg);

-		break;

-

-	case WM_DESTROY:

-		wndData = (CntSetWndDataType*)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);

-		Skin_ReleaseIcon(wndData->hFile);

-		Skin_ReleaseIcon(wndData->hRename);

-		Skin_ReleaseIcon(wndData->hSrchAll);

-		Skin_ReleaseIcon(wndData->hUserDetail);

-		mir_free(wndData);

-		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);

-

-		WindowList_Remove(hWindowList, hwndDlg);

-		Utils_SaveWindowPosition(hwndDlg, NULL, WEATHERPROTONAME, "EditSetting_");

-		break;

-	}

-	return FALSE;

-}

-

-//============ CONTACT DELETION  ============

-

-// when a contact is deleted, make sure some other contact take over the default station

-// wParam = deleted contact

-int ContactDeleted(WPARAM wParam, LPARAM lParam) 

-{

-	if ( !IsMyContact((HANDLE)wParam)) 

-		return 0; 

-

-	removeWindow((HANDLE)wParam);

-

-	// exit this function if it is not default station

-	DBVARIANT dbv;

-	if ( !DBGetContactSettingTString((HANDLE)wParam, WEATHERPROTONAME, "ID", &dbv)) {

-		if ( _tcscmp(dbv.ptszVal, opt.Default)) {

-			db_free(&dbv);

-			return 0;

-		}

-		db_free(&dbv);

-	}

-

-	// now the default station is deleted, try to get a new one

-

-	// start looking for other weather stations

-	HANDLE hContact = db_find_first();

-	while(hContact) {

-		if (IsMyContact(hContact)) {

-			if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "ID", &dbv)) {

-				// if the station is not a default station, set it as the new default station

-				// this is the first weather station encountered from the search

-				if ( _tcscmp(opt.Default, dbv.ptszVal)) {

-					_tcscpy(opt.Default, dbv.ptszVal);

-					opt.DefStn = hContact;

-					db_free(&dbv);

-					if ( !DBGetContactSettingTString(hContact, WEATHERPROTONAME, "Nick", &dbv)) {

-						TCHAR str[255];

-						mir_sntprintf(str, SIZEOF(str), TranslateT("%s is now the default weather station"), dbv.ptszVal);

-						db_free(&dbv);

-						MessageBox(NULL, str, TranslateT("Weather Protocol"), MB_OK | MB_ICONINFORMATION);

-					}

-					db_set_ts(NULL, WEATHERPROTONAME, "Default", opt.Default);

-					return 0;		// exit this function quickly

-				}

-				db_free(&dbv);

-			}

-		}

-		hContact = db_find_next(hContact);

-	}

-	// got here if no more weather station left

-	opt.Default[0] = 0;	// no default station

-	opt.DefStn = NULL;

-	db_set_ts(NULL, WEATHERPROTONAME, "Default", opt.Default);

-	return 0;

-}

-

-BOOL IsMyContact(HANDLE hContact)

-{

-	const char* szProto = GetContactProto(hContact);

-	return szProto != NULL && strcmp(WEATHERPROTONAME, szProto) == 0;

-}