|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 787 (0x313) Types: TextFile Names: »tele.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987 └─⟦this⟧ »EUUGD18/General/Empire.V/V1.1/COMMANDS/tele.c«
#define D_NATSTAT #define D_NEWSVERBS #define D_NATSTR #define D_FILES #include "empdef.h" tele() { register arg; char buf[512], *cname(); arg = natarg(argp[1], "for which country? "); if( arg == -1 ) return(SYN_RETURN); getnat(arg); if( nat.nat_stat > STAT_VISITOR ) goto X114; printf("%s has no \"telegram privileges\".\n", cname(arg)); return(SYN_RETURN); X114: if( getele(cname(arg), buf, argp[2]) > 0 ) goto X162; printf("Command ignored"); return(SYN_RETURN); X162: wu(cnum, arg, buf); if( nstat == STAT_GOD ) goto X244; if( nat.nat_stat == STAT_GOD ) goto X244; nreport(cnum, N_SENT_TEL, arg); X244: return(NORM_RETURN); }