#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use URI::Escape;
my $query_string = $ENV{'QUERY_STRING'} || '';
my @values;
if ($query_string !~ /[=&]/ && $query_string ne '') {
# Split the string by '+' or space and URL-decode each part
@values = map { uri_unescape($_) } split(/[+ ]/, $query_string);
}
my ($uid,$oid);
if (@values) {
$oid = (split /-/, $values[0])[0];
$uid = (split /-/, $values[0])[1];
}
my $line = `cat /etc/www/site/db_creds`;
chomp (my ($db,$ip,$user,$pw) = split(/:/, $line));
my $dbh = DBI->connect("DBI:Pg:dbname=$db;host=$ip", $user, $pw);
my $un = $dbh->selectrow_array('select first_name from data_details where random_string = ?', {}, $uid);
print "Content-type:text/html\n\n";
print "Welcome";
print qq{