=begin 

########PERL 5 CODE###########
#use warnings;
#use strict;
#use HTTP::Server::Simple;
#my $server = HTTP::Server::Simple->new();
#$server->run();
##############################
=end

=begin
	Before you fully understand this, you ought to learn Perl, at least a little, but I will try to help in every way, shape, and form.
=end

require 'sinatra'


=begin
THIS PART OF THE SCRIPT WORKS FINE ON ITS OWN.
$accumulator=0

#words=IO.readlines("numerology_chase.txt")

words=open("code.txt",&:read).split("")

#File.open("numerology_chase.txt").each_line do |line|

for i in words
$accumulator += i.to_i
end

accumulator_data = $accumulator.to_s


numerology=accumulator_data.split("")
$i=0
for i in numerology
	$i+=i.to_i
end

puts "And the number is: #{$i}"

=end
	
before do #do this before anything happens, just to be certain
	content_type :text
	require 'mechanize'	
end


#for require 'mechanize'
def numerology(url) #mechanize has the capability of logging into websites,
					#data mining, among other things, especially downloading using "read=agent.get(url)"
		agent=Mechanize.new
		read = agent.get(url)
		save_as = read.save_as("webpage_#{Random.rand(0..(10**100+10*100)).to_s}_.html") #save this as a random webpage		
		return save_as	 #everyone will understand this, but you don't even need to return anything, all you need in a single line is "save_as"		
end

#$page_counter=0
get '/url_num/*' do	
	a=numerology("#{params[:splat].shift}".sub!(/\//,'//')) #convert the wrong url back into http:// from http:/, 
															#as far as I can remember.
	file_name=a
	$accumulator=0 #global variable
	
	words=open("#{file_name}",&:read).split("") #open, read, then split the downloaded file into individual bytes
	
	for i in words
		$accumulator += i.to_i #add up all the char bytes; ascii==numbers
	end

	accumulator_data = $accumulator.to_s #convert to string


	numerology=accumulator_data.split("")
	$i=0
	for i in numerology
		$i+=i.to_i
	end

	"And the number is: #{$i}"
	
	#numerology_proc=$agent.get("#{params[:splat]}")
	#"You passed in #{numerology_proc.inner_html}"
end
=begin
{loading spaghetti code}
set :views, File.dirname(__FILE__) + '/public' #set views to ./html (current directory/html)
def load_pictures
	Dir.glob("#{File.dirname(__FILE__)}/*.{jpg,JPG,gif,GIF,PNG}")
end

get '/' do
	
	@pictures = load_pictures
	
	erb :index
end
=end