Added some stuff for T-Mail fileboxes
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
* Purpose ...............: mbtask - Scan mail outbound status
|
||||
*
|
||||
*****************************************************************************
|
||||
* Copyright (C) 1997-2003
|
||||
* Copyright (C) 1997-2004
|
||||
*
|
||||
* Michiel Broek FIDO: 2:280/2802
|
||||
* Beekmansbos 10
|
||||
@@ -178,6 +178,36 @@ char *callmode(int mode)
|
||||
|
||||
|
||||
|
||||
/*
|
||||
* Returns name of T-Mail filebox in Dos format (8+3).
|
||||
* I know, this code looks ungly, but it works. - MiCHA :-)
|
||||
*/
|
||||
const char* shortboxname(const faddr *fa) {
|
||||
static char dirname[12];
|
||||
unsigned z=fa->zone, n=fa->net, f=fa->node, p=fa->point;
|
||||
unsigned u,v;
|
||||
|
||||
u=z%32; z/=32; if (z>=32) return NULL;
|
||||
dirname[0]=z<10?z+'0':z-10+'a';
|
||||
dirname[1]=u<10?u+'0':u-10+'a';
|
||||
u=n%32; n/=32; v=n%32; n/=32; if (n>=32) return NULL;
|
||||
dirname[2]=n<10?n+'0':n-10+'a';
|
||||
dirname[3]=v<10?v+'0':v-10+'a';
|
||||
dirname[4]=u<10?u+'0':u-10+'a';
|
||||
u=f%32; f/=32; v=f%32; f/=32; if (f>=32) return NULL;
|
||||
dirname[5]=f<10?f+'0':f-10+'a';
|
||||
dirname[6]=v<10?v+'0':v-10+'a';
|
||||
dirname[7]=u<10?u+'0':u-10+'a';
|
||||
dirname[8]='.';
|
||||
u=p%32; p/=32; if (p>=32) return NULL;
|
||||
dirname[9]=p<10?p+'0':p-10+'a';
|
||||
dirname[10]=u<10?u+'0':u-10+'a';
|
||||
dirname[11]=0;
|
||||
return dirname;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*
|
||||
* Scan outbound, the call status is set in three counters: internet,
|
||||
* ISDN and POTS (analogue modems).
|
||||
|
Reference in New Issue
Block a user