#!/usr/bin/perl
	
	use strict;
	use warnings;
	
	my @files = split("\n", `find .`);
	my $last_mod = 0;
	my $f_mod = 0;
	foreach my $file ( @files ) {
		my $mod_time = `stat $file | grep Modify | awk '{print \$2" "\$3}'`;
		chomp $mod_time;
		my $c = $mod_time;
		$c =~ tr/-\://d;
		$c =~ tr/ //d;
		if ( $c > $last_mod ) {
			$last_mod = $c;
			$f_mod = $mod_time;
		}
	}
	
	sub colorize($) {
		my $string = shift;
	
		# For "colorizing" the page
		my @fade_in_c_arr = (
			142,143,144,145,146,233,240,244,250,
		);
	
		my $fade_len = @fade_in_c_arr;
	
		my @input_char_arr = split("", $string);
	
		my @colored_char_ar;
		foreach my $char ( @input_char_arr ) {
			if ( $char eq "\n" || $char eq " " || $char eq '\\' || $char eq '/' ) {
				push(@colored_char_ar,$char);
				next;
			}
			my $c = $fade_in_c_arr[rand @fade_in_c_arr];
			push(@colored_char_ar, "\x1B[38;5;$c" . "m" . "$char" . "\x1B[0m");
		}
	
		my $c_string = join("",@colored_char_ar);
		return $c_string;
	
	}
	
	sub printer($$$) {
		my $string = shift;
		my $type = shift;
		my $rest = shift;
		if ( defined $ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} eq "plain" ) {
			print("$type$string$rest\n");
		} else {
			my $c_string = colorize($string);
			print("$type$c_string$rest\n");
		}	
	}
	
	my $HOME_PATH = "/";
	if ( defined $ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} eq "plain" ) {
		$HOME_PATH = "/foobar.cgi?plain";
	}
	
	# GOPHERMAP GEN HERE
	if ( defined $ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} eq "plain" ) {
		print("i                        CHATE.IO\tchate.io\t70\n");
	} else {
		print("i ▄████▄   ██░ ██  ▄▄▄     ▄▄▄█████▓▓█████       ██▓ ▒█████\tchate.io\t70\n");
		print("i▒██▀ ▀█  ▓██░ ██▒▒████▄   ▓  ██▒ ▓▒▓█   ▀      ▓██▒▒██▒  ██▒\tchate.io\t70\n");
		print("i▒▓█    ▄ ▒██▀▀██░▒██  ▀█▄ ▒ ▓██░ ▒░▒███        ▒██▒▒██░  ██▒\tchate.io\t70\n");
		print("i▒▓▓▄ ▄██▒░▓█ ░██ ░██▄▄▄▄██░ ▓██▓ ░ ▒▓█  ▄      ░██░▒██   ██░\tchate.io\t70\n");
		print("i▒ ▓███▀ ░░▓█▒░██▓ ▓█   ▓██▒ ▒██▒ ░ ░▒████▒ ██▓ ░██░░ ████▓▒░\tchate.io\t70\n");
		print("i░ ░▒ ▒  ░ ▒ ░░▒░▒ ▒▒   ▓▒█░ ▒ ░░   ░░ ▒░ ░ ▒▓▒ ░▓  ░ ▒░▒░▒░\tchate.io\t70\n");
		print("i  ░  ▒    ▒ ░▒░ ░  ▒   ▒▒ ░   ░     ░ ░  ░ ░▒   ▒ ░  ░ ▒ ▒░\tchate.io\t70\n");
		print("i░         ░  ░░ ░  ░   ▒    ░         ░    ░    ▒ ░░ ░ ░ ▒\tchate.io\t70\n");
		print("i░ ░       ░  ░  ░      ░  ░           ░  ░  ░   ░      ░ ░\tchate.io\t70\n");
		print("i░                                           ░\tchate.io\t70\n");
		print("i\tchate.io\t70\n");
	}
	printer("        _.-^ Thanks for visiting The Chateau ^-._","i","\tchate.io\t70");
	print("i\tchate.io\t70\n");
	printer("   Last Modification: $f_mod UTC","i","\tchate.io\t70");
	my $uniq_ips = `cat ./existing_ips | wc -l`;
	chomp $uniq_ips;
	printer("             Uniq Visitors since Jan 2022 : $uniq_ips","i","\tchate.io\t70");
	print("i\tchate.io\t70\n");
	printer("About Me","0","\tblogs/about-me.org.txt\tchate.io\t70");
	printer("Ramblings and Phlog","1","\t/blogs/blogs.cgi\tchate.io\t70");
	print("i --> All posts are .org mode formatted,\tchate.io\t70\n");
	print("i     so elpher users can use M-x org-mode\tchate.io\t70\n");
	print("i     for nicer formatting\tchate.io\t70\n");
	print("i\tchate.io\t70\n");
	printer("Warez","1","\t$HOME_PATH\tchate.io\t70");
	print("i  --> http://ntfy.sh\tchate.io\t70\n");
	print("i      - Awesome and very easy to use PUT/POST\tchate.io\t70\n");
	print("i        based notification system\tchate.io\t70\n");
	print("i\tchate.io\t70\n");
	printer("Cool Places","i","\tchate.io\t70");
	printer("  --> baud.baby","1","\t/\tbaud.baby\t70");
	printer("  --> hngopher.com (HN Gopher Proxy)","1","\t/\thngopher.com\t70");
	printer("  --> Linkerror","1","\t/\tgopher.linkerror.com\t70");
	printer("  --> gopher.black","1","\t/\tgopher.black\t70");
	printer("  --> tilde.club","1","\t/\ttilde.club\t70");
	printer("  --> RPoD (1436.ninja)","1","\t/\t1436.ninja\t70");
	printer("  --> gopherpedia (Wikipedia Gopher Proxy)","1","\t/\tgopherpedia.com\t70");
	printer("  --> thelambdalab.xyz","1","\t/\tthelambdalab.xyz\t70");
	print("i\tchate.io\t70\n");
	printer("Git Proxy","1","\t/git/go_git.cgi\tchate.io\t70");
	print("i  --> This takes you to a CGI script that will proxy\tchate.io\t70\n");
	print("i      HTTP requests to my git server, so that you can\tchate.io\t70\n");
	print("i      browse my git repos\tchate.io\t70\n");
	print("i      --> Note: Some clients won't render certain file exts,\tchate.io\t70\n");
	print("i          which may cause some repos to appear empty.\tchate.io\t70\n");
	print("i\tchate.io\t70\n");
	printer("Mastodon Proxy","0","\t/masto/go_mast.cgi\tchate.io\t70");
	print("i  --> Proxy of what I'm posting on Mastodon\tchate.io\t70\n");
	print("i\tchate.io\t70\n");
	printer("Script that generates this page","0","\t/foobar.txt\tchate.io\t70");
	print("i\tchate.io\t70\n");
	print("1Plain\t/foobar.cgi?plain\tchate.io\t70\tchate.io\t70\n");
	print("1Colorized\t/\tchate.io\t70\tchate.io\t70\n");
	print("iIf the site looks weird, use the Plain entry above\tchate.io\t70\n");
	print("i  --> Sometimes info lines are filtered in some clients\tchate.io\t70\n");
	print("i      when using the ?plain query, I'm not sure why yet\tchate.io\t70\n");
	print("i\tchate.io\t70\n");
	print("iThis gopher site expects a client that either supports or\tchate.io\t70\n");
	print("ifilters ANSI escape sequences. I recommend:\tchate.io\t70\n");
	print("i--> cgo\tchate.io\t70\n");
	print("i--> phetch\tchate.io\t70\n");
	print("i--> lagrange\tchate.io\t70\n");
	print("i--> castor\tchate.io\t70\n");
	print("i--> curl (use gopher://)\tchate.io\t70\n");
	print("i--> Elpher (filters ANSI)\tchate.io\t70\n");