Doppio CGI examples

#!/usr/bin/perl -T
use strict;
use warnings;

# Doppio expects header in this format
print "Content-Type: text/gemini\n\n"; 

open(my $fh, "<", "/path/to/guestbook.txt") or die "$0 cannot read guestbook.txt: $!";
while (my $line = <$fh>) {
	print $line;
}
close($fh);
print "=> ./sign.cgi Sign the guest book!";

#!/usr/bin/perl -T
use strict;
use warnings;
use POSIX qw(strftime);

# checking to see if key has a value/exists (returns true or false)
if ($ENV{QUERY_STRING}) { 
	my $date = strftime "%b %e %Y", localtime;
	open(my $fh, '>>', "/path/to/guestbook.txt") or die "$0 cannot append guestbook.txt: $!";
		# write to file
		print $fh "$date: $EVN{QUERY_STRING}\n"; 
	close($fh);
	# Redirection for browsers
	print "Status: 30\nContent-Type: ./guestbook.cgi\n\n"; 
} else {
	# Prompt user to give query
	print "Status: 10\nContent-Type: What will you sign in the guest book?\n\n"; 
}

#!/usr/bin/perl -T
use strict;
use warnings;

# checking to see if key has a value/exists (returns true or false)
if ($ENV{REMOTE_USER}) { 
	# in case matching does not work
		my $remote_user = "47";
		# matching the common name
		if ($ENV{REMOTE_USER} =~ m/,?CN=(.+),?) { 
			$remote_user = $1;
		}
		print "Content-Type: text/gemini\n\n";
		print "# Welcome back, agent $remote_user!\n";
		# Maybe put a heredoc right here? Just an idea :)
} else {
	# Prompts the user to submit a cert.
	print "Status: 60\nContent-Type: Certificate (any) required."; 
}