44X  -UArial MS Sans Serif "Times New Roman)  dPArial U_Arial MS Sans Serif `  4  prefsJ`V  "; GK W[ `jv ~author Mikel Maron authorEmailmikel_maron@yahoo.com description homePageUrlnameQuotes releaseDateversion0.1WJ*Arial ->8wB#)zLANDwinon getQuote () local (htmltext = "") local (params = {"Symbol":"YHOO,VOD.L"}) htmltext = soap.rpc.client("/soap","getQuote",@params,"66.28.98.121","9090",soapAction:"urn:xmethods-delayed-quotes") params = {"zipcode":"10001"} htmltext = htmltext + " " + soap.rpc.client("/soap/servlet/rpcrouter","getTemp",@params,"services.xmethods.net","80",methodNamespace:"m",methodNamespaceUri:"PHv4 k3 vnX W  J Arial JLANDwinThis script runs every hour. Arial1`1*20Wv4 k3 vnX Arial FLANDwinThis script runs every night. {w.  ". 9 everyHour` everyMinute6 everyNight{   RN$  fileMenuuser R Arial NLANDwindialog.notify ("Hello, World!") Arial NLANDwinQuotes Hello World p ?Arial Bp }Arial BLANDwinThis script returns a string which appears in the Status Center on the Radio UserLand home page. return ("I'm a cool Tool!") *tArial -FMI7䧹7Z title!Quotes - updated every 15 minutes627䙹7 modules6$ Z _linetextM["C:\\Program Files\\Radio UserLand\\Tools\\Quotes.root"].QuotesWebsite.indexpath index.wsf3 v$ɹ Z _linete3517䞹7 quotes 57䧹7tArial FF2LANDwinon finalFilter (pta) pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "") return (true) ����������������������������� ���-���� MS Sans Serif��������������������� ��������������Eu`Q�������2LAND�������win������������on firstFilter (adrPageTable) return (true) �����������������������*��[���� MS Sans Serif��������������������� ��������������Eu7a���m���L�3*lLAND�������win������������on pageFilter (pta) if typeOf (pta^.template) == outlineType or typeOf (pta^.template) == wpTextType table.assign (@pta^.template, string (pta^.template)) if typeOf (pta^.template) == stringType and not pta^.indirectTemplate pta^.template = string.replace (pta^.template, "<title>", "[[title]]") html.addPageToGlossary (pta) return (true) �����������������������������������������������y���.���EF�������� ���� ��� ����$���0 ����; finalFilter������� firstFilter������� pagefilter�������r��V MS Sans Serif��������������������� �����������P�E��$����������������������������B�������>������7�������� ����url���http://127.0.0.1/Quotes/���B��n�������X����������8H������VArial��"���@���������"�� ��������� v��)����W��������X��� ����������n����������W����������������������space���/GIFfGIF89a�������!����,�������D�;��VArial����������������������������� ������������������������������������������������������������V��������������� ������� �������"�������+ ����0���: ����C���L ����Q���[ ����aalink���008000bgcolor���FFFFFFflRenderlink���0000FFspaceGif���spacetext���000000vlink���800080��VArial����������������������������� �������������������������������������������������k��������������3�� v��������n�������'���8������ ���'����������3�� v��������n���X��� ����������k���P������1������7䞹F^7�������� ����quotes�������3"����quotes������� ���P������)��4��G����4��������������W��J���`�� ���k����������3�� v��������n���X��� �������� - updated every 15 minutes ����������������n�����������������������VArial����������������������������� ������������������������������������������������n������������c����Arial����������������������������� ��������������=ŹO,������5� pLAND�������win������������on html (page) if ! defined (QuotesData.cache) QuotesSuite.getQuotes() return QuotesData.cache ������������������������������$��������������x������������������ ����NM["C:\\Program Files\\Radio UserLand\\Tools\\Quotes.root"].QuotesWebsite.index������� c��VArial����������������������������� ���������2�2�2�)�����������������������������Z���^���Arial����������������������������� ������������5959�����LAND�������win������������["C:\\Program Files\\Radio UserLand\\Tools\\Quotes.root"].QuotesWebsite.index linetext path �����HX0p�������������������HX0X��������������������HX0X���������������������������B���4�������� ���� ��� ����!���- ����6���B ����G���A���p��I���h���������I��0�� �������������W��v���4�� ���k����������3�� v��������n���X��� ������������������������ ����Arial����������������������������� ��������������������:LAND�������win������������return (QuotesSuite.getQuote()) ����������`��� ������V���7q�������� ���� ��� �������* ����4���@ ����H���T ����[���g ����n���z ����#filters�������{#ftpSite�������Z #glossary�������#images�������"#prefs�������#tools�������zindex���������VVerdana��������������������������� ������������??8��������������������������8������������������������`�4�������l��� ��Arial����������������������������� ����� �������>WT>m������LAND�������win������������on edit (pta, args, page) local(htmltext = "", indentlevel = 0) on add(s) htmltext = htmltext + (string.filledstring("\t",indentlevel) + s + "\r\n") if defined (args.edit) if defined (args.symbols) QuotesData.symbols = args.symbols else QuotesData.symbols = "" delete(@QuotesData.cache) return false local (symbols = "") if defined (QuotesData.symbols) symbols = QuotesData.symbols add ("<form method=\"POST\" action=\"/myRadio/editmodule\"><textarea name=\"symbols\">" + symbols + "</textarea><input type=submit name=\"edit\" value=\"Update\"><input type=hidden name=\"page\" value=\"" + page + "\"><input type=hidden name=\"module\" value=\"" + string.urlEncode(args.module) + "\"></form>") return htmltext ������������������������������������������������������������������������������������������������4 QuotesSuite��׀�F���������`���7��������������� ������� ����+���7 ����E���Q ����c���o ������� ������� ����#enabled QuotesData�������5 QuotesInfo������� QuotesMyRadio������� !QuotesRpcHandlers�������QuotesSoapHandlers�������4 QuotesSuite�������3 QuotesWebsite���������V���������������������������������������������\�P��'_�����������������������������Arial����������������������������� �������������?@m�������NLAND�������win������������#enabled QuotesData cache prefs symbols QuotesInfo QuotesMyRadio modules quotes edit html title QuotesRpcHandlers QuotesSoapHandlers QuotesSuite background everyHour everyMinute everyNight callbacks getQuotes menu statusCenterMessage QuotesWebsite ������@S0U0�������������������@S0U0�������������������@S0x�4����������r��� ��Arial����������������������������� ������������>WTOl������$�LAND�������win������������on edit (pta, args, page) local(htmltext = "", indentlevel = 0) on add(s) htmltext = htmltext + (string.filledstring("\t",indentlevel) + s + "\r\n") if defined (args.edit) if defined (args.symbols) QuotesData.symbols = args.symbols else QuotesData.symbols = "" delete(@QuotesData.cache) return false add("Enter Stock Tickers") local (symbols = "") if defined (QuotesData.symbols) symbols = QuotesData.symbols add ("<form method=\"POST\" action=\"/myRadio/editmodule\"><textarea name=\"symbols\">" + symbols + "</textarea><input type=submit name=\"edit\" value=\"Update\"><input type=hidden name=\"page\" value=\"" + page + "\"><input type=hidden name=\"module\" value=\"" + string.urlEncode(args.module) + "\"></form>") return htmltext ������������������������������������������������������������������������������������������������������������b������Pu�������� ����cache���:<small>Click <b>Edit</b> above to configure Quotes</small>ht>12.81</td></tr></table>symbols���YHOO><td align=right>93.0</td></tr><tr><td>WAG</td><td align=right>37.46</td></tr><tr><td>MSFTY </td><td align=right>-1.0</td></tr><tr><td>YHOO</td><td align=right>12.89</td></tr><tr><td>^IXIC</td><td align=right>-1.0</td></tr><tr><td>FDX</td><td align=right>52.72</td></tr></table>prefs�������Jsymbols��!T VOD.L WAG MSFTY YHOO ^IXIC FDXXDX������ ��$���`���7��������������� ������� ����+���7 ����E���Q ����c���o ������� ������� ����#enabled QuotesData�������)% QuotesInfo������� QuotesMyRadio������� !QuotesRpcHandlers�������QuotesSoapHandlers�������4 QuotesSuite�������3 QuotesWebsite���������V����������������������������������������������2��6+������������������������������Arial����������������������������� ������������Oj�������NLAND�������win������������#enabled QuotesData QuotesInfo QuotesMyRadio modules quotes QuotesRpcHandlers QuotesSoapHandlers QuotesSuite background everyHour everyMinute everyNight callbacks getQuotes menu statusCenterMessage QuotesWebsite ������ 0 0������������������� 0 0������������������ 0 0������������������ 0 0������������������ 0 0������������������ 0( 0������������������ 0 0������������������ 0 0������������������ 0 0������������������ 00 0������������������� 00�������������������� 00�������������������� 00������������������� 00 0������������������� 00 0�������������������� 00 0�������������������� 00 0������������������� 0 0��������������P//��������������������P//��������������������P//�������������������P//����������������8P0H0��������������������8P0H0��������������������8P0H0�������������������8P0@K0�������������������������8P0@K0������������������������}���8���7䧹H�������� ������� �������" ����'���1 ����7edit�������%0html�������side���narrowtitle���Quotes - updated every 15 minutes����������������B���>l�������� ���� ��� ����!���- ����7���C ����H���T ����h background�������X callbacks������� 7 getQuotes�������8menu������� statusCenterMessage������� i����G�������� ��������������W��v���4�� ���k������6�������g���$���HǷ�������� ������� ����prefs�������Jsymbols��!T VOD.L WAG MSFTY YHOO ^IXIC FDXight>-1.0</td></tr><tr><td>FDX</td><td align=right>52.87</td></tr></table>prefs�������Jsymbols���0T VOD.L WAG MSFT YHOO ^IXIC FDXXX�G�����F����������Arial����������������������������� ��������������>q������x LAND�������win������������This script runs every minute. local (day, month, year, hour, minute, second) date.get (clock.now (), @day, @month, @year, @hour, @minute, @second) if (minute % 15 == 0) QuotesSuite.getQuotes() �������������������������tesData.cache = "it worked" ������������������������������������������`����`�����Arial����������������������������� ��������������-OkP���:���O�<LAND�������win������������on getQuotes () local (htmltext = "") local (symbols) if defined (QuotesData.symbols) symbols = QuotesData.symbols else QuotesData.cache = "<small>Click <b>Edit</b> above to configure Quotes</small>"; return htmltext = "<table width=100%>" local (count = string.countFields(symbols," ")); local (i) for i = 1 to count local (sym = string.nthField(symbols," ", i)) if (string.length(sym) > 0) local (params = {"Symbol":sym} ) htmltext = htmltext + "<tr><td>" + sym + "</td><td align=right>" + soap.rpc.client("/soap","getQuote",@params,"66.28.98.121","9090",soapAction:"urn:xmethods-delayed-quotes") + "</td></tr>" htmltext = htmltext + "</table>" QuotesData.cache = htmltext ������������������������������������������������������������������������������������������������������������������������������������������������������������������