Привет Roman!
18 Jan 05 22:41, Roman Belyaev wrote to All:
RB> А дайте фоpмат файла callers.bbs, плз. И какую-нить пpогу (.exe или
RB> .mex) для обpаботки/pедактиpования, если такие существуют.
=== Cut ===
//////////////////////////////////////////////////////////////////////////////
//
// File: callers.mex
//
// Desc: Lists previous callers
//
// Copyright 1995 by Lanius Corporation. All rights reserved.
//
// $Id: CALLERS.MEX 1.3 1995/07/30 15:13:09 sjd Exp $
//
//////////////////////////////////////////////////////////////////////////////
#include <max.mh>
void main()
{
char: nonstop;
long: calls, pos;
struct _callinfo: ci;
id.instant_video := 0;
if (call_open())
{
calls := call_numrecs();
reset_more(nonstop);
print(COL_WHITE "Name Node Calls Login Logout\n"
"───────────────────────── ──── ───── ──────────────────
──────────────────\n");
for (pos := calls - 1; pos >= 0 AND call_read(pos, ci) AND
do_more(nonstop,COL_CYAN); pos := pos - 1)
{
if (ci.flags & CALL_LOGON)
{
print(COL_LCYAN, strpad(ci.name,25,' '),
COL_LMAGENTA, strpadleft(itostr(ci.task),5,' '),
COL_LRED, strpadleft(itostr(ci.calls),6,' '), ' ',
COL_YELLOW, strpad(stamp_string(ci.login),19,' '),
COL_WHITE, strpad(stamp_string(ci.logoff),19,' '),
'\n');
}
}
call_close();
}
}
=== Cut ===
Пока Roman.
#/▄▄▄▄▄▄▄#/ icq: 707726 www.farpost.com/5045/58
_*▀▀▀▀▀▀▀*_ e-mail: ***@vtc.ru ua0lsz