-- Metaplace Chat System v1.0 Web Functionality Extension
-- Weather 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_weather = { sender_name = '',
                     weather = ''}

end

Trigger attach()
    --/weather :
    SendTo(self, 'chat_system_register_command', 0, 'weather', 'Get the weather for an area', 0, 0)
    SendTo(self, 'chat_system_register_alias', 0, 'wea', 'weather')
end

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

-- Ported from old MP Chat System
Trigger chat_msg_weather(sender, zipcode)

    local channel = chat_system_channel_name('user', sender.name)
    
    local zipcode_test = string.match(zipcode, "%a%a%a%a%d%d%d%d")
    
    if(zipcode_test == nil) then
        zipcode_test = string.match("0000"..zipcode, "%d%d%d%d%d$")
    end
    
    if (zipcode_test ~= nil) then
    
        -- Build request
        local url = string.format("http://weather.yahooapis.com/forecastrss?p=%s", zipcode_test)
        local method = "GET"
        local trigger = "chat_system_weather_parse"
        local body = ""
                
        message = {"Getting results..."}
        
     
        SendTo(sender, 'chat_web_tools_trigger', 0, 'weather', url, method, body)
               
        
    else
        -- Show help if invalid zip code
        message = {"Usage", "   /weather zipcode (Either in 5-Digit or Yahoo Location ID Format)"}
    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