#!/opt/apps/perl/perl5101/bin/perl use strict; use warnings; use DBI; use CGI; use CGI::Carp qw(fatalsToBrowser); use CGI qw/:standard/; $| = 1; my $db_server = ""; my $db_user = ""; my $password = ''; my $query = new CGI; print $query->header; my $form_user = "something.like.this.com\\" . $query->param('site_user'); my $domain_user = param('user') || $form_user; #1 my @userNameString = split /\\+/, $domain_user; #2 my $userName = $userNameString[1]; #3 my $db_action; my $sql; my $sth; my %widget=(); my $logfile = "LogFileName.log"; open(my $fh, ">>", $logfile) or die "Could not open file '$logfile' $!"; print $fh "Start of script: ". localtime()."\n"; my $dbh = DBI->connect("DBI:Sybase:server=$db_server",$db_user,$password) ; die "unable to connect to server $DBI::errstr" unless $dbh; my $sql18 = "SELECT role FROM table_1 WHERE user = ?";#Returns only 1 row my $sth18 = $dbh->prepare($sql18); $sth18->execute($userName); $dbh->commit; my $rowCount = $sth18->rows; my $role; while (my @row_18 = $sth18->fetchrow_array) { $role = $row_18[0]; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n";