AFS-Monitor

 view release on metacpan or  search on metacpan

examples/rxdebug  view on Meta::CPAN

284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
if (exists $val->{tstats}) {
  print "Free packets: $val->{tstats}->{nFreePackets}, ";
  print "packet reclaims: $val->{tstats}->{packetReclaims}, ";
  print "calls: $val->{tstats}->{callsExecuted}, ";
  print "used FDs: $val->{tstats}->{usedFDs}\n";
  if (!$val->{tstats}->{waitingForPackets}) {
    print "not ";
  }
  print "waiting for packets.\n";
  if (exists $val->{tstats}->{nWaiting}) {
    print "$val->{tstats}->{nWaiting} calls waiting for a thread\n";
  }
  if (exists $val->{tstats}->{idleThreads}) {
    print "$val->{tstats}->{idleThreads} threads are idle\n";
  }
}
 
# print rxstats if they were returned
if (exists $val->{rxstats}) {
 
  print "rx stats: free packets ", $val->{tstats}->{nFreePackets},
        ", allocs ", $val->{rxstats}->{packetRequests}, ", ";
 
  if ($val->{tstats}->{version} >=

pod/Monitor.pod  view on Meta::CPAN

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
  SLES9           ia64_linux26    v5.8.3                        1.4.1
 
  Solaris 5.8     sun4x_58        v5.8.8, v5.6.0, 5.005_03      1.4.1, 1.2.10
  Solaris 5.9     sun4x_59        v5.8.8, v5.6.0                1.4.1, 1.2.10
  Solaris 5.10    sun4x_510       v5.8.8, v5.6.0                1.4.1, 1.2.10
 
  Mac OS X 10.3   ppc_darwin_70   v5.8.1-RC3                    1.4.1
  Mac OS x 10.4   ppc_darwin_80   v5.8.6                        1.4.1
 
 
Perl 5.6.0 or newer. No problems were found with threaded Perl.
AFS system libraries and header files from B<OpenAFS 1.2.x> or newer.
It is not know whether version 0.3.0 of this module works with
B<IBM/Transarc AFS> because I don't have this version available any more.
 
 
=head1 PREREQUISITES
 
This package does not depend on any other Perl modules.
 
=head1 KNOWN BUGS

src/Makefile.PL  view on Meta::CPAN

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# under the same terms as Perl itself.
#------------------------------------------------------------------------------
 
use strict;
use English;
 
use ExtUtils::MakeMaker;
use Config;
 
my $archname = $Config{'archname'};
# if ($archname =~ /thread/i) { die "Threaded Perl is not supported ...\n"; }
 
my $VERSION = "0.3.2";
 
# give me the path to the AFS system libraries
# used to build the AFS extension module
my $guess_path;
if    (-r "/usr/local/include/afs/afs.h") { $guess_path = '/usr/local'; }
elsif (-r "/usr/afsws/include/afs/afs.h") { $guess_path = '/usr/afsws'; }
elsif (-r "/usr/include/afs/afs.h")       { $guess_path = '/usr'; }
elsif (-r "/Library/OpenAFS/Tools/include/afs/afs.h") { $guess_path = '/Library/OpenAFS/Tools'; }

src/ppport.h  view on Meta::CPAN

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
        perl -x ppport.h *.c *.h *.xs foo/*.c [etc]
 
   The result will be a list of patches suggesting changes that should at
   least be acceptable, if not necessarily the most efficient solution, or a
   fix for all possible problems. It won't catch where dTHR is needed, and
   doesn't attempt to account for global macro or function definitions,
   nested includes, typemaps, etc.
 
   In order to test for the need of dTHR, please try your module under a
   recent version of Perl that has threading compiled-in.
 
*/
 
 
/*
#!/usr/bin/perl
@ARGV = ("*.xs") if !@ARGV;
%badmacros = %funcs = %macros = (); $replace = 0;
foreach (<DATA>) {
        $funcs{$1} = 1 if /Provide:\s+(\S+)/;