No Subject

[Charles J. Williams]

In message <[EMAIL PROTECTED]>,"Cydna J. Mahar" writes:
>Does anyone have any ideas on how to accomplish this??
>
>>From: Reese Ferry <[EMAIL PROTECTED]>
>>How would one go about doing the equivalent of a pagsh 
>>command in a perl script?  What I would like to be able 

the following seems to be the perl equivalent of pagsh:

#!/bin/perl
$AFS_SYSCALL = 105;     # solaris 2.x only, probably 31 for other machines
                        # see AFS_SYSCALL in param.h or afs.h
$AFS_SETPAG = 21;
syscall($AFS_SYSCALL, 21);      # use 21, so its passed as an int, not a ptr
exec "/bin/sh";