This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot/plugins/aktien.lua
2015-11-12 17:42:03 +01:00

54 lines
1.7 KiB
Lua

-- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
-- DO NOT USE WITHOUT PERMISSION
do
local function get_stock (symbol)
local BASE_URL = 'https://query.yahooapis.com/v1/public/yql'
local url = BASE_URL..'?q=select%20*%20from%20yahoo.finance.quotes%20where%20symbol="'..symbol..'"&env=http%3A%2F%2Fdatatables.org%2Falltables.env&format=json'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).query.results.quote
return data
end
function send_stock_data(data, receiver)
-- local ask = data.Ask
local bid = data.Bid
local change = data.Change
local percent = data.ChangeinPercent
local currency = data.Currency
local range = data.DaysRange
local name = data.Name
local yesterday = data.PreviousClose
local year_range = data.YearRange
local symbol = data.symbol
local text = name..' ('..symbol..') Aktien in '..currency..':\nAktueller Preis: '..bid..' ('..change..' / '..percent..')\nGestriger Preis: '..yesterday..'\nHeute: '..range..'\nDieses Jahr: '..year_range
send_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local symbol = string.upper(matches[1])
local data = get_stock(symbol)
local receiver = get_receiver(msg)
if data.Bid ~= nil then
send_stock_data(data, receiver)
else
return "Dieses Symbol existiert nicht."
end
end
return {
description = "Sendet Aktieninfos",
usage = "/aktien [Symbol]: Sendet Aktieninfos",
patterns = {
"^/aktien ([A-Za-z0-9]+)$",
"^/stocks ([A-Za-z0-9]+)$",
"^/aktie ([A-Za-z0-9]+)$",
"^/stock ([A-Za-z0-9]+)$"
},
run = run
}
end