| Current Path : /var/www/web-klick.de/dsh/90_akt/old/utility/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/old/utility/CGP.pm |
package CGP;
use Time::HiRes qw(gettimeofday tv_interval);
$CGP::lasttime = [gettimeofday()];
open(GFILE,">cgp");
sub mm {
if (!$main::XCONSOLE) {
return(1);
}
my $mark = shift;
my $newdate = [gettimeofday()];
my $erg = tv_interval($CGP::lasttime,$newdate);
$CGP::lasttime = $newdate;
$erg = "proc " . $$ . ", MARK " . $mark . ":" . $erg . "\n";
print $erg;
print GFILE $erg;
}
1;