![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to apsend.mkhd.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / apsend|
Return to apsend.mkhd.c CVS log | Up to [Research Unix] / researchv10no / cmd / apsend |
1.1 ! root 1: /****** apsend.mkhd.c *****/ ! 2: ! 3: #include <stdio.h> ! 4: #include <pwd.h> ! 5: #include <time.h> ! 6: #include <ctype.h> ! 7: #include "apsend.h" ! 8: ! 9: main() ! 10: { ! 11: FILE *hdfile,*dtfile; ! 12: char header[160],tempbuf[80],*temp,tempbuf1[80],*temp1,tempbuf2[80],*temp2; ! 13: char tarray[20],parray[6],narray[8]; ! 14: char *pid, *acct, *bin, *passacct, *nodename, *version, *aversion, *mhinfo, c; ! 15: char *tempbin, *tempacct; ! 16: int uid, i, astatus, passtype, found; ! 17: struct passwd *getpwuid(), *ps; ! 18: struct tm *localtime(), *lt; ! 19: long time(), now; ! 20: char *asctime(), *at, *getenv(); ! 21: ! 22: for (i=0;i<160;i++) { ! 23: header[i] = ' '; ! 24: } ! 25: for (i=0;i<80;i++) { ! 26: tempbuf[i] = '\0'; ! 27: tempbuf1[i] = '\0'; ! 28: tempbuf2[i] = '\0'; ! 29: } ! 30: temp = tempbuf; ! 31: temp1 = tempbuf1; ! 32: temp2 = tempbuf2; ! 33: found = passtype = 0; ! 34: astatus = 1; ! 35: tempbin = tempacct = 0; ! 36: ! 37: pid = getenv("PID"); ! 38: strcpy (parray,pid); ! 39: nodename = getenv("NODE"); ! 40: strcpy (narray,nodename); ! 41: sprintf (&header[UJN],"%s.%s",narray,parray); ! 42: uid = getuid(); ! 43: ps = getpwuid(uid); ! 44: if (ps == NULL) { ! 45: printf ("login not found; job not submitted\n"); ! 46: exit (1); ! 47: } ! 48: strcpy (&header[ULOG],ps->pw_name); ! 49: ! 50: if ((mhinfo = getenv("MHINFO")) != NULL) { ! 51: strcpy (temp1,mhinfo); ! 52: if ((tempbuf1[5] == ',') || (tempbuf1[5] == '\0')) ! 53: i = 5; ! 54: else ! 55: i = 6; ! 56: tempbuf1[i] = tempbuf1[i+34] = '\0'; ! 57: tempbin = &tempbuf1[i+1]; ! 58: strcpy (&header[BIN],tempbin); ! 59: tempacct = temp1; ! 60: } ! 61: if (((bin = getenv("MAILADDR")) != NULL) || (((bin = getenv("BBIN")) != NULL) && (*bin != '0'))) { ! 62: strcpy (temp2,bin); ! 63: tempbuf2[34] = '\0'; ! 64: strcpy (&header[BIN],temp2); ! 65: } ! 66: else ! 67: bin = tempbin; ! 68: if ((acct = getenv("ACCOUNT")) != NULL){ ! 69: strcpy (temp2,acct); ! 70: if ((tempbuf2[5] == ',') || (tempbuf2[5] == '\0')) ! 71: i = 5; ! 72: else ! 73: i = 6; ! 74: tempbuf2[i] = '\0'; ! 75: acct = temp2; ! 76: } ! 77: else ! 78: acct = tempacct; ! 79: if (acct != NULL){ ! 80: astatus = chkacct( acct,i); ! 81: if (astatus != 0){ ! 82: printf ("valid GCOS account number needed; job not submitted\n"); ! 83: exit(2); ! 84: } ! 85: strcpy (&header[MHACCT],acct); ! 86: } ! 87: ! 88: /* try to get GCOS account and/or bin info from passwd file */ ! 89: /* determine which kind of passwd file we have: ! 90: if no '(' in GCOS field, must be research type; ! 91: typical format is ':mhxxxx,myyy:' ! 92: if ')' found, followed by < 5 char string, must be ISCC standard style; ! 93: typical format is ':zzzzz(mhxxxx)myyy,zzzzz:' ; trailing ',zzzzz' optional; ! 94: if ')' found followed by 5-6 char string, must be USG style; ! 95: typical format is ':zzzzz(mhxxxx)mhxxxx,myyy:'; ! 96: use account number immediately following ')'; ! 97: */ ! 98: ! 99: if ((acct == NULL) || (bin == NULL)){ ! 100: passacct = ps->pw_gecos; ! 101: strcpy (temp,passacct); ! 102: if ((acct == NULL) && (tempbuf[0] == '\0')){ ! 103: printf ("valid GCOS account number needed; job not submitted\n"); ! 104: exit(3); ! 105: } ! 106: for (i=0;i<80;i++){ ! 107: if (tempbuf[i] == '('){ ! 108: passtype=2; ! 109: break; ! 110: } ! 111: if ((tempbuf[i] == ':' ) || (tempbuf[i] == '\0')){ ! 112: passtype=1; ! 113: break; ! 114: } ! 115: } ! 116: if (passtype == 2){ ! 117: for (i=0;i<80;i++){ ! 118: if (tempbuf[i] == ')') ! 119: found = i; ! 120: if ((found != 0) && (tempbuf[i] == ',')) ! 121: if (((i - found) == 6) || ((i - found) == 7)) ! 122: passtype = 3; ! 123: if ((tempbuf[i] == ':') || (tempbuf[i] == '\0')) ! 124: break; ! 125: } ! 126: } ! 127: if (passtype == 1){ ! 128: passacct = temp; ! 129: while ((c = *temp++) != '\0') ! 130: if (c == ',') break; ! 131: } ! 132: if (passtype == 2){ ! 133: while (*temp++ != '('); ! 134: passacct = temp; ! 135: while ((c = *temp++) != '\0') ! 136: if (c == ')') break; ! 137: } ! 138: if (passtype == 3){ ! 139: while (*temp++ != ')'); ! 140: passacct = temp; ! 141: while ((c = *temp++) != '\0') ! 142: if (c == ',') break; ! 143: } ! 144: if (bin == NULL) ! 145: strcpy (&header[BIN],temp); ! 146: temp--; ! 147: *temp = '\0'; ! 148: i = temp - passacct; ! 149: if (acct == NULL){ ! 150: astatus = chkacct( passacct,i); ! 151: if (astatus != 0){ ! 152: printf ("valid GCOS account number needed; job not submitted\n"); ! 153: exit(4); ! 154: } ! 155: strcpy (&header[MHACCT],passacct); ! 156: } ! 157: } ! 158: now = time((long *)0); ! 159: lt = localtime(&now); ! 160: sprintf (&header[TODAPS],"%02d",lt->tm_mon+1); ! 161: sprintf (&header[TODAPS+2],"%02d",lt->tm_mday); ! 162: sprintf (&header[TODAPS+4],"%02d",lt->tm_hour); ! 163: sprintf (&header[TODAPS+6],"%02d",lt->tm_min); ! 164: sprintf (&header[TODAPS+8],"%02d",lt->tm_sec); ! 165: version = getenv("VERS"); ! 166: strcpy (tarray,version); ! 167: sprintf (&header[VERSION],"%s",tarray); ! 168: aversion = getenv("AVERS"); ! 169: strcpy (tarray,aversion); ! 170: sprintf (&header[AVERSION],"%s",tarray); ! 171: sprintf (&header[159],"%c",'\n'); ! 172: for (i=0;i<160;i++) ! 173: if (header[i] == '\0') ! 174: header[i] = ' '; ! 175: strcpy (tarray,"/tmp/apshead"); ! 176: strncat (tarray,parray,5); ! 177: hdfile = fopen(tarray,"w"); ! 178: strcpy (tarray,"/tmp/apsdate"); ! 179: strncat (tarray,parray,5); ! 180: dtfile = fopen(tarray,"w"); ! 181: if (hdfile == NULL || dtfile == NULL){ ! 182: printf ("can't open /tmp file(s); job not submitted\n"); ! 183: exit(5); ! 184: } ! 185: for (i=0;i<160;i++){ ! 186: c = header[i]; ! 187: putc(c,hdfile); ! 188: } ! 189: at = asctime(lt); ! 190: fprintf (dtfile,"%s",at); ! 191: exit(0); ! 192: } ! 193: chkacct(acct,n) ! 194: char acct[]; int n; ! 195: { ! 196: if ( n == 5){ ! 197: if ((acct[0] == 'm') || (acct[0] == 'M')){ ! 198: acct[6] = '\0'; ! 199: acct[5] = acct[4]; ! 200: acct[4] = acct[3]; ! 201: acct[3] = acct[2]; ! 202: acct[2] = acct[1]; ! 203: acct[1] = 'h'; ! 204: } ! 205: else ! 206: return (1); ! 207: } ! 208: if ((isalpha(acct[0]) != 0) && (isalpha(acct[1]) != 0) && ! 209: (isalnum (acct[2]) != 0) && (isdigit (acct[3]) != 0) && ! 210: (isdigit (acct[4]) != 0) && (isdigit (acct[5]) != 0)) ! 211: ; ! 212: else ! 213: return (1); ! 214: if ((acct[2] == '0') && (acct[3] == '0') && (acct[4] == '0') ! 215: && (acct[5] == '0')) ! 216: return (2); ! 217: else ! 218: return (0); ! 219: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.