-- Metaplace Chat System v1.0 Web Functionality Extension
-- Stock Chat Feature
-- Author: Jeff The Intern


-- Revision History
    -- 06/16/08 J.McNab - New script
    
-- Define Base Properties
Define Properties()

    -- Include chat_utility script
    IncludeScript('11302:12')
    chat_stock= { sender_name = '',
                     stock = ''}

end

Trigger attach()
    --/weather :
    SendTo(self, 'chat_system_register_command', 0, 'stock', 'Get a stock quote', 0, 0)
    SendTo(self, 'chat_system_register_alias', 0, 'sto', 'stock')
end

Trigger detach()
    SendTo(self, 'chat_system_unregister_command', 0, 'stock')
end

-- Ported from old MP Chat System
Trigger chat_msg_stock(sender, symbol)

    local channel = chat_system_channel_name('user', sender.name)
    
    if (symbol~= nil or string.len(symbol) <= 5) then
    
        -- Build request
        local url = string.format("http://www.quoterss.com/quote.php?symbol=%s&frmt=0&Freq=0", string.lower(symbol))
        local method = "GET"
        local body = ""
                
        message = {"Getting results..."}
        
        SendTo(sender, 'chat_web_tools_trigger', 0, 'stock', url, method, body)
               
        
    else
        -- Show help if invalid zip code
        message = {"Usage", "   /stock stock_code (Format of XXXX)"}
    end
    
    for _, line in ipairs(message) do
        chat_system_send_to_subscribers(self, sender, channel, line, 'translate')
    end
    chat_system_set_callback(sender, CHAT_STATUS_CODES.OK, 'OK')
end