From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Mon, 8 Oct 2012 18:43:29 +0000 Subject: Awkwars's plugins - welcome to our trunk git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Watrack/myshows/i_myshows_opt.inc | 47 +++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 plugins/Watrack/myshows/i_myshows_opt.inc (limited to 'plugins/Watrack/myshows/i_myshows_opt.inc') diff --git a/plugins/Watrack/myshows/i_myshows_opt.inc b/plugins/Watrack/myshows/i_myshows_opt.inc new file mode 100644 index 0000000000..f3287aba05 --- /dev/null +++ b/plugins/Watrack/myshows/i_myshows_opt.inc @@ -0,0 +1,47 @@ +{} +const + optLogin :pAnsiChar='myshows/login'; + optPassword:pAnsiChar='myshows/password'; + optTries :pAnsiChar='myshows/tries'; +// optTimeout :PAnsiChar='myshows/timeout'; + optScrobPos:pAnsiChar='myshows/scrobpos'; + optScrobble:pAnsiChar='myshows/scrobble'; + +procedure SaveOpt; +var + tmppass:array [0..255] of AnsiChar; +begin + if msh_password<>nil then + begin + StrCopy(tmppass,msh_password); + CallService(MS_DB_CRYPT_ENCODESTRING,StrLen(tmppass)+1,LPARAM(@tmppass)); + end; + DBWriteString(0,PluginShort,optPassword,tmppass); + DBWriteString(0,PluginShort,optLogin ,msh_login); + DBWriteByte (0,PluginShort,optTries ,msh_tries); + DBWriteByte (0,PluginShort,optScrobPos,msh_scrobpos); +// DBWriteWord (0,PluginShort,optTries ,msh_timeout); + DBWriteByte (0,PluginShort,optScrobble,msh_on and 1); +end; + +procedure LoadOpt; +begin +// msh_timeout :=DBReadWord(0,PluginShort,optTimeout ,0); + msh_scrobpos:=DBReadByte(0,PluginShort,optScrobPos,30); + msh_tries :=DBReadByte(0,PluginShort,optTries ,3); + msh_on :=DBReadByte(0,PluginShort,optScrobble,0); + mFreeMem(msh_login ); msh_login :=DBReadString(0,PluginShort,optLogin); + mFreeMem(msh_password); msh_password:=DBReadString(0,PluginShort,optPassword); + if msh_password<>nil then + CallService(MS_DB_CRYPT_DECODESTRING,StrLen(msh_password)+1,LPARAM(msh_password)); + if (msh_login=nil) or (msh_password=nil) then + CallService(MS_POPUP_SHOWMESSAGEW, + WPARAM(TranslateW('Don''t forget to enter Login and Password to use MyShows service')), + SM_WARNING); +end; + +procedure FreeOpt; +begin + mFreeMem(msh_login); + mFreeMem(msh_password); +end; -- cgit v1.2.3