2021-03-06 18:03:04 -05:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
|
|
# Guestbook CGI Program
|
|
|
|
|
# Daniel Bowling <swaggboi@slackware.uk>
|
|
|
|
|
# Sep 2020
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use utf8;
|
|
|
|
|
use open qw{:std :utf8}; # Fix "Wide character in print" warning
|
|
|
|
|
use CGI qw{-utf8}; # Needed to parse unicode params
|
|
|
|
|
use CGI::Carp qw{fatalsToBrowser};
|
|
|
|
|
|
2022-01-11 20:59:27 -05:00
|
|
|
print CGI->redirect('https://guestbook.swagg.net');
|
