|
|
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);
}