sgx-catapult.rb

  1#!/usr/bin/env ruby
  2#
  3# Copyright (C) 2017  Denver Gingerich <denver@ossguy.com>
  4#
  5# This file is part of sgx-catapult.
  6#
  7# sgx-catapult is free software: you can redistribute it and/or modify it under
  8# the terms of the GNU Affero General Public License as published by the Free
  9# Software Foundation, either version 3 of the License, or (at your option) any
 10# later version.
 11#
 12# sgx-catapult is distributed in the hope that it will be useful, but WITHOUT
 13# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 14# FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public License for more
 15# details.
 16#
 17# You should have received a copy of the GNU Affero General Public License along
 18# with sgx-catapult.  If not, see <http://www.gnu.org/licenses/>.
 19
 20require 'blather/client/dsl'
 21require 'json'
 22require 'net/http'
 23require 'redis/connection/hiredis'
 24require 'uri'
 25
 26if ARGV.size != 6 then
 27	puts "Usage: sgx-catapult.rb <component_jid> <component_password> " +
 28		"<server_hostname> <server_port> <redis_hostname> <redis_port>"
 29	exit 0
 30end
 31
 32module SGXcatapult
 33	extend Blather::DSL
 34
 35	def self.run
 36		client.run
 37	end
 38
 39	def self.error_msg(orig, query_node, type, name, text = nil)
 40		orig.add_child(query_node)
 41		orig.type = :error
 42
 43		error = Nokogiri::XML::Node.new 'error', orig.document
 44		error['type'] = type
 45		orig.add_child(error)
 46
 47		suberr = Nokogiri::XML::Node.new name, orig.document
 48		suberr['xmlns'] = 'urn:ietf:params:xml:ns:xmpp-stanzas'
 49		error.add_child(suberr)
 50
 51		# TODO: add some explanatory xml:lang='en' text (see text param)
 52		puts "RESPONSE3: #{orig.inspect}"
 53		return orig
 54	end
 55
 56	setup ARGV[0], ARGV[1], ARGV[2], ARGV[3]
 57
 58	message :chat?, :body do |m|
 59		begin
 60			puts "#{m.from.to_s} -> #{m.to.to_s} #{m.body}"
 61			msg = Blather::Stanza::Message.new(m.from, 'thx for "' +
 62				m.body + '"')
 63			msg.from = m.to
 64			write_to_stream msg
 65		rescue => e
 66			# TODO: do something better with this info
 67			say m.from, e.inspect
 68		end
 69	end
 70
 71	iq '/iq/ns:query', :ns =>
 72		'http://jabber.org/protocol/disco#items' do |i, xpath_result|
 73
 74		write_to_stream i.reply
 75	end
 76
 77	iq '/iq/ns:query', :ns =>
 78		'http://jabber.org/protocol/disco#info' do |i, xpath_result|
 79
 80		msg = i.reply
 81		msg.identities = [{:name =>
 82			'Soprani.ca Gateway to XMPP - Catapult',
 83			:type => 'sms-ctplt', :category => 'gateway'}]
 84		msg.features = ["jabber:iq:register",
 85			"jabber:iq:gateway", "jabber:iq:private",
 86			"http://jabber.org/protocol/disco#info",
 87			"http://jabber.org/protocol/commands",
 88			"http://jabber.org/protocol/muc"]
 89		write_to_stream msg
 90	end
 91
 92	iq '/iq/ns:query', :ns => 'jabber:iq:register' do |i, qn|
 93		puts "IQ: #{i.inspect}"
 94
 95		if i.type == :set
 96			xn = qn.children.find { |v| v.element_name == "x" }
 97
 98			user_id = ''
 99			api_token = ''
100			api_secret = ''
101			phone_num = ''
102
103			if xn.nil?
104				user_id = qn.children.find {
105					|v| v.element_name == "nick" }
106				api_token = qn.children.find {
107					|v| v.element_name == "username" }
108				api_secret = qn.children.find {
109					|v| v.element_name == "password" }
110				phone_num = qn.children.find {
111					|v| v.element_name == "phone" }
112			else
113				for field in xn.children
114					if field.element_name == "field"
115						val = field.children.find { |v|
116						v.element_name == "value" }
117
118						case field['var']
119						when 'nick'
120							user_id = val.text
121						when 'username'
122							api_token = val.text
123						when 'password'
124							api_secret = val.text
125						when 'phone'
126							phone_num = val.text
127						else
128							# TODO: error
129							puts "?: " +field['var']
130						end
131					end
132				end
133			end
134
135			if phone_num[0] != '+'
136				# TODO: add text re number not (yet) supported
137				write_to_stream error_msg(i.reply, qn, :modify,
138					'policy-violation')
139				next
140			end
141
142			uri = URI.parse('https://api.catapult.inetwork.com')
143			http = Net::HTTP.new(uri.host, uri.port)
144			http.use_ssl = true
145			request = Net::HTTP::Get.new('/v1/users/' + user_id +
146				'/phoneNumbers/' + phone_num)
147			request.basic_auth api_token, api_secret
148			response = http.request(request)
149
150			puts 'API response: ' + response.to_s + ' with code ' +
151				response.code + ', body "' + response.body + '"'
152
153			if response.code == '200'
154				params = JSON.parse response.body
155				if params['numberState'] == 'enabled'
156					bare_jid = i.from.to_s.split('/', 2)[0]
157					cred_key = "catapult_cred-" + bare_jid
158
159					# TODO: pre-validate ARGV[5] is integer
160					conn = Hiredis::Connection.new
161					conn.connect(ARGV[4], ARGV[5].to_i)
162
163					conn.write ["EXISTS", cred_key]
164					if conn.read == 1
165						# TODO: add txt re already exist
166						write_to_stream error_msg(
167							i.reply, qn, :cancel,
168							'conflict')
169						next
170					end
171
172					conn.write ["RPUSH",cred_key,user_id]
173					conn.write ["RPUSH",cred_key,api_token]
174					conn.write ["RPUSH",cred_key,api_secret]
175					conn.write ["RPUSH",cred_key,phone_num]
176
177					for n in 1..4 do
178						# TODO: catch/relay RuntimeError
179						result = conn.read
180						if result != n
181							write_to_stream(
182							error_msg(
183							i.reply, qn, :cancel,
184							'internal-server-error')
185							)
186							next
187						end
188					end
189
190					write_to_stream i.reply
191				else
192					# TODO: add text re number disabled
193					write_to_stream error_msg(i.reply, qn,
194						:modify, 'not-acceptable')
195				end
196			elsif response.code == '401'
197				# TODO: add text re bad credentials
198				write_to_stream error_msg(i.reply, qn, :auth,
199					'not-authorized')
200			elsif response.code == '404'
201				# TODO: add text re number not found or disabled
202				write_to_stream error_msg(i.reply, qn, :cancel,
203					'item-not-found')
204			else
205				# TODO: add text re misc error, and mention code
206				write_to_stream error_msg(i.reply, qn, :modify,
207					'not-acceptable')
208			end
209
210		elsif i.type == :get
211			orig = i.reply
212
213			msg = Nokogiri::XML::Node.new 'query',orig.document
214			msg['xmlns'] = 'jabber:iq:register'
215			n1 = Nokogiri::XML::Node.new 'instructions',msg.document
216			n1.content= "Enter the information from your Account " +
217				"page as well as the Phone Number\nin your " +
218				"account you want to use (ie. '+12345678901')" +
219				".\nUser Id is nick, API Token is username, " +
220				"API Secret is password, Phone Number is phone"+
221				".\n\nThe source code for this gateway is at " +
222				"https://github.com/ossguy/sgx-catapult ." +
223				"\nCopyright (C) 2017  Denver Gingerich, " +
224				"licensed under AGPLv3+."
225			n2 = Nokogiri::XML::Node.new 'nick',msg.document
226			n3 = Nokogiri::XML::Node.new 'username',msg.document
227			n4 = Nokogiri::XML::Node.new 'password',msg.document
228			n5 = Nokogiri::XML::Node.new 'phone',msg.document
229			msg.add_child(n1)
230			msg.add_child(n2)
231			msg.add_child(n3)
232			msg.add_child(n4)
233			msg.add_child(n5)
234
235			x = Blather::Stanza::X.new :form, [
236				{:required => true, :type => :"text-single",
237				:label => 'User Id', :var => 'nick'},
238				{:required => true, :type => :"text-single",
239				:label => 'API Token', :var => 'username'},
240				{:required => true, :type => :"text-private",
241				:label => 'API Secret', :var => 'password'},
242				{:required => true, :type => :"text-single",
243				:label => 'Phone Number', :var => 'phone'}
244			]
245			x.title= 'Register for ' +
246				'Soprani.ca Gateway to XMPP - Catapult'
247			x.instructions= "Enter the details from your Account " +
248				"page as well as the Phone Number\nin your " +
249				"account you want to use (ie. '+12345678901')" +
250				".\n\nThe source code for this gateway is at " +
251				"https://github.com/ossguy/sgx-catapult ." +
252				"\nCopyright (C) 2017  Denver Gingerich, " +
253				"licensed under AGPLv3+."
254			msg.add_child(x)
255
256			orig.add_child(msg)
257			puts "RESPONSE2: #{orig.inspect}"
258			write_to_stream orig
259			puts "SENT"
260		end
261	end
262
263	subscription(:request?) do |s|
264		# TODO: are these the best to return?  really need '!' here?
265		#write_to_stream s.approve!
266		#write_to_stream s.request!
267	end
268end
269
270[:INT, :TERM].each do |sig|
271	trap(sig) {
272		puts 'Shutting down gateway...'
273		SGXcatapult.shutdown
274		puts 'Gateway has terminated.'
275
276		EM.stop
277	}
278end
279
280EM.run do
281	SGXcatapult.run
282end