#!/usr/bin/perl
# proxy script for ajax functionality

use strict;
use warnings;
use LWP::Simple;
use CGI;

# CGI stuff
my $q = new CGI;
print $q->header("text/plain");

my $remote_script = $ENV{'REQUEST_URI'};
my $script = $ENV{'SCRIPT_NAME'};
$remote_script =~ s/^$script//;
my $to_proxy = "http://library.domain.edu/path/to/script/get_journal_info.pl$remote_script";
print get($to_proxy);
exit;