Re: [tyndur-devel] kirc: Input-Parsing

[Kevin Wolf <kevin@xxxxxxxxxx>]

On Thu, Dec 10, 2009 at 07:52:28AM +0100, Alexander H. Kluth wrote:
> + kirc.pas: Befehle werden nun geparsed
> + kirc.pas: Kürzel wie /cs oder /voice implementiert
> + kirc.pas: Direkte Befehle können nur noch via /irc geschickt werden
> ! kirc.pas: Server auf irc.euirc.net geändert
> + kirc.pas: Channel-Frage hinzugefügt (#lost als Standardchannel)
> + kirc.pas: Bei Ende des MOTD wird der gewollte Channel gejoint
> 
> Signed-off-by: Alexander H. Kluth <hartmut@xxxxxxxxxx>

Der Patch ist nicht anwendbar. Hab ich lokal gefixt.
Er enthält einen Haufen Tabs statt Leerzeichen. Hab ich auch gefixt.
Kompilierbar ist er leider auch nicht. Ebenfalls gefixt.

Anschließend war kirc total kaputt. Ich glaube, der Patch braucht
nochmal eine neue Version.


> ---
>  src/modules/pas/kirc/kirc.pas |   65
> +++++++++++++++++++++++++++++++++++++----
>  1 files changed, 59 insertions(+), 6 deletions(-)
> 
> diff --git a/src/modules/pas/kirc/kirc.pas b/src/modules/pas/kirc/kirc.pas
> index 7b6ad9b..a44a228 100644
> --- a/src/modules/pas/kirc/kirc.pas
> +++ b/src/modules/pas/kirc/kirc.pas
> @@ -74,6 +74,12 @@ begin
>          ReadLn(nick);
>      until NickIsValid(nick);
> 
> +	Write('Channel :');

Konsistent wäre hier 'Channel [#lost]:'

> +	ReadLn(channel);
> +	if channel = '' then begin
> +		channel := '#lost';
> +	end;
> +
>      conn := FileOpen('tcpip:/'+server+':'+port, fmOpenReadWrite);
> 
>      if conn = -1 then begin
> @@ -213,6 +219,11 @@ begin
>                  + msg, 7);
>          end;
>      end
> +
> +	// 376 leutet das Ende des MOTD ein
> +	else if command = '376' then begin
> +		WriteConn(conn, 'JOIN ' + channel);
> +	end

In meinem Test ist er nie auf die Idee gekommen, auch wirklich zu joinen

>      else if command = 'ERROR' then begin
>          theIRCWindow.Incoming(line, 12);
>      end
> @@ -238,12 +249,56 @@ begin
>              theIRCWindow.Incoming('Ungueltiger Befehl: ' + line, 12);
>          end;
>      end else begin
> -        if line[1] = '/' then begin
> -            WriteConn(conn, Copy(line, 2, length(line)) + #10);
> +        // Wir brauchen so etwas wie TStringList in der RTL
> +        // Höhö, das kennen wir doch aus kedit: Wir prüfen
> +        // per LeftStr, ob es ein (uns bekanntest) Kommando ist
> +        if LeftStr(line, 3) = '/ns' then begin
> +            command := 'PRIVMSG NickServ :' + Copy(line, 5, length(line))

command ist nicht deklariert

> +                + #10;
> +        end else if LeftStr(line, 3) = '/cs' then begin
> +            command := 'PRIVMSG ChanServ :' + Copy(line, 5, length(line)) +
> +                #10;
> +        end else if LeftStr(line, 6) = '/voice' then begin
> +            // mit Copy(line, 7...) spare ich mir ein zusätzliches + " " +
> +            command := 'MODE ' + channel + ' +v ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 8) = '/devoice' then begin
> +            command := 'MODE ' + channel + ' -v ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 3) = '/op' then begin
> +            command := 'MODE ' + channel + ' +o ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 5) = '/deop' then begin
> +            command := 'MODE ' + channel + ' -o ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 6) = '/admin' then begin
> +            command := 'MODE ' + channel + ' +a ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 8) = '/deadmin' then begin
> +            command := 'MODE ' + channel + ' -a ' + Copy(line, 8,
> +                length(line)) + #10;
> +        end else if LeftStr(line, 5) = '/kick' then begin
> +            space := Pos(' ', Copy(line, 7, length(line)));
> +
> +            command := 'KICK ' + channel + ' ' + Copy(line, 7, space-1) +
> +                ' :' + Copy(line, space+1, length(line)) + #10;
> +        end else if LeftStr(line, 4) = '/ban' then begin
> +            command := 'MODE ' + channel + ' +b ' + Copy(line, 6,
> +                length(line)) + '!*@*' + #10;
> +        end else if LeftStr(line, 6) = '/unban' then begin
> +            command := 'MODE ' + channel + ' -b ' + Copy(line, 8,
> +                length(line)) + '!*@*' + #10;
> +        end else if LeftStr(line, 6) = '/42' then begin
> +            theIRCWindow.title := 'The Answer to Life, the
> Universe, and Everything is ... 42';
> +		end else if LeftStr(line, 4) = '/irc' then begin
> +			command := Copy(line, 6, length(line));
>          end else begin
> -            theIRCWindow.Incoming('<' + nick + '> ' + line+#10, 7);
> -            WriteConn(conn, 'PRIVMSG '+channel+' :'+line+#10);
> +			space := Pos(' ', line);
> +
> +            theIRCWindow.Incoming('Unbekannter Befehl ' +
> Copy(line, 0, space), 12);
>          end;

Öhm, das macht nicht nur "/foo" zu einem Fehler, sondern auch "Moin",
oder übersehe ich was? Das Copy geht außerdem schief, wenn der Befehl
keinen Parameter hat, weil space dann 0 ist.

Hast du den Patch selber überhaupt getestet?