• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl

# returns todays' date as SHA1 digest of DateTime->today() value - overkill method
# to bypass external user submitting bookmarked login page (need to go through '/')

use strict;
use warnings;

use lib '/home/raj/perl5/lib/perl5';
use CGI qw(:standard);

use FindBin qw($RealBin); # warn $RealBin;
use lib $RealBin . '/../../lib';
use LIMS::Local::Utils;

# use same methods as LIMS::_check_portal_referral() to generate SHA1 hash:
my $today = LIMS::Local::Utils::today->datetime;
my $str   = LIMS::Local::Utils::sha1_digest($today);
print header() . $str;