XDCC-Fetch 1.386

data/src/GUI/Packet_List.rb

@@ -0,0 +1,145 @@
+# Copyright (c) 2004, 2005 Martin Ankerl
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without modification, 
+# are permitted provided that the following conditions are met:
+#
+#    * Redistributions of source code must retain the above copyright notice, this list 
+#      of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright notice, this list 
+#      of conditions and the following disclaimer in the documentation and/or other materials 
+#      provided with the distribution.
+#    * Neither the name of Martin Ankerl nor the names of its contributors may be used to 
+#      endorse or promote products derived from this software without specific prior written 
+#      permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS 
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+require 'set'
+require 'src/GUI/Packet_Item'
+
+# Packet_List is a more convenient wrapper for FXIconList. This class has to be used 
+# in combination with Packet_Item.
+class Packet_List < FXIconList
+	include Responder
+	
+	# Create a new Packet_List. All parameters are passed to the parental constructor FXIconList.
+	def initialize(variables, *args)
+		@variables = variables
+		@sort_mutex = Mutex.new
+		@sort_thread = nil
+		if FOXVERSION=="1.0"
+			def getItem(num)
+				retrieveItem(num)
+			end
+		end
+		
+		@header_item_index = 0
+		@reversed = false
+		@conversions = Array.new
+		@items = Set.new
+		super(*args)
+		
+		header.connect(SEL_COMMAND) do |sender, sel, item_number|
+			on_cmd_header(item_number)
+		end
+	end	
+	
+	# Called whenever a header is clicked
+	def on_cmd_header(header_item_index)
+		@variables.gui_mutex.synchronize do
+			header.setArrowDir(@header_item_index, MAYBE)
+			if @header_item_index == header_item_index
+				@reversed = !@reversed
+			else
+				@reversed = false
+			end
+			@header_item_index = header_item_index
+			header.setArrowDir(@header_item_index, @reversed)
+			sortItems
+		end
+		
+		return 0
+	end
+	
+	def sortItems
+		@items.each do |item|
+			item.update_sort_key
+		end
+		super
+	end
+	
+	# Check if the search order is reversed (happens when clicking on the same header twice)
+	def reversed?
+		@reversed
+	end
+	
+	# Get index of the header that should be used for sorting
+	def sort_index
+		@header_item_index
+	end
+	
+	# Add a new header. The block that you need to specify is used to convert a string of this
+	# column into something that can be used for sorting. The yielded parameter item_colum_text
+	# is the text of one item of this column.
+	def add_header(text, width, &conversion) # :yields: item_column_text
+		appendHeader(text, nil, width)
+		header.setArrowDir(0, false) if @conversions.empty?
+		@conversions.push conversion
+	end
+		
+	# Create a new Packet_Item. After the icon, you can specify the text for each of the columns.
+	# Here is an example:
+	#  list.create_item(my_icon, "Martin", "Ankerl", "2005")
+	def create_item(icon, *args)
+		Packet_Item.new(self, icon, *args)
+	end
+	
+	# Add a new Packet_Item to this list.Called from within Packet_Item during Packet_Item#parent=
+	def add_item(item)
+		@items.add item
+		appendItem(item.fox_item)
+		item
+	end
+	
+	# Remove the given Packet_Item from the list. This is slow, because
+	# the item has to be searched with a linear search. To remove all items
+	# use #clear.
+	def remove_item(item)
+		i = 0
+		@items.delete item
+		fox_item = item.fox_item
+		i += 1 while i < numItems && fox_item != getItem(i)
+		removeItem(i) if i < numItems
+		item
+	end
+	
+	# Removes all items from the list.
+	def clear
+		@items.each { |item| item.clear }
+		@items.clear
+		# todo: mutex!?
+		clearItems
+	end
+	
+	# use in combination with Packet_Item#show
+	def dirty_clear
+		clearItems
+		@items.clear
+	end
+	
+	# Get the sort for a given header index. The sort function has been supplied
+	# when calling #new. This is used from Packet_Item.
+	def sort_function(header_item_index)
+		@conversions[header_item_index]
+	end
+end	
+
+

data/src/GUI/Speed_Widget.rb

@@ -0,0 +1,101 @@
+# Copyright (c) 2004, 2005 Martin Ankerl
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without modification, 
+# are permitted provided that the following conditions are met:
+#
+#    * Redistributions of source code must retain the above copyright notice, this list 
+#      of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright notice, this list 
+#      of conditions and the following disclaimer in the documentation and/or other materials 
+#      provided with the distribution.
+#    * Neither the name of Martin Ankerl nor the names of its contributors may be used to 
+#      endorse or promote products derived from this software without specific prior written 
+#      permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS 
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+# Speed_Widget is a widget to display the download speed. The widget shows the average 
+# average download speed.
+class Speed_Widget
+
+	# Create a new widget in parent with given width. The specified block is used to convert an
+	# integer value into a string that is used to display the current average speed. The widget
+	# updates itself every 0.5 second.
+	def initialize(parent, width, init_text, &proc) # :yields: current_speed
+		@updateMutex = Mutex.new
+		@val_to_str = proc
+		@max = 10000
+		@slowness = 0.95
+		FXHorizontalFrame.new(parent, FRAME_SUNKEN|LAYOUT_FILL_Y, 0,0,0,0, 1,1,1,1,1,1) do |frame|
+			@progress = FXProgressBar.new(frame, nil, 0, LAYOUT_FILL_Y|LAYOUT_FIX_WIDTH) do |progress|
+				progress.width = width
+				progress.total = @max
+			end
+			@label = FXLabel.new(frame, init_text, nil, JUSTIFY_CENTER_Y|JUSTIFY_RIGHT|LAYOUT_FIX_WIDTH) do |label|
+				label.width = 60
+			end
+		end
+		@highest_val = 0
+		@value = 0.0
+		@values = Hash.new
+		
+		@updater = Thread.new do
+			loop do
+				update
+				sleep(0.1)
+			end
+		end
+	end
+	
+	# Specify how slow adapting is, a value from 0 to 1.
+	#  0.0: instantaneously 
+	#  0.5: medium
+	#  0.9: extremely slow
+	def slowness=(slowness)
+		@slowness = slowness
+	end
+	
+	# The widget uses multiple sources for the average speed. All values specified here are summed
+	# up.
+	def []=(key, val)
+		@values[key] = val
+	end
+	
+	# Remove a source.
+	def delete(key)
+		@values.delete(key)
+	end
+	
+	private
+	
+	# update is called every 0.1 second.
+	def update
+		@updateMutex.synchronize do 
+			# sum up values
+			new_value = 0
+			@values.each_value do |val|
+				new_value += val
+			end
+			# update top value
+			@highest_val = new_value if (new_value > @highest_val)
+			return if @highest_val == 0
+			# exponentally adapt to new value
+			last_value = @value
+			@value = @value*@slowness + new_value*(1-@slowness)
+			# nothing to do if value has not changed
+			return if @value == last_value
+			# calc + set progress bar size
+			@progress.progress = (1.0 * @max / @highest_val * @value).to_i
+			# set text
+			@label.text = @val_to_str.call(new_value)
+		end
+	end
+end

data/src/GUI/Talk_Back.rb

@@ -0,0 +1,118 @@
+# Copyright (c) 2004, 2005 Martin Ankerl
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without modification, 
+# are permitted provided that the following conditions are met:
+#
+#    * Redistributions of source code must retain the above copyright notice, this list 
+#      of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright notice, this list 
+#      of conditions and the following disclaimer in the documentation and/or other materials 
+#      provided with the distribution.
+#    * Neither the name of Martin Ankerl nor the names of its contributors may be used to 
+#      endorse or promote products derived from this software without specific prior written 
+#      permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS 
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+require 'fox'
+
+include Fox
+
+require 'src/Utilities/Globals'
+
+
+# Unfortunately Talk_Back only works for email server that allow non-secure connections, 
+# and therefore is useless. Let's wait until smtp supports everything requird.
+class Talk_Back < FXDialogBox
+	def Talk_Back.run(err)
+		$main_window.hide if $main_window
+		app = FXApp.instance || FXApp.new($cfg.talkback.name, $cfg.talkback.name)
+		app.create
+		main = $main_window || FXMainWindow.new(FXApp.instance, $cfg.talkback.name)
+		main.hide
+		puts err.backtrace
+		tb = Talk_Back.new(app, err)
+		tb.execute
+		app.run
+	end
+	
+	def initialize(app, err)
+		super(app, $cfg.talkback.name, DECOR_ALL, 0, 0, 400, 400)		
+		@err = err
+		@time = Time.now
+		build_controls
+	end
+
+	def create
+		super
+		if dialog == MBOX_CLICKED_OK
+			show(PLACEMENT_SCREEN)
+		else
+			exit
+		end
+	end
+	
+	def build_controls
+		FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |main|
+			FXLabel.new(main, "1. Specify your email, if you want an response:", nil, LABEL_NORMAL)
+			@addr = FXTextField.new(main, 1, nil, 0, TEXTFIELD_NORMAL|LAYOUT_FILL_X|FRAME_SUNKEN) do |addr|
+				addr.text = "anonymous@unknown.com"
+			end
+			FXLabel.new(main, "2. If possible, describe how you got this crash:", nil, LABEL_NORMAL)
+			FXHorizontalFrame.new(main, LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN, 0,0,0,0, 0,0,0,0,0,0) do |textframe|
+				@user_desc = FXText.new(textframe, nil, 0, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y) do |user_desc|
+					user_desc.text = "1. Steps to reproduce\n\n\n\n"
+					user_desc.text += "2. Steps to reproduce\n\n\n\n"
+					user_desc.text += "3. Steps to reproduce\n\n\n\n"
+				end
+			end
+			
+			FXLabel.new(main, "When you click 'Send', an email is sent to\nxdcctest@gmail.com that contains your specified\ninformation and a stack trace. No other private\ninformation is sent.", nil, JUSTIFY_LEFT|ICON_BEFORE_TEXT)
+			
+			FXHorizontalSeparator.new(main)
+			
+			FXHorizontalFrame.new(main, LAYOUT_FILL_X) do |buttonframe|
+				@send_btn = FXButton.new(buttonframe, $cfg.text.submit, nil, nil, 0, BUTTON_NORMAL|LAYOUT_CENTER_X)
+				@send_btn.connect(SEL_COMMAND) { on_cmd_send }
+				@cancel_btn = FXButton.new(buttonframe, $cfg.text.cancel	, nil, nil, 0, BUTTON_NORMAL|LAYOUT_CENTER_X)
+				@cancel_btn.connect(SEL_COMMAND) { exit }
+			end
+		end
+		
+	end
+	
+	def dialog
+		FXMessageBox.error(self, MBOX_OK_CANCEL, $cfg.talkback.name, $cfg.text.talkback.preamble)
+	end
+	
+	def on_cmd_send
+		subject = "[BUG] #{$cfg.app.version}, Revision #{$cfg.app.revision}, #{@time}"
+		text = @user_desc.text
+		text += "\n\n-------------------\n\n"
+		text += `ruby --version` + "\n"
+		text += "FXRuby #{Fox.fxrubyversion}"
+		text += "\n\n-------------------\n\n"
+		text += "Version:  #{$cfg.app.version}\n"
+		text += "Revision: #{$cfg.app.revision}\n\n"
+		text += @err.message + "\n" + @err.backtrace.join("\n")
+		
+		msg = ["Subject: " + subject + "\n", "\n", text+"\n"]
+		recipients = [ "martin.ankerl@fh-hagenberg.at" ] #"xdcctest@gmail.com" ]
+		
+		puts text
+		
+		Net::SMTP.enable_tls(OpenSSL::SSL::VERIFY_NONE)
+		Net::SMTP.start("mailse.fh-hagenberg.at") do |smtp|
+			smtp.sendmail(msg, @addr.text.strip, recipients)
+		end
+		exit
+	end
+end

data/src/GUI/Toggle_Button.rb

@@ -0,0 +1,56 @@
+# Copyright (c) 2004, 2005 Christoph Heindl and Martin Ankerl
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without modification, 
+# are permitted provided that the following conditions are met:
+#
+#    * Redistributions of source code must retain the above copyright notice, this list 
+#      of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright notice, this list 
+#      of conditions and the following disclaimer in the documentation and/or other materials 
+#      provided with the distribution.
+#    * Neither the name of Christoph Heindl and Martin Ankerl nor the names of its contributors 
+#      may be used to endorse or promote products derived from this software without specific 
+#      prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS 
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+# A button that uses the state (down, up) to display if it is enabled or not.
+# the specified proc is executed 
+class Toggle_Button
+
+	# Creates a new toggle button. The specified block is called with the new toggle status whenever the button is clicked.
+	def initialize(parent, icon, text, toggled, &proc) # :yields: new_toggle_status
+		@btn = FXButton.new(parent, text, icon, nil, 0, FRAME_RAISED)
+		@toggled = toggled
+		@proc = proc
+		@btn.connect(SEL_COMMAND) do |sender, sel, data|
+			@toggled = !@toggled
+			on_toggle(@toggled)
+			@proc.call(@toggled) if @proc
+		end
+		on_toggle(@toggled)
+	end
+	
+	# Check if the button is toggled (status down)
+	def toggled?
+		@toggled
+	end
+	
+	private
+	
+	def on_toggle(status)
+		if status
+			@btn.state = STATE_DOWN
+		else
+			@btn.state = STATE_UP
+		end
+	end
+end

data/src/Network/CTCP_Handler.rb

@@ -0,0 +1,61 @@
+# Copyright (c) 2005, Christoph Heindl
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without modification, 
+# are permitted provided that the following conditions are met:
+#
+#    * Redistributions of source code must retain the above copyright notice, this list 
+#      of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright notice, this list 
+#      of conditions and the following disclaimer in the documentation and/or other materials 
+#      provided with the distribution.
+#    * Neither the name of Christoph Heindl nor the names of its contributors may be used to 
+#      endorse or promote products derived from this software without specific prior written 
+#      permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS 
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+# Parses extended ctcp queries and response appropriately if allowed to.
+# Queries by the user itself (commands) are not supported (why should they?)
+# as of now.
+class CTCP_Handler
+
+	def initialize(irc_server)
+		@irc_server = irc_server
+		@irc_server.connect_to_events(IRC_Server::ON_USER_MESSAGE, self)
+	end
+	
+	def shutdown
+		@irc_server.disconnect_from_events(IRC_Server::ON_USER_MESSAGE, self)
+	end
+	
+	def on_event(irc_server, eventtype, eventargs)
+		irc_user, message, targets, irc_msg = eventargs
+		if (@irc_server.me.has_name?(targets[0]))
+			if irc_msg.ctcp_command?
+				return unless $cfg.network.ctcp.enable_replies
+				case (irc_msg.parameters[-1])
+					when "VERSION"
+						irc_user.notice("\001VERSION #{$cfg.app.name}:#{$cfg.app.revision}:#{RUBY_PLATFORM}\001")
+					when "SOURCE"
+						irc_user.notice("\001SOURCE #{$cfg.app.url}::\001")
+						irc_user.notice("\001SOURCE\001")
+					when "PING"
+						# Just sent back received string
+						irc_user.notice(message)
+					when "TIME"
+						irc_user.notice("\001#{Time.now}\001")
+					when "USERINFO"
+						irc_user.notice("\001USERINFO :no way\001")
+				end	
+			end
+		end
+	end
+end