|
|
1.1 root 1: From burl!lda Tue Apr 5 12:50:04 1983
2: Date: 5-Apr-83 12:49:57-EST (Tue)
3: From: burl!lda
4: Subject: base 62 sequencing on USG 5.0 uucp
5: Via: cbosgd.UUCP (V3.94 [3/6/82]); 5-Apr-83 12:50:00-EST (Tue)
6: To: teklabs!stevenm
7: Status: R
8:
9: This is a listing of the changes made to USG 5.0 uucp to support the
10: base 62 numbering scheme submitted to the 'uucp.buglist' by Alan S. Watt,
11: ittvax!swatt. Simply changing the gename routine was not enough.
12: These changes were made by Curtis Jackson, burl!rcj.
13:
14: Note: The diff here on 'ogename.c gename.c' is for Alan's gename.c
15:
16: Larry Auton
17: burl!lda
18: [Caution - a few weeks later, burl's UUCP started behaving very
19: strangely. UUCP would record that it xqt'ed rnews, but rnews was
20: never started up. Access time on /usr/bin/rnews was unchanged.
21: We don't know if this change had anything to do with it, but if
22: you see this symptom, be suspicious of this change.]
23: _________________________________________________________________________
24: **** ocntrl.c cntrl.c
25: 135c135
26: < jobid = 0;
27: ---
28: > strcpy(jobid,"0000");
29:
30: **** ogename.c gename.c
31: 29c29,30
32: < sprintf(file, "%c.%.7s%c%.4s", pre, sys, grade, sqnum);
33: ---
34: > strcpy(jobid,sqnum);
35: > updjb(); sprintf(file, "%c.%.6s%c%.1s%.4s", pre, sys, grade, subjob, jobid);
36:
37: **** ogtcfile.c gtcfile.c
38: 57c57
39: < if(jobid == 0){
40: ---
41: > if(!strcmp(jobid,"0000")){
42: 60c60
43: < DEBUG(4,"gtcfile2: sqnm - %d\n",sqnm);
44: ---
45: > DEBUG(4,"gtcfile2: sqnm - %s\n",sqnm);
46: 62,63c62,63
47: < updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, subjob, jobid);
48: < DEBUG(4,"gtcfile3: jobid - %d\n",jobid);
49: ---
50: > updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, subjob, jobid);
51: > DEBUG(4,"gtcfile3: jobid - %s\n",jobid);
52: 70c70
53: < sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, p->pre_id, jobid);
54: ---
55: > sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, p->pre_id, jobid);
56: 81c81
57: < static int jid = 0;
58: ---
59: > static char jid[5] = "0000";
60: 83,85c83,85
61: < if(jobid != jid){
62: < DEBUG(4,"csys0 - jobid: %d\n",jobid);
63: < jid = jobid;
64: ---
65: > if(strcmp(jobid,jid)){
66: > DEBUG(4,"csys0 - jobid: %s\n",jobid);
67: > strcpy(jid,jobid);
68:
69: **** ouucp.c uucp.c
70: 597c597
71: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, s2, Grade, subjob, jobid);
72: ---
73: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, s2, Grade, subjob, jobid);
74: 754c754
75: < fprintf(stdout,"uucp job %d\n", jobid);
76: ---
77: > fprintf(stdout,"uucp job %s\n", jobid);
78: 756c756
79: < updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, subjob, jobid);
80: ---
81: > updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, subjob, jobid);
82: 764c764
83: < sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, p->pre_id, jobid);
84: ---
85: > sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, p->pre_id, jobid);
86: 775c775
87: < static int jid = 0;
88: ---
89: > static char jid[5] = "0000";
90: 777,778c777,778
91: < if(jobid != jid){
92: < jid = jobid;
93: ---
94: > if(strcmp(jobid,jid)){
95: > strcpy(jid,jobid);
96:
97: **** ouucp.h uucp.h
98: 201c201
99: < extern int jobid;
100: ---
101: > extern char jobid[5];
102:
103: **** ouucpdefs.c uucpdefs.c
104: 26c26
105: < int jobid;
106: ---
107: > char jobid[5];
108:
109: **** ouux.c uux.c
110: 216c216
111: < updjb(); sprintf(tcfile, "%c.%.6s%c%.1s%.4d", DATAPRE, local, 'T', subjob, jobid);
112: ---
113: > updjb(); sprintf(tcfile, "%c.%.6s%c%.1s%.4s", DATAPRE, local, 'T', subjob, jobid);
114: 303c303
115: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'B', subjob, jobid);
116: ---
117: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'B', subjob, jobid);
118: 345c345
119: < fprintf(stdout,"uucp job %d\n", jobid);
120: ---
121: > fprintf(stdout,"uucp job %s\n", jobid);
122: 505c505
123: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'A', subjob, jobid);
124: ---
125: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'A', subjob, jobid);
126: 570c570
127: < updjb(); sprintf(tfile, "%c.%.6s%c%.1s%.4d", CMDPRE, syspart, 'R', subjob, jobid);
128: ---
129: > updjb(); sprintf(tfile, "%c.%.6s%c%.1s%.4s", CMDPRE, syspart, 'R', subjob, jobid);
130: 644c644
131: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, syspart, 'R', subjob, jobid);
132: ---
133: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, syspart, 'R', subjob, jobid);
134: 655c655
135: < updjb(); sprintf(t2file, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'T', subjob, jobid);
136: ---
137: > updjb(); sprintf(t2file, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'T', subjob, jobid);
138: 767c767
139: < updjb(); sprintf(cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, xsys, 'A', subjob, jobid);
140: ---
141: > updjb(); sprintf(cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, xsys, 'A', subjob, jobid);
142:
143:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.