FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.FIDONET.TODAY


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции RU.FIDONET.TODAY с датами от 09 Jul 13 15:35:00 до 17 Jun 24 04:17:08, всего сообщений: 45751

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 12549 из 45751 =============================== RU.FIDONET.TODAY =
От   : Alexey Fayans                    2:5030/1997        25 Jan 19 19:58:19
Кому : All                                                 25 Jan 19 19:58:19
Тема : logt
FGHI : area://RU.FIDONET.TODAY?msgid=2:5030/1997@fidonet+5c4b413a
На   : area://RU.FIDONET.TODAY?msgid=2:5064/54.2+5c4448e1
= Кодировка сообщения определена как: CP866 ==================================
==============================================================================
Hello All!

On Sun, 20 Jan 2019 at 13:06, Vitaliy Geydeko wrote to you:

VG> написал для вин консоли прибамбас
VG> короче пишешь в батнике
VG> logt Мой сервер взлетел! >>my.log
VG> и она добавляет в лог эту строчку с датой
VG> ftp://ftp.wit5064.mykeenetic.ru/fido/software/logt.zip

Я когда-то чуть более продвинутую штуку для этого делал.. :)

=== Start of addtime.pas ===
program AddTime;

{$MODE objfpc}

uses
SysUtils;

const
Format: AnsiString      = '"["ddd", "mmm" "dd" "tt"."zzz" "yyyy"]"';
S     : AnsiString      = '';
I     : Byte            = 1;
Flag  : Boolean         = True;
SMN   : TMonthNameArray = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
LMN   : TmonthNameArray = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December');
SWN   : TWeekNameArray  = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
LWN   : TWeekNameArray  = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');

var
Tmp: AnsiString;
FSet: TFormatSettings;

begin
while I <= ParamCount do
begin
    Tmp := ParamStr(I);

    if Flag and (Tmp = '--') then
      Flag := False
    else
    if Flag and (Tmp = '--format') then
    begin
      Inc(I);
      Format := ParamStr(I);
    end else
    if Flag and (Tmp = '--help') then
    begin
      Tmp := ParamStr(0);
      WriteLn('Prefix your message with current date and time.');
      WriteLn;
      WriteLn('Examples:');
      WriteLn(Tmp + ' your message');
      WriteLn(Tmp + ' --format "''[''dddddd'']''" your message');
      WriteLn(Tmp + ' --format "dd''.''mm''.''yyyy'' ''hh'':''mm'':''ss" your message');
      WriteLn(Tmp + ' -- your message');
      WriteLn;
      WriteLn('Date and time formatting characters:');
      WriteLn(' https://www.freepascal.org/docs-html/rtl/sysutils/formatchars.html');
      Halt(1);
    end else
      S := S + ' ' + Tmp;

    if Flag then
      Flag := False;

    Inc(I);
end;

FSet := DefaultFormatSettings;
with FSet do
begin
    ShortMonthNames := SMN;
    LongMonthNames := LMN;
    ShortDayNames := SWN;
    LongDayNames := LWN;
    LongDateFormat := 'ddd", "mmmm" "dd" "yyyy';
end;
WriteLn(FormatDateTime(Format, Now, FSet) + S);
end.
=== End of addtime.pas ===

... Music Station BBS | https://bbs.bsrealm.net | telnet://bbs.bsrealm.net
--- GoldED+/W32-MSVC 1.1.5-b20180707
* Origin: Music Station | https://ms.bsrealm.net (2:5030/1997)

К главной странице гейта