/usr/lib/perl5/Cdk/Diag.pm is in libcdk-perl 4.9.10-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | package Cdk::Diag;
@ISA = qw (Cdk);
#
# This creates a new Label object
#
sub getScreenRegList
{
my $type = shift;
my %params = @_;
my $self = {};
my $name = "${type}::new";
# Retain the type of the object.
$self->{'Type'} = $type;
# Set up the parameters passed in.
my $mesg = Cdk::checkReq ($name, "Message", $params{'Message'});
# Call the thing.
Cdk::Diag::DumpScreenRegList ($mesg);
}
#
# This writes to the log file.
#
sub Log
{
my($mesgType, $widgetType, $mesg) = @_;
# If the environment flag CDKDIAG is not set then get out.
return if (! defined $ENV{'CDKDIAG'});
# Set up the local vars.
my $filename = $ENV{'CDKLOGFILE'} || "cdkdiag.log";
my $date = qx (date); chomp $date;
my $diagType = uc $ENV{'CDKDIAG'};
# Only write the output if the diagnostics tell us to.
if ($diagType eq "ALL" || $diagType =~ uc $widgetType)
{
# Open the file
open (XXX, ">>$filename");
select (XXX); $| = 1;
print XXX "\n</29>*** Diagnostic Start: Program=<$0> Time: <$date> ***\n" if ! $DIAGFLAG;
# Check the message type.
print XXX "</24>$mesgType - ($widgetType) $mesg\n" if ($mesgType eq "Diag");
print XXX "</16>$mesgType - ($widgetType) $mesg\n" if ($mesgType eq "Error");
close (XXX);
$DIAGFLAG = 1;
}
}
1;
|