File: constant

package info (click to toggle)
libafs-perl 2.6.2-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 2,244 kB
  • ctags: 268
  • sloc: perl: 5,159; ansic: 135; sh: 36; makefile: 7
file content (71 lines) | stat: -rwxr-xr-x 3,140 bytes parent folder | download
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#!/usr/local/bin/perl -w

use blib;

use AFS qw (constant);

my $value;

$value = constant('PRIDEXIST'); # value = 267265
print "Value constant = $value \n";

$value = &AFS::PRIDEXIST;       # value = 267265, preferred method
print "Value function = $value \n";

$value = constant('VBUSY'); # value = 110
print "Value constant = $value \n";

$value = &AFS::VBUSY;       # value = 110, preferred method
print "Value function = $value \n";

# print "AFS::PRSUCCESS  = ",&AFS::PRSUCCESS ,"\n";
# print "AFS::PR_MAXNAMELEN  = ",&AFS::PR_MAXNAMELEN ,"\n";
# print "AFS::PR_MAXGROUPS  = ",&AFS::PR_MAXGROUPS ,"\n";
# print "AFS::PR_MAXLIST  = ",&AFS::PR_MAXLIST ,"\n";
# print "AFS::PRSIZE  = ",&AFS::PRSIZE ,"\n";
# print "AFS::COSIZE  = ",&AFS::COSIZE ,"\n";
# print "AFS::PR_SF_ALLBITS  = ",&AFS::PR_SF_ALLBITS ,"\n";
# print "AFS::PR_SF_NGROUPS  = ",&AFS::PR_SF_NGROUPS ,"\n";
# print "AFS::PR_SF_NUSERS   = ",&AFS::PR_SF_NUSERS  ,"\n";
# print "AFS::PR_LOWEST_OPCODE   = ",&AFS::PR_LOWEST_OPCODE  ,"\n";
# print "AFS::PR_HIGHEST_OPCODE  = ",&AFS::PR_HIGHEST_OPCODE ,"\n";
# print "AFS::PR_NUMBER_OPCODES  = ",&AFS::PR_NUMBER_OPCODES ,"\n";
# print "AFS::PREXIST  = ",&AFS::PREXIST ,"\n";
# print "AFS::PRIDEXIST  = ",&AFS::PRIDEXIST ,"\n";
# print "AFS::PRNOIDS  = ",&AFS::PRNOIDS ,"\n";
# print "AFS::PRDBFAIL  = ",&AFS::PRDBFAIL ,"\n";
# print "AFS::PRNOENT  = ",&AFS::PRNOENT ,"\n";
# print "AFS::PRPERM  = ",&AFS::PRPERM ,"\n";
# print "AFS::PRNOTGROUP  = ",&AFS::PRNOTGROUP ,"\n";
# print "AFS::PRNOTUSER  = ",&AFS::PRNOTUSER ,"\n";
# print "AFS::PRBADNAM  = ",&AFS::PRBADNAM ,"\n";
# print "AFS::PRBADARG  = ",&AFS::PRBADARG ,"\n";
# print "AFS::PRNOMORE  = ",&AFS::PRNOMORE ,"\n";
# print "AFS::PRDBBAD  = ",&AFS::PRDBBAD ,"\n";
# print "AFS::PRGROUPEMPTY  = ",&AFS::PRGROUPEMPTY ,"\n";
# print "AFS::PRINCONSISTENT  = ",&AFS::PRINCONSISTENT ,"\n";
# print "AFS::PRDBADDR  = ",&AFS::PRDBADDR ,"\n";
# print "AFS::PRTOOMANY  = ",&AFS::PRTOOMANY ,"\n";
# print "AFS::PRBADID  = ",&AFS::PRBADID ,"\n";
# print "AFS::SYSADMINID  = ",&AFS::SYSADMINID ,"\n";
# print "AFS::SYSBACKUPID  = ",&AFS::SYSBACKUPID ,"\n";
# print "AFS::ANYUSERID  = ",&AFS::ANYUSERID ,"\n";
# print "AFS::AUTHUSERID  = ",&AFS::AUTHUSERID ,"\n";
# print "AFS::ANONYMOUSID  = ",&AFS::ANONYMOUSID ,"\n";
# print "AFS::PRDBVERSION  = ",&AFS::PRDBVERSION ,"\n";

# print "AFS::PRSFS_READ = ",&AFS::PRSFS_READ,"\n";
# print "AFS::PRSFS_WRITE = ",&AFS::PRSFS_WRITE,"\n";
# print "AFS::PRSFS_INSERT = ",&AFS::PRSFS_INSERT,"\n";
# print "AFS::PRSFS_LOOKUP = ",&AFS::PRSFS_LOOKUP,"\n";
# print "AFS::PRSFS_DELETE = ",&AFS::PRSFS_DELETE,"\n";
# print "AFS::PRSFS_LOCK = ",&AFS::PRSFS_LOCK,"\n";
# print "AFS::PRSFS_ADMINISTER = ",&AFS::PRSFS_ADMINISTER,"\n";
# print "AFS::PRSFS_USR0 = ",&AFS::PRSFS_USR0,"\n";
# print "AFS::PRSFS_USR1 = ",&AFS::PRSFS_USR1,"\n";
# print "AFS::PRSFS_USR2 = ",&AFS::PRSFS_USR2,"\n";
# print "AFS::PRSFS_USR3 = ",&AFS::PRSFS_USR3,"\n";
# print "AFS::PRSFS_USR4 = ",&AFS::PRSFS_USR4,"\n";
# print "AFS::PRSFS_USR5 = ",&AFS::PRSFS_USR5,"\n";
# print "AFS::PRSFS_USR6 = ",&AFS::PRSFS_USR6,"\n";
# print "AFS::PRSFS_USR7 = ",&AFS::PRSFS_USR7,"\n";