7 my $path = $ENV{'PATH_INFO'};
8 my $script_path = $ENV{'SCRIPT_NAME'};
9 my $server_name = $ENV{'SERVER_NAME'};
12 my ($code, $meta) = @_;
13 print "$code $meta\r\n";
19 if (! defined($path) || $path eq '') {
20 reply 20, 'text/gemini';
24 Append a clbin.com URL to see it via your preferred gemini browser!
26 For example: gemini://${server_name}${script_path}/clbin.com/XYZ
33 # trim initial slash so we have only the hostname
36 # implement multiple bins eventually...
37 if ($path =~ m,^clbin.com/.*,) {
38 reply 20, 'text/plain';
39 exec 'curl', 'https://'.$path;
41 reply 59, 'bin not supported';