Darren Ferguson - Weblog

Perl - Get Login

Display the user who is executing the script.

Marco Tag

<?PERL_MACRO id="login"></?PERL_MACRO>

Marco Output

PERL FOR UMBRACO: The remote server returned an error: (405) Method Not Allowed. requesting http://www.darren-ferguson.com:80/plex/login.plex

Perl Source

use strict;
use utf8;
use CGI;
use Date::Format;

my $query = new CGI;
print $query->header(-charset => 'utf-8');
my $login = getlogin || getpwuid($<) || "UNKNOWN";
print "LOGIN: $login\n";