* dpr -- off line print via dataphone daemon to GCOS
* normally invoked through opr
char tfname
[] = "/usr/dpd/tfaXXXXX";
char cfname
[] = "/usr/dpd/cfaXXXXX";
char lfname
[] = "/usr/dpd/lfaXXXXX";
char dfname
[] = "/usr/dpd/dfaXXXXX";
register char *arg
, *remote
;
if (signal(SIGHUP
, SIG_IGN
) != SIG_IGN
)
if (signal(SIGINT
, SIG_IGN
) != SIG_IGN
)
if (signal(SIGQUIT
, SIG_IGN
) != SIG_IGN
)
remote
= "$ remote **,onl";
while (argc
>1 && (arg
= argv
[1])[0]=='-') {
card('L', "$ select ken/mh322");
card('L', "$ data i*,ncksum,copy");
if(*arg
== '/' && flag
!= '-') {
if(link(arg
, lfname
) < 0)
printf("Cannot open %s\n", arg
);
printf("Cannot remove %s\n", arg
);
f
= link(tfname
, dfname
);
printf("Cannot rename %s\n", dfname
);
execl("/etc/dpd", "dpd", 0);
while((i
= read(f
, buf
, 512)) > 0) {
printf("Copy file is too large\n");
while((c
= *p2
++) != '\0') {
register char *b1p
, *pp
, *b2p
;
static char b1
[100], b2
[100];
if(getpw(getuid(), b1p
)) {
b1p
= "pdp::::m0000,m000:";
while(*b2p
++ = "$ ident "[n
++]);
while(--n
) while(*b1p
++ != ':');
while((*b2p
++ = *b1p
++) != ':');
while((c
= *b1p
++) != ':') {
printf("Cannot create %s\n", name
);
signal(SIGQUIT
, SIG_IGN
);
while(tfname
[i
] != 'a') {
while(cfname
[i
] != 'a') {
while(lfname
[i
] != 'a') {
while(dfname
[i
] != 'a') {