Skip to content

Instantly share code, notes, and snippets.

@blackknight36
Last active March 31, 2017 12:26
Show Gist options
  • Select an option

  • Save blackknight36/defe7fb3fcba550027c3653cf481121b to your computer and use it in GitHub Desktop.

Select an option

Save blackknight36/defe7fb3fcba550027c3653cf481121b to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
#redirect user to new server
use CGI qw(:standard);
my $q = CGI->new;
my $path = $q->path_info();
print $q->redirect(-url => "http://cvs2.example.com/cgi-bin/cvsweb.cgi$path");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment