main.rb

#!/usr/bin/env ruby

#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 3 of the License, or
#  (at your option) any later version.
#  
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#  
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
#  MA 02110-1301, USA.

require "fox16"
require "uri"

require "./gopher"
require "./text_dialog"

include Fox

class MainWindow < FXMainWindow
	def initialize(app, title, w, h)	
		super(app, title, :width => w, :height => h)
		
		@icons = {
			:blank => FXPNGIcon.new(app, File.open("icons/blank.png", "rb").read),
			:folder => FXPNGIcon.new(app, File.open("icons/folder.png", "rb").read),
			:text => FXPNGIcon.new(app, File.open("icons/text.png", "rb").read),
			:file => FXPNGIcon.new(app, File.open("icons/file.png", "rb").read),
			:pic => FXPNGIcon.new(app, File.open("icons/pic.png", "rb").read),
			:left => FXPNGIcon.new(app, File.open("icons/left.png", "rb").read),
			:right => FXPNGIcon.new(app, File.open("icons/right.png", "rb").read),
			:up => FXPNGIcon.new(app, File.open("icons/up.png", "rb").read),
			:search => FXPNGIcon.new(app, File.open("icons/search.png", "rb").read),
			:plus => FXPNGIcon.new(app, File.open("icons/plus.png", "rb").read)
		}
		@icons.each { |i, icon| icon.create }
		
		@history = Array.new
		
		# Toolbar
		toolbar = FXToolBar.new(self)
		
		back = FXButton.new(toolbar, "Back", @icons[:left])
		up = FXButton.new(toolbar, "Up", @icons[:up])
		
		@url = FXTextField.new(toolbar, 50, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
		@url.text = "gopher://gopher.floodgap.com/"
		
		go = FXButton.new(toolbar, "Go", @icons[:right])
		
		plus = FXButton.new(toolbar, "Bookmark", @icons[:plus])
		plus.connect(SEL_COMMAND) do
			#~ # Add to menu
			#~ FXMenuCommand.new(@bookmark_menu, @url.text, nil).connect(SEL_COMMAND) do
				#~ @url.text = @url.text
				#~ self.navigate(line)
			#~ end
			
			#~ # Add URL to file
			#~ # TODOD
		end
		
		# Menus
		@bookmark_menu = FXMenuPane.new(self)
		@history_menu = FXMenuPane.new(self)
		
		FXMenuButton.new(toolbar, "Bookmarks", nil, @bookmark_menu)
		FXMenuButton.new(toolbar, "History", nil, @history_menu)
		
		# Bookmarks menu
		File.open("bookmarks.txt", "r").each_line do |line|
			FXMenuCommand.new(@bookmark_menu, line.chomp, nil).connect(SEL_COMMAND) do
				@url.text = line.chomp
				self.navigate(line)
			end
		end
				
		# Main view
		@iconList = FXIconList.new(self, nil, 0, ICONLIST_MINI_ICONS|ICONLIST_AUTOSIZE|ICONLIST_COLUMNS|ICONLIST_SINGLESELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
		@iconList.font = FXFont.new(getApp(), "Monospace", 10)
		
		# Callbacks
		back.connect(SEL_COMMAND) do
			if @history.length > 0
				puts @history[-1].to_s
				self.navigate(@history[-1].to_s)
			end
		end
		
		go.connect(SEL_COMMAND) do
			self.navigate(@url.text)
		end
		
		@items = Array.new
		@textdialog = TextDialog.new(self)
		
		@iconList.connect(SEL_CLICKED) do |sender, sel, index|
			item_click(sender, sel, index)
		end
				
		up.connect(SEL_COMMAND) do
			target = File.dirname @url.text
			
			if target != "gopher:" # If we are not at the root dir
				@url.text = target
				self.navigate(@url.text)
			end
		end
	end
		
	def create	
		super	
		show(PLACEMENT_SCREEN)	
	end
	
	def navigate(target, query = "")
		uri = URI(URI.escape target)
		uri.port ? port = uri.port : port = 70
		# Remove /1/ after checking if present
		uri.path = uri.path[3..-1] if uri.path.start_with? "/1/"
		uri.path = uri.path[2..-1] if uri.path.start_with? "/1"
		
		begin
			@items = Gopher.new(uri.host, port).list(URI.unescape(uri.path), query)
		rescue => msg
			@items = []
			retry if FXMessageBox.error(self, MBOX_OK_CANCEL, "Error", "Network error:\n" + msg.to_s + "\nPress Ok to retry.") == MBOX_CLICKED_OK
		end
		
		# Update history
		@history.push uri
		update_history_menu
		
		# Populate the file list
		@iconList.clearItems()
		
		@items.each do |item|
			icon = nil
			
			if item[:type] == "i" then
				icon = @icons[:blank]
			elsif item[:type] == "1" then
				icon = @icons[:folder]
			elsif item[:type] == "0" then
				icon = @icons[:text]
			elsif item[:type] == "4" or item[:type] == "5" or item[:type] == "6" or item[:type] == "9" then
				icon = @icons[:file]
			elsif item[:type] == "7" then
				icon = @icons[:search]
			elsif item[:type] == "I" or item[:type] == "p" or item[:type] == "g" then
				icon = @icons[:pic]
			end
			
			@iconList.appendItem(item[:description], nil, icon)
		end
	end
	
	def item_click(sender, sel, index)
		if @items[index][:type] == "1" then
			target = "gopher://" + @items[index][:host] + "/1/" + @items[index][:path]
			
			@url.text = target
			navigate(@url.text)
		elsif @items[index][:type] == "0" then
			# Display the text file in a dialog window
			data = Gopher.new(@items[index][:host], @items[index][:port]).get(@items[index][:path])
			
			@textdialog.configure(data, @items[index][:description])
			@textdialog.show
		elsif @items[index][:type] == "4" or @items[index][:type] == "5" or @items[index][:type] == "6" or @items[index][:type] == "9" then
			# Download a file
			dest = FXFileDialog.getSaveFilename(self, "Save file as...", "")
			
			if not dest.empty? then
				Gopher.new(@items[index][:host], @items[index][:port]).download(@items[index][:path], dest)
			end
		elsif @items[index][:type] == "I" or @items[index][:type] == "p" or @items[index][:type] == "g" then
			# Displays a picture
			dest = "/tmp/RuGopher-pic-" + rand(0..10000).to_s + File.extname(@items[index][:path])
			
			Gopher.new(@items[index][:host], @items[index][:port]).download(@items[index][:path], dest)
			system("xdg-open " + dest)
		elsif @items[index][:type] == "7" then
			# Search queries
			query = FXInputDialog.getString("", app, "RuGopher", "Enter your query:")
			
			if query and not query.empty? then
				navigate("gopher://" + @items[index][:host] + @items[index][:path], query)
			end
		else
			puts "Unknown type: " + @items[index][:type] + " path: " + @items[index][:path]
		end
	end
	
	def update_history_menu
		# Clear the menu
		@history_menu.children.each do |c|
			@history_menu.removeChild c
		end
		
		# Repopulate the menu
		@history.each do |uri|
			FXMenuCommand.new(@history_menu, "uri.to_s", nil).connect(SEL_COMMAND) do
				navigate(line)
			end
		end
	end
end	

app = FXApp.new	
MainWindow.new(app, "RuGopher", 800, 600)	
app.create	
app.run