added on local at 2026-07-01 12:34:00
| 1 | #!/usr/bin/perl | |
| 2 | ||
| 3 | ################################################################################################################################## | |
| 4 | # ______ ____ ____ ______ ______ ____ ___ __ ___ ______ _ __ ____ ____ __ __ _ __ _____ ____ | |
| 5 | # / ____// __ \ / __ \ / ____/ / ____// __ \ / | / |/ // ____/| | / // __ \ / __ \ / //_/ | | / /|__ / / __ \ | |
| 6 | # / / / / / // / / // __/ / /_ / /_/ // /| | / /|_/ // __/ | | /| / // / / // /_/ // ,< | | / / /_ < / / / / | |
| 7 | # / /___ / /_/ // /_/ // /___ / __/ / _, _// ___ | / / / // /___ | |/ |/ // /_/ // _, _// /| | | |/ / ___/ /_ / /_/ / | |
| 8 | # \____/ \____//_____//_____/ /_/ /_/ |_|/_/ |_|/_/ /_//_____/ |__/|__/ \____//_/ |_|/_/ |_| |___/ /____/(_)\____/ | |
| 9 | # | |
| 10 | # - Written by: Shawn Pickering | |
| 11 | # - shawn@shawnpickering.com | |
| 12 | ################################################################################################################################## | |
| 13 | use strict; | |
| 14 | use lib '/var/www/vhosts/3dshawn.com/ptmatrix.3dshawn.com'; | |
| 15 | ||
| 16 | ||
| 17 | ############################################################# | |
| 18 | ## Variables | |
| 19 | ############################################################# | |
| 20 | #Retired stub - historical visitor reporting now lives at /admin_traffic.cgi | |
| 21 | #(Meta-Admin-shaped). Permanent 301 keeps old bookmarks + template links alive. | |
| 22 | ||
| 23 | ||
| 24 | ||
| 25 | ############################################################ | |
| 26 | # Modules | |
| 27 | ############################################################ | |
| 28 | #Load Urls | |
| 29 | use MODS::PTMatrix::Urls; | |
| 30 | my $getlist = new MODS::PTMatrix::Urls; | |
| 31 | my $url = $getlist->urls(); | |
| 32 | ||
| 33 | ||
| 34 | ||
| 35 | ############################################################ | |
| 36 | # Program Controls | |
| 37 | ############################################################ | |
| 38 | $|=1; | |
| 39 | &redirect_to_traffic; | |
| 40 | ||
| 41 | ||
| 42 | ############################################################ | |
| 43 | # Subroutines | |
| 44 | ############################################################ | |
| 45 | sub redirect_to_traffic{ | |
| 46 | print qq~Status: 301 Moved Permanently\nLocation: $url->{admin_traffic}\nContent-Type: text/html\n\n~; | |
| 47 | print qq~<!doctype html><meta http-equiv="refresh" content="0;url=$url->{admin_traffic}"><a href="$url->{admin_traffic}">Moved to /admin_traffic.cgi</a>~; | |
| 48 | } |