src/TortoiseProc/TortoiseProc.cpp

   1 // TortoiseSVN - a Windows shell extension for easy version control\r
   2 \r
   3 // Copyright (C) 2003-2008 - TortoiseSVN\r
   4 \r
   5 // This program is free software; you can redistribute it and/or\r
   6 // modify it under the terms of the GNU General Public License\r
   7 // as published by the Free Software Foundation; either version 2\r
   8 // of the License, or (at your option) any later version.\r
   9 \r
  10 // This program is distributed in the hope that it will be useful,\r
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  13 // GNU General Public License for more details.\r
  14 \r
  15 // You should have received a copy of the GNU General Public License\r
  16 // along with this program; if not, write to the Free Software Foundation,\r
  17 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
  18 //\r
  19 #include "stdafx.h"\r
  20 //#include "vld.h"\r
  21 #include "TortoiseProc.h"\r
  22 #include "SysImageList.h"\r
  23 //#include "CrashReport.h"\r
  24 #include "CmdLineParser.h"\r
  25 #include "Hooks.h"\r
  26 #include "AppUtils.h"\r
  27 #include "PathUtils.h"\r
  28 #include "UnicodeUtils.h"\r
  29 #include "MessageBox.h"\r
  30 //#include "libintl.h"\r
  31 #include "DirFileEnum.h"\r
  32 //#include "SoundUtils.h"\r
  33 //#include "SVN.h"\r
  34 #include "GitAdminDir.h"\r
  35 #include "Git.h"\r
  36 //#include "SVNGlobal.h"\r
  37 //#include "svn_types.h"\r
  38 //#include "svn_dso.h"\r
  39 //#include <openssl/ssl.h>\r
  40 //#include <openssl/err.h>\r
  41 \r
  42 #include "Commands\Command.h"\r
  43 \r
  44 #include "..\version.h"\r
  45 #define STRUCT_IOVEC_DEFINED\r
  46 //#include "sasl.h"\r
  47 \r
  48 #ifdef _DEBUG\r
  49 #define new DEBUG_NEW\r
  50 #endif\r
  51 \r
  52 #pragma comment(linker, "\"/manifestdependency:type='win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*'\"")\r
  53 \r
  54 \r
  55 BEGIN_MESSAGE_MAP(CTortoiseProcApp, CWinAppEx)\r
  56         ON_COMMAND(ID_HELP, CWinAppEx::OnHelp)\r
  57 END_MESSAGE_MAP()\r
  58 \r
  59 CString g_version;\r
  60 \r
  61 //////////////////////////////////////////////////////////////////////////\r
  62 \r
  63 CTortoiseProcApp::CTortoiseProcApp()\r
  64 {\r
  65         EnableHtmlHelp();\r
  66         int argc = 0;\r
  67         g_version=_T("abc");\r
  68         const char* const * argv = NULL;\r
  69 //      apr_app_initialize(&argc, &argv, NULL);\r
  70 //      svn_dso_initialize2();\r
  71         SYS_IMAGE_LIST();\r
  72 //      CHooks::Create();\r
  73         g_GitAdminDir.Init();\r
  74         m_bLoadUserToolbars = FALSE;\r
  75         m_bSaveState = FALSE;\r
  76         retSuccess = false;\r
  77         CGit git;\r
  78         git.GetUserName();\r
  79 }\r
  80 \r
  81 CTortoiseProcApp::~CTortoiseProcApp()\r
  82 {\r
  83 //      sasl_done();\r
  84 \r
  85         // global application exit cleanup (after all SSL activity is shutdown)\r
  86         // we have to clean up SSL ourselves, since neon doesn't do that (can't do it)\r
  87         // because those cleanup functions work globally per process.\r
  88         //ERR_free_strings();\r
  89         //EVP_cleanup();\r
  90         //CRYPTO_cleanup_all_ex_data();\r
  91 \r
  92         // since it is undefined *when* the global object SVNAdminDir is\r
  93         // destroyed, we tell it to destroy the memory pools and terminate apr\r
  94         // *now* instead of later when the object itself is destroyed.\r
  95         g_GitAdminDir.Close();\r
  96 //      CHooks::Destroy();\r
  97         SYS_IMAGE_LIST().Cleanup();\r
  98         //apr_terminate();\r
  99 }\r
 100 \r
 101 // The one and only CTortoiseProcApp object\r
 102 CTortoiseProcApp theApp;\r
 103 HWND hWndExplorer;\r
 104 CString sOrigCWD;\r
 105 \r
 106 //CCrashReport crasher("crashreports@tortoisesvn.tigris.org", "Crash Report for TortoiseSVN " APP_X64_STRING " : " STRPRODUCTVER, TRUE);// crash\r
 107 \r
 108 // CTortoiseProcApp initialization\r
 109 \r
 110 BOOL CTortoiseProcApp::InitInstance()\r
 111 {\r
 112         EnableCrashHandler();\r
 113         CheckUpgrade();\r
 114         CMFCVisualManager::SetDefaultManager(RUNTIME_CLASS(CMFCVisualManagerWindows));\r
 115         CMFCButton::EnableWindowsTheming();\r
 116         //set the resource dll for the required language\r
 117         CRegDWORD loc = CRegDWORD(_T("Software\\TortoiseSVN\\LanguageID"), 1033);\r
 118         long langId = loc;\r
 119         CString langDll;\r
 120         CStringA langpath = CStringA(CPathUtils::GetAppParentDirectory());\r
 121         langpath += "Languages";\r
 122 //      bindtextdomain("subversion", (LPCSTR)langpath);\r
 123 //      bind_textdomain_codeset("subversion", "UTF-8");\r
 124         HINSTANCE hInst = NULL;\r
 125         do\r
 126         {\r
 127                 langDll.Format(_T("..\\Languages\\TortoiseProc%d.dll"), langId);\r
 128                 \r
 129                 hInst = LoadLibrary(langDll);\r
 130 \r
 131                 CString sVer = _T(STRPRODUCTVER);\r
 132                 CString sFileVer = CPathUtils::GetVersionFromFile(langDll);\r
 133                 if (sFileVer.Compare(sVer)!=0)\r
 134                 {\r
 135                         FreeLibrary(hInst);\r
 136                         hInst = NULL;\r
 137                 }\r
 138                 if (hInst != NULL)\r
 139                 {\r
 140                         AfxSetResourceHandle(hInst);\r
 141                 }\r
 142                 else\r
 143                 {\r
 144                         DWORD lid = SUBLANGID(langId);\r
 145                         lid--;\r
 146                         if (lid > 0)\r
 147                         {\r
 148                                 langId = MAKELANGID(PRIMARYLANGID(langId), lid);\r
 149                         }\r
 150                         else\r
 151                                 langId = 0;\r
 152                 }\r
 153         } while ((hInst == NULL) && (langId != 0));\r
 154         TCHAR buf[6];\r
 155         _tcscpy_s(buf, _T("en"));\r
 156         langId = loc;\r
 157         CString sHelppath;\r
 158         sHelppath = this->m_pszHelpFilePath;\r
 159         sHelppath = sHelppath.MakeLower();\r
 160         // MFC uses a help file with the same name as the application by default,\r
 161         // which means we have to change that default to our language specific help files\r
 162         sHelppath.Replace(_T("tortoiseproc.chm"), _T("TortoiseSVN_en.chm"));\r
 163         free((void*)m_pszHelpFilePath);\r
 164         m_pszHelpFilePath=_tcsdup(sHelppath);\r
 165         sHelppath = CPathUtils::GetAppParentDirectory() + _T("Languages\\TortoiseSVN_en.chm");\r
 166         do\r
 167         {\r
 168                 CString sLang = _T("_");\r
 169                 if (GetLocaleInfo(MAKELCID(langId, SORT_DEFAULT), LOCALE_SISO639LANGNAME, buf, sizeof(buf)))\r
 170                 {\r
 171                         sLang += buf;\r
 172                         sHelppath.Replace(_T("_en"), sLang);\r
 173                         if (PathFileExists(sHelppath))\r
 174                         {\r
 175                                 free((void*)m_pszHelpFilePath);\r
 176                                 m_pszHelpFilePath=_tcsdup(sHelppath);\r
 177                                 break;\r
 178                         }\r
 179                 }\r
 180                 sHelppath.Replace(sLang, _T("_en"));\r
 181                 if (GetLocaleInfo(MAKELCID(langId, SORT_DEFAULT), LOCALE_SISO3166CTRYNAME, buf, sizeof(buf)))\r
 182                 {\r
 183                         sLang += _T("_");\r
 184                         sLang += buf;\r
 185                         sHelppath.Replace(_T("_en"), sLang);\r
 186                         if (PathFileExists(sHelppath))\r
 187                         {\r
 188                                 free((void*)m_pszHelpFilePath);\r
 189                                 m_pszHelpFilePath=_tcsdup(sHelppath);\r
 190                                 break;\r
 191                         }\r
 192                 }\r
 193                 sHelppath.Replace(sLang, _T("_en"));\r
 194 \r
 195                 DWORD lid = SUBLANGID(langId);\r
 196                 lid--;\r
 197                 if (lid > 0)\r
 198                 {\r
 199                         langId = MAKELANGID(PRIMARYLANGID(langId), lid);\r
 200                 }\r
 201                 else\r
 202                         langId = 0;\r
 203         } while (langId);\r
 204         setlocale(LC_ALL, "");\r
 205         \r
 206         // InitCommonControls() is required on Windows XP if an application\r
 207         // manifest specifies use of ComCtl32.dll version 6 or later to enable\r
 208         // visual styles.  Otherwise, any window creation will fail.\r
 209         \r
 210     INITCOMMONCONTROLSEX used = {\r
 211         sizeof(INITCOMMONCONTROLSEX),\r
 212                         ICC_ANIMATE_CLASS | ICC_BAR_CLASSES | ICC_COOL_CLASSES | ICC_DATE_CLASSES |\r
 213                         ICC_HOTKEY_CLASS | ICC_INTERNET_CLASSES | ICC_LISTVIEW_CLASSES |\r
 214                         ICC_NATIVEFNTCTL_CLASS | ICC_PAGESCROLLER_CLASS | ICC_PROGRESS_CLASS |\r
 215                         ICC_TAB_CLASSES | ICC_TREEVIEW_CLASSES | ICC_UPDOWN_CLASS |\r
 216                         ICC_USEREX_CLASSES | ICC_WIN95_CLASSES\r
 217     };\r
 218     InitCommonControlsEx(&used);\r
 219         AfxOleInit();\r
 220         AfxEnableControlContainer();\r
 221         AfxInitRichEdit2();\r
 222         CWinAppEx::InitInstance();\r
 223         SetRegistryKey(_T("TortoiseSVN"));\r
 224 \r
 225         CCmdLineParser parser(AfxGetApp()->m_lpCmdLine);\r
 226 \r
 227         // if HKCU\Software\TortoiseSVN\Debug is not 0, show our command line\r
 228         // in a message box\r
 229         if (CRegDWORD(_T("Software\\TortoiseSVN\\Debug"), FALSE)==TRUE)\r
 230                 AfxMessageBox(AfxGetApp()->m_lpCmdLine, MB_OK | MB_ICONINFORMATION);\r
 231 \r
 232         if ( parser.HasKey(_T("path")) && parser.HasKey(_T("pathfile")))\r
 233         {\r
 234                 CMessageBox::Show(NULL, IDS_ERR_INVALIDPATH, IDS_APPNAME, MB_ICONERROR);\r
 235                 return FALSE;\r
 236         }\r
 237 \r
 238         CTGitPath cmdLinePath;\r
 239         CTGitPathList pathList;\r
 240         if ( parser.HasKey(_T("pathfile")) )\r
 241         {\r
 242 \r
 243                 CString sPathfileArgument = CPathUtils::GetLongPathname(parser.GetVal(_T("pathfile")));\r
 244                 cmdLinePath.SetFromUnknown(sPathfileArgument);\r
 245                 if (pathList.LoadFromFile(cmdLinePath)==false)\r
 246                         return FALSE;           // no path specified!\r
 247                 if ( parser.HasKey(_T("deletepathfile")) )\r
 248                 {\r
 249                         // We can delete the temporary path file, now that we've loaded it\r
 250                         ::DeleteFile(cmdLinePath.GetWinPath());\r
 251                 }\r
 252                 // This was a path to a temporary file - it's got no meaning now, and\r
 253                 // anybody who uses it again is in for a problem...\r
 254                 cmdLinePath.Reset();\r
 255 \r
 256         }\r
 257         else\r
 258         {\r
 259 \r
 260                 CString sPathArgument = CPathUtils::GetLongPathname(parser.GetVal(_T("path")));\r
 261                 int asterisk = sPathArgument.Find('*');\r
 262                 cmdLinePath.SetFromUnknown(asterisk >= 0 ? sPathArgument.Left(asterisk) : sPathArgument);\r
 263                 pathList.LoadFromAsteriskSeparatedString(sPathArgument);\r
 264 \r
 265         }\r
 266         \r
 267         hWndExplorer = NULL;\r
 268         CString sVal = parser.GetVal(_T("hwnd"));\r
 269         if (!sVal.IsEmpty())\r
 270                 hWndExplorer = (HWND)_ttoi64(sVal);\r
 271 \r
 272         while (GetParent(hWndExplorer)!=NULL)\r
 273                 hWndExplorer = GetParent(hWndExplorer);\r
 274         if (!IsWindow(hWndExplorer))\r
 275         {\r
 276                 hWndExplorer = NULL;\r
 277         }\r
 278         \r
 279         // Subversion sometimes writes temp files to the current directory!\r
 280         // Since TSVN doesn't need a specific CWD anyway, we just set it\r
 281         // to the users temp folder: that way, Subversion is guaranteed to\r
 282         // have write access to the CWD\r
 283         {\r
 284                 DWORD len = GetCurrentDirectory(0, NULL);\r
 285                 if (len)\r
 286                 {\r
 287                         TCHAR * originalCurrentDirectory = new TCHAR[len];\r
 288                         if (GetCurrentDirectory(len, originalCurrentDirectory))\r
 289                         {\r
 290                                 sOrigCWD = originalCurrentDirectory;\r
 291                                 sOrigCWD = CPathUtils::GetLongPathname(sOrigCWD);\r
 292                         }\r
 293                         delete [] originalCurrentDirectory;\r
 294                 }\r
 295                 TCHAR pathbuf[MAX_PATH];\r
 296                 GetTempPath(MAX_PATH, pathbuf);\r
 297                 SetCurrentDirectory(pathbuf);           \r
 298         }\r
 299 \r
 300         // check for newer versions\r
 301         if (CRegDWORD(_T("Software\\TortoiseSVN\\CheckNewer"), TRUE) != FALSE)\r
 302         {\r
 303                 time_t now;\r
 304                 struct tm ptm;\r
 305 \r
 306                 time(&now);\r
 307                 if ((now != 0) && (localtime_s(&ptm, &now)==0))\r
 308                 {\r
 309                         int week = 0;\r
 310                         // we don't calculate the real 'week of the year' here\r
 311                         // because just to decide if we should check for an update\r
 312                         // that's not needed.\r
 313                         week = ptm.tm_yday / 7;\r
 314 \r
 315                         CRegDWORD oldweek = CRegDWORD(_T("Software\\TortoiseSVN\\CheckNewerWeek"), (DWORD)-1);\r
 316                         if (((DWORD)oldweek) == -1)\r
 317                                 oldweek = week;         // first start of TortoiseProc, no update check needed\r
 318                         else\r
 319                         {\r
 320                                 if ((DWORD)week != oldweek)\r
 321                                 {\r
 322                                         oldweek = week;\r
 323 \r
 324                                         TCHAR com[MAX_PATH+100];\r
 325                                         GetModuleFileName(NULL, com, MAX_PATH);\r
 326                                         _tcscat_s(com, MAX_PATH+100, _T(" /command:updatecheck"));\r
 327 \r
 328                                         //CAppUtils::LaunchApplication(com, 0, false);\r
 329                                 }\r
 330                         }\r
 331                 }\r
 332         }\r
 333 \r
 334         if (parser.HasVal(_T("configdir")))\r
 335         {\r
 336                 // the user can override the location of the Subversion config directory here\r
 337                 CString sConfigDir = parser.GetVal(_T("configdir"));\r
 338 //              g_GitGlobal.SetConfigDir(sConfigDir);\r
 339         }\r
 340         // to avoid that SASL will look for and load its plugin dlls all around the\r
 341         // system, we set the path here.\r
 342         // Note that SASL doesn't have to be initialized yet for this to work\r
 343 //      sasl_set_path(SASL_PATH_TYPE_PLUGIN, (LPSTR)(LPCSTR)CUnicodeUtils::GetUTF8(CPathUtils::GetAppDirectory().TrimRight('\\')));\r
 344 \r
 345         HANDLE TSVNMutex = ::CreateMutex(NULL, FALSE, _T("TortoiseGitProc.exe"));       \r
 346         {\r
 347 #if 0\r
 348                 CString err = Git::CheckConfigFile();\r
 349                 if (!err.IsEmpty())\r
 350                 {\r
 351                         CMessageBox::Show(hWndExplorer, err, _T("TortoiseGit"), MB_ICONERROR);\r
 352                         // Normally, we give-up and exit at this point, but there is a trap here\r
 353                         // in that the user might need to use the settings dialog to edit the config file.\r
 354                         if (CString(parser.GetVal(_T("command"))).Compare(_T("settings"))==0)\r
 355                         {\r
 356                                 // just open the config file\r
 357                                 TCHAR buf[MAX_PATH];\r
 358                                 SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, SHGFP_TYPE_CURRENT, buf);\r
 359                                 CString path = buf;\r
 360                                 path += _T("\\Git\\config");\r
 361                                 CAppUtils::StartTextViewer(path);\r
 362                                 return FALSE;\r
 363                         }\r
 364                 }\r
 365 #endif\r
 366         }\r
 367 \r
 368         // execute the requested command\r
 369         CommandServer server;\r
 370         Command * cmd = server.GetCommand(parser.GetVal(_T("command")));\r
 371         if (cmd)\r
 372         {\r
 373                 cmd->SetExplorerHwnd(hWndExplorer);\r
 374                 cmd->SetParser(parser);\r
 375                 cmd->SetPaths(pathList, cmdLinePath);\r
 376                 retSuccess = cmd->Execute();\r
 377                 delete cmd;\r
 378         }\r
 379 \r
 380         if (TSVNMutex)\r
 381                 ::CloseHandle(TSVNMutex);\r
 382 \r
 383         // Look for temporary files left around by TortoiseSVN and\r
 384         // remove them. But only delete 'old' files because some\r
 385         // apps might still be needing the recent ones.\r
 386         {\r
 387                 DWORD len = ::GetTempPath(0, NULL);\r
 388                 TCHAR * path = new TCHAR[len + 100];\r
 389                 len = ::GetTempPath (len+100, path);\r
 390                 if (len != 0)\r
 391                 {\r
 392                         CSimpleFileFind finder = CSimpleFileFind(path, _T("*svn*.*"));\r
 393                         FILETIME systime_;\r
 394                         ::GetSystemTimeAsFileTime(&systime_);\r
 395                         __int64 systime = (((_int64)systime_.dwHighDateTime)<<32) | ((__int64)systime_.dwLowDateTime);\r
 396                         while (finder.FindNextFileNoDirectories())\r
 397                         {\r
 398                                 CString filepath = finder.GetFilePath();\r
 399                                 HANDLE hFile = ::CreateFile(filepath, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, NULL, NULL);\r
 400                                 if (hFile != INVALID_HANDLE_VALUE)\r
 401                                 {\r
 402                                         FILETIME createtime_;\r
 403                                         if (::GetFileTime(hFile, &createtime_, NULL, NULL))\r
 404                                         {\r
 405                                                 ::CloseHandle(hFile);\r
 406                                                 __int64 createtime = (((_int64)createtime_.dwHighDateTime)<<32) | ((__int64)createtime_.dwLowDateTime);\r
 407                                                 if ((createtime + 864000000000) < systime)              //only delete files older than a day\r
 408                                                 {\r
 409                                                         ::SetFileAttributes(filepath, FILE_ATTRIBUTE_NORMAL);\r
 410                                                         ::DeleteFile(filepath);\r
 411                                                 }\r
 412                                         }\r
 413                                         else\r
 414                                                 ::CloseHandle(hFile);\r
 415                                 }\r
 416                         }\r
 417                 }       \r
 418                 delete[] path;          \r
 419         }\r
 420 \r
 421 \r
 422         // Since the dialog has been closed, return FALSE so that we exit the\r
 423         // application, rather than start the application's message pump.\r
 424         return FALSE;\r
 425 }\r
 426 \r
 427 \r
 428 \r
 429 void CTortoiseProcApp::CheckUpgrade()\r
 430 {\r
 431         CRegString regVersion = CRegString(_T("Software\\TortoiseSVN\\CurrentVersion"));\r
 432         CString sVersion = regVersion;\r
 433         if (sVersion.Compare(_T(STRPRODUCTVER))==0)\r
 434                 return;\r
 435         // we're starting the first time with a new version!\r
 436         \r
 437         LONG lVersion = 0;\r
 438         int pos = sVersion.Find(',');\r
 439         if (pos > 0)\r
 440         {\r
 441                 lVersion = (_ttol(sVersion.Left(pos))<<24);\r
 442                 lVersion |= (_ttol(sVersion.Mid(pos+1))<<16);\r
 443                 pos = sVersion.Find(',', pos+1);\r
 444                 lVersion |= (_ttol(sVersion.Mid(pos+1))<<8);\r
 445         }\r
 446         \r
 447         CRegDWORD regval = CRegDWORD(_T("Software\\TortoiseSVN\\DontConvertBase"), 999);\r
 448         if ((DWORD)regval != 999)\r
 449         {\r
 450                 // there's a leftover registry setting we have to convert and then delete it\r
 451                 CRegDWORD newregval = CRegDWORD(_T("Software\\TortoiseSVN\\ConvertBase"));\r
 452                 newregval = !regval;\r
 453                 regval.removeValue();\r
 454         }\r
 455 #if 0\r
 456         if (lVersion <= 0x01010300)\r
 457         {\r
 458                 CSoundUtils::RegisterTSVNSounds();\r
 459                 // remove all saved dialog positions\r
 460                 CRegString(_T("Software\\TortoiseSVN\\TortoiseProc\\ResizableState\\")).removeKey();\r
 461                 CRegDWORD(_T("Software\\TortoiseSVN\\RecursiveOverlay")).removeValue();\r
 462                 // remove the external cache key\r
 463                 CRegDWORD(_T("Software\\TortoiseSVN\\ExternalCache")).removeValue();\r
 464         }\r
 465 #endif  \r
 466         if (lVersion <= 0x01020200)\r
 467         {\r
 468                 // upgrade to > 1.2.3 means the doc diff scripts changed from vbs to js\r
 469                 // so remove the diff/merge scripts if they're the defaults\r
 470                 CRegString diffreg = CRegString(_T("Software\\TortoiseSVN\\DiffTools\\.doc"));\r
 471                 CString sDiff = diffreg;\r
 472                 CString sCL = _T("wscript.exe \"") + CPathUtils::GetAppParentDirectory()+_T("Diff-Scripts\\diff-doc.vbs\"");\r
 473                 if (sDiff.Left(sCL.GetLength()).CompareNoCase(sCL)==0)\r
 474                         diffreg = _T("");\r
 475                 CRegString mergereg = CRegString(_T("Software\\TortoiseSVN\\MergeTools\\.doc"));\r
 476                 sDiff = mergereg;\r
 477                 sCL = _T("wscript.exe \"") + CPathUtils::GetAppParentDirectory()+_T("Diff-Scripts\\merge-doc.vbs\"");\r
 478                 if (sDiff.Left(sCL.GetLength()).CompareNoCase(sCL)==0)\r
 479                         mergereg = _T("");\r
 480         }\r
 481         if (lVersion <= 0x01040000)\r
 482         {\r
 483                 CRegStdWORD(_T("Software\\TortoiseSVN\\OwnerdrawnMenus")).removeValue();\r
 484         }\r
 485         \r
 486         // set the custom diff scripts for every user\r
 487         CString scriptsdir = CPathUtils::GetAppParentDirectory();\r
 488         scriptsdir += _T("Diff-Scripts");\r
 489         CSimpleFileFind files(scriptsdir);\r
 490         while (files.FindNextFileNoDirectories())\r
 491         {\r
 492                 CString file = files.GetFilePath();\r
 493                 CString filename = files.GetFileName();\r
 494                 CString ext = file.Mid(file.ReverseFind('-')+1);\r
 495                 ext = _T(".")+ext.Left(ext.ReverseFind('.'));\r
 496                 CString kind;\r
 497                 if (file.Right(3).CompareNoCase(_T("vbs"))==0)\r
 498                 {\r
 499                         kind = _T(" //E:vbscript");\r
 500                 }\r
 501                 if (file.Right(2).CompareNoCase(_T("js"))==0)\r
 502                 {\r
 503                         kind = _T(" //E:javascript");\r
 504                 }\r
 505                 \r
 506                 if (filename.Left(5).CompareNoCase(_T("diff-"))==0)\r
 507                 {\r
 508                         CRegString diffreg = CRegString(_T("Software\\TortoiseSVN\\DiffTools\\")+ext);\r
 509                         CString diffregstring = diffreg;\r
 510                         if ((diffregstring.IsEmpty()) || (diffregstring.Find(filename)>=0))\r
 511                                 diffreg = _T("wscript.exe \"") + file + _T("\" %base %mine") + kind;\r
 512                 }\r
 513                 if (filename.Left(6).CompareNoCase(_T("merge-"))==0)\r
 514                 {\r
 515                         CRegString diffreg = CRegString(_T("Software\\TortoiseSVN\\MergeTools\\")+ext);\r
 516                         CString diffregstring = diffreg;\r
 517                         if ((diffregstring.IsEmpty()) || (diffregstring.Find(filename)>=0))\r
 518                                 diffreg = _T("wscript.exe \"") + file + _T("\" %merged %theirs %mine %base") + kind;\r
 519                 }\r
 520         }\r
 521 \r
 522         // Initialize "Software\\TortoiseSVN\\DiffProps" once with the same value as "Software\\TortoiseSVN\\Diff"\r
 523         CRegString regDiffPropsPath = CRegString(_T("Software\\TortoiseSVN\\DiffProps"),_T("non-existant"));\r
 524         CString strDiffPropsPath = regDiffPropsPath;\r
 525         if ( strDiffPropsPath==_T("non-existant") )\r
 526         {\r
 527                 CString strDiffPath = CRegString(_T("Software\\TortoiseSVN\\Diff"));\r
 528                 regDiffPropsPath = strDiffPath;\r
 529         }\r
 530 \r
 531         // set the current version so we don't come here again until the next update!\r
 532         regVersion = _T(STRPRODUCTVER); \r
 533 }\r
 534 \r
 535 void CTortoiseProcApp::EnableCrashHandler()\r
 536 {\r
 537         // the crash handler is enabled by default, but we disable it\r
 538         // after 3 months after a release\r
 539 \r
 540 #define YEAR ((((__DATE__ [7] - '0') * 10 + (__DATE__ [8] - '0')) * 10  \\r
 541               + (__DATE__ [9] - '0')) * 10 + (__DATE__ [10] - '0'))\r
 542 \r
 543 #define MONTH (__DATE__ [2] == 'n' ? (__DATE__ [1] == 'a' ? 1 : 6)      \\r
 544                 : __DATE__ [2] == 'b' ? 2                               \\r
 545                 : __DATE__ [2] == 'r' ? (__DATE__ [0] == 'M' ? 3 : 4)   \\r
 546                 : __DATE__ [2] == 'y' ? 5                                                               \\r
 547                 : __DATE__ [2] == 'l' ? 7                               \\r
 548                 : __DATE__ [2] == 'g' ? 8                               \\r
 549                 : __DATE__ [2] == 'p' ? 9                               \\r
 550                 : __DATE__ [2] == 't' ? 10                               \\r
 551                 : __DATE__ [2] == 'v' ? 11 : 12)\r
 552 \r
 553  #define DAY ((__DATE__ [4] == ' ' ? 0 : __DATE__ [4] - '0') * 10       \\r
 554               + (__DATE__ [5] - '0'))\r
 555 \r
 556  #define DATE_AS_INT (((YEAR - 2000) * 12 + MONTH) * 31 + DAY)\r
 557 \r
 558         CTime compiletime(YEAR, MONTH, DAY, 0, 0, 0);\r
 559         CTime now = CTime::GetCurrentTime();\r
 560 \r
 561         CTimeSpan timediff = now-compiletime;\r
 562         if (timediff.GetDays() > 3*31)\r
 563         {\r
 564 //              crasher.Enable(FALSE);\r
 565         }\r
 566 }\r
 567 \r
 568 int CTortoiseProcApp::ExitInstance()\r
 569 {\r
 570         CWinAppEx::ExitInstance();\r
 571         if (retSuccess)\r
 572                 return 0;\r
 573         return -1;\r
 574 }\r