Skip to content

Instantly share code, notes, and snippets.

@geronimod

geronimod/untitled

Last active April 13, 2016 19:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save geronimod/3631e92c01f11a9a4ecefe2231d2ac67 to your computer and use it in GitHub Desktop.
Save geronimod/3631e92c01f11a9a4ecefe2231d2ac67 to your computer and use it in GitHub Desktop.
Download ZIP
redirect.pl
Raw
untitled
use CGI;
my $q = CGI->new;
$to_host = 'https://www1.udel.edu';
$url = $ENV{'REDIRECT_URL'};
$url =~ s/^https?:\/\/[^\/]+//g;
print $q->redirect($to_host . $url);
@victole
Copy link

victole commented Apr 13, 2016

thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment