I have difficulty to understand below regex ,
any senior here could help me understand
access =~ m/($cat|GLOB)::|admin/i; ## what's this mean?
Thanks in advance
if ($private eq "Yes") {
my @staff = support::Staff->load({notify=>1});
while ( my $s = shift @staff ) {
next unless $s->access =~ m/($cat|GLOB)::|admin/i;
next if $s->username eq $q->cookie('staff');
my $ref = $s->columns;
my $name = $ref->{'name'};
chomp($recipient = $ref->{'email'});
my $hdtime = time();
my $msg .= "There is a new help desk response made by a staff member:\n";
$msg .= "\nCall Details\n";
$msg .= "---------------------------------------\n";
$msg .= "\t Response by......: $name\n";
$msg .= "\t Time.............: $hdtime\n";
$msg .= "\t Ticket...........: $trackno\n";
$msg .= "\t Comments.........: $comments\n";
$msg .= "---------------------------------------\n";
$msg .= "\n\nThank You.";
$self->email(
To => $recipient,
From => $global{adminemail},
Subject => " (STAFF MESSAGE)",
Body => $msg )
}
}