Thread View: alt.pl.fan.gopher
12 messages
12 total messages
Started by Maestro / nET#47
Wed, 16 Oct 2002 19:34
Że potrzebuję mały skrypcik...
Author: Maestro / nET#47
Date: Wed, 16 Oct 2002 19:34
Date: Wed, 16 Oct 2002 19:34
153 lines
5590 bytes
5590 bytes
...który zmieniałby:
1. Cytowanie długie na krótkie ("> > > " na ">>> ").
2. Cytowanie GoSiAcZkA na zwykłe (":*" z prawej strony
linijki w poście na ">", ":*> :*" na ">>>" itd.)
3. Cytowanie ":" i "|" na ">" (i to, żeby można było wyłączyć
poprzez jakąś linijkę i włączyć inną linijką, np.:
**+
| : tu tekst i...
| tu jest jakiś tekst czyjś
tu ja odpowiadam
+--[ cytat ]---
| i dokładam cytat
+--[ /cytat ]---
| tu dalszy tekst
**-
...i żeby to zmienił na...
**+
>> tu tekst i...
> tu jest jakiś tekst czyjś
tu ja odpowiadam
+--[ cytat ]---
| i dokładam cytat
+--[ /cytat ]---
> tu dalszy tekst
**-
(of course tych krzyżyków nie ma obsługiwać, dałem je, żeby odróżnić
ładnie te linijki)
Zrobiłby to ktoś? (najbardziej mi zależy na jedynce i dwójce...)
Skrypt najlepiej, żeby działał w Sygnaturkowcu, czyli
można było go umieścić na końcu/początku/środku tego:
+--[ cytat src="script.pas" ]---
|// Skrypty pisane są w Pascalu z rozszerzeniami znanymi z Delphi. Dokładny opis
|// znajduje się w dokumentacji do biblioteki R&A.
|//
|// R&A Library: http://www.infa.ru/black/ralib.htm
|//
|// Sygnaturkowiec udostępnia dwa obiekty Headers i Body typu TStringList.
|// Pierwszy reprezentuje nagłówki a drugi ciało postu. Przy końcu skryptu należy
|// podstawić pod zmienną Result wartość True jeśli modyfikowaliśmy post lub
|// False w przeciwnym wypadku. Tekst jest zapisywany przy wyjściu z programu do
|// pliku "Script.pas" w katalogu Sygnaturkowca.
|
|// *****************************************************************************
|// Skrypt dodaje do postu licznik pokazujący ile już wysłaliśmy listów. Licznik
|// jest przechowywany w pliku "Counter.txt" w katalogu z Sygnaturkowcem.
|//
|// (c) Marcin Wieczorek
|// *****************************************************************************
|
|var F:TStringList; // plik z licznikiem
| Path:String; // ścieżka do pliku z licznikiem
| nowplaying:String; // najpierw plik, potem utwór
| np:String; // utwór po wyrównaniu do sygnaturki
| Counter:Integer; // licznik postów
| I:Integer; // pętla do wyrówywania do sygnaturki
| dlugosc:Integer; // długość stringu nowplaying
| docelowa_dlugosc:Integer; // docelowa długość stringu nowplaying
|begin
| // plik z licznikiem zapisujemy w tym samym katalogu co plik EXE Sygnaturkowca
| Path:=ExtractFilePath(Application.ExeName)+'Counter.txt';
|
| // wczytujemy plik do zmiennej F i do licznika
| F:=TStringList.Create;
| if FileExists(Path) then
| begin
| F.LoadFromFile(Path);
| if F.Count=0 then F.Add('0');
| Counter:=StrToInt(F[0]);
| end
| else
| begin
| Counter:=0;
| F.Add('0');
| end;
|
| // zwiększamy licznik
| Counter:=Counter+1;
|
| // zapisujemy zwiększony licznik z powrotem do pliku
| F[0]:=IntToStr(Counter);
| F.SaveToFile(Path);
| F.Free;
|
| // dodajemy do nagłówków odpowiedni wpis
| Headers.Add(Format('X-Counter: %d',[Counter]));
|
| // a tu przerabiamy wszystkie "> > >" na ">>>"
| // [tak w ogóle, to to trzeba dopiero napisać...]
|
| // i tu robimy nowplaying
| nowplaying:='C:\Program Files\Winamp\np.txt';
| docelowa_dlugosc:=40;
| if FileExists(nowplaying) then
| begin
| F:=TStringList.Create;
| F.LoadFromFile(nowplaying);
| nowplaying:=F[0]+'.'; // od teraz nowplaying zawiera nazwę utworu.
|
| dlugosc:=StrLen(nowplaying);
| if dlugosc>=docelowa_dlugosc then begin
| np:=(copy(nowplaying,0,docelowa_dlugosc-2)+'..');
| end
| else
| begin
| np:=nowplaying;
| for i:=1 to (docelowa_dlugosc-dlugosc) do
| begin
| np:=np+' ';
| end;
| end;
|
| // Body.Add(':.m:ae:st:ro: -[ Now playing: '+np+' ]-');
| Body.Add('|m|a|e|s|t|r|o| -[ Playing: '+np+' ]-');
| F.Free;
| end
| else
| begin
| Body.Add('|m|a|e|s|t|r|o|');
| // Body.Add(':.m:ae:st:ro:'); [stare]
| end;
|
| // informujemy Sygnaturkowca, że zawartość postu się zmieniła
| // bez tego post nie zostanie zapisany na dysku chyba, że sam Sygnaturkowiec
| // wprowadził do niego zmiany
| Result:=True;
|end;
+--[ /cytat ]---
--
|| | ||| | | || -[ pzdrwk! | gg385095 | mailto:maestro@megapolisQ.pl ]-
||_|_|||_|_|_|| -[ Odpisując mi na priv usuń "Q" z adresu emailowego ]-
|%|%|%|%|%|%|%| -[ 5ss (http://5ss.kdm.pl/) & s6 (http://s6.prv.pl/) ]-
|m|a|e|s|t|r|o|
Re: Że potrzebuję mały skrypcik...
Author: Puck
Date: Thu, 17 Oct 2002 15:45
Date: Thu, 17 Oct 2002 15:45
30 lines
2290 bytes
2290 bytes
Then You see, what cannot be - shadows move, where light should be.
Out of darknes, out of mind, cast down into the Halls of the Blind!
Well, in this case it's Maestro / nET#47:
> 1. Cytowanie długie na krótkie ("> > > " na ">>> ").
> 2. Cytowanie GoSiAcZkA na zwykłe (":*" z prawej strony
> linijki w poście na ">", ":*> :*" na ">>>" itd.)
Erm... ale to nie jest cytowanie GoSiAcZkA. Ona po prostu używa
cudzego patentu. A swoją drogą, to gdybym nie znał, to posądził-
bym o brak gustu patrząc na nicka.
> 3. Cytowanie ":" i "|" na ">" (i to, żeby można było wyłączyć
> poprzez jakąś linijkę i włączyć inną linijką, np.:
[trim]
Nie za duże wymagania? Ale da się zrobić... co wcale nei znaczy,
że będzie mi się chciało.
> Skrypt najlepiej, żeby działał w Sygnaturkowcu, czyli
> można było go umieścić na końcu/początku/środku tego:
Słuchaj, masz tam pascala, tak? To co za problem zrobić to
w czymkolwiek i po prostu uruchamiać jako zewnętrzną komendę?
--
.: Puck gg#937829 phn# +48505113296 mailto:puck@go2.pl :.
=: Magda, dlaczego ty to robisz? Co w tobie siedzi, :=
': że nie potrafisz się ugryźć w jezyk kiedy trzeba? :'
Re: Że potrzebuję mały skrypcik...
Author: Adam Wysocki
Date: Thu, 17 Oct 2002 22:39
Date: Thu, 17 Oct 2002 22:39
18 lines
2112 bytes
2112 bytes
16.10.02 Maestro / nET#47 wrote:
> Zrobiłby to ktoś? (najbardziej mi zależy na jedynce i dwójce...)
man sed, tam to jest ładnie opisane.
> Skrypt najlepiej, żeby działał w Sygnaturkowcu,
Eee, pod Windows?...
> |// (c) Marcin Wieczorek
Czemu kojarzę to nazwisko?
--
Pozdrowienia z Warszawy * Adam `gophi' Wysocki * gophi@studio.tpi.pl
EKG 413992 * Bofh 265791 * MSISDN 505439030 * CB #28 gophi / Centrum
=>> http://wysocki.lodz.pdi.net/~adam/prv/gfx/gophix.jpg <<=
Re: Że potrzebuję mały skrypcik...
Author: Maestro / nET#47
Date: Sat, 09 Nov 2002 08:41
Date: Sat, 09 Nov 2002 08:41
29 lines
2261 bytes
2261 bytes
Zakochane Służby Imperium wywiesiły na lodówce wiadomość, której treść została przycięta i przytoczona poniżej. >> Zrobiłby to ktoś? (najbardziej mi zależy na jedynce i dwójce...) > man sed, tam to jest ładnie opisane. Dobrze, że przypomniałeś - miałem serwerek włączyć. ... PNP Init Completed ... LILO 22.2 ... INIT: version 2.84 booting ... Configuring eth0: ... Starting OpenSSH SSH daemon ... Loading /usr/share/kbd/keymaps/i386/qwerty/pl.map.gz ... zrob login: ... man sed heh. Ładnie zakręcone te komendy. Może jednak nie ;) >> Skrypt najlepiej, żeby działał w Sygnaturkowcu, > Eee, pod Windows?... Bo pod linuxem to by była jedna/dwie linijki? >> |// (c) Marcin Wieczorek > Czemu kojarzę to nazwisko? Z jakiej grupy? pclp? -- || | ||| | | || -[ pzdrwk | gg:385095 | mailto:maestro@megapolisQ.pl ]- ||_|_|||_|_|_|| -[ Odpisując mi na priv usuń "Q" z adresu emailowego ]- |%|%|%|%|%|%|%| -[ 5ss (http://5ss.kdm.pl/) & s6 (http://s6.prv.pl/) ]- |m|a|e|s|t|r|o| -[ Playing: Trzecia Godzina Dnia - 05 - Nie szczyc.. ]-
Re: Że potrzebuję mały skrypcik...
Author: Adam Wysocki
Date: Sat, 09 Nov 2002 12:18
Date: Sat, 09 Nov 2002 12:18
20 lines
2447 bytes
2447 bytes
09.11.02 Maestro / nET#47 wrote: > Dobrze, że przypomniałeś - miałem serwerek włączyć. > .... PNP Init Completed ... LILO 22.2 ... Lilo bo nie widziałeś gruba ;P > zrob login: Kto?... Skąd taka nazwa hosta? > heh. Ładnie zakręcone te komendy. Może jednak nie ;) Zakręcone? Poczytaj man procmailsc, to dopiero jest zakręcone. -- Pozdrowienia z Warszawy * Adam `gophi' Wysocki * gophi@studio.tpi.pl EKG 413992 * Bofh 265791 * ICQ 173653642 * MSISDN 505439030 * CB #28 Jesteś Gophim :) Jedynym w swoim rodzaju, niepowtarzalnym (C) Moocha Suddenly the Dungeon collapses!! - You die... (C) screen 3.9.9 rh7.3
Re: Że potrzebuję mały skrypcik...
Author: Maestro / nET#47
Date: Thu, 14 Nov 2002 00:35
Date: Thu, 14 Nov 2002 00:35
32 lines
2533 bytes
2533 bytes
Zakochane Służby Imperium wywiesiły na lodówce wiadomość, której treść została przycięta i przytoczona poniżej. >> Dobrze, że przypomniałeś - miałem serwerek włączyć. >> .... PNP Init Completed ... LILO 22.2 ... > Lilo bo nie widziałeś gruba ;P Nie widziałem. Zresztą ten lilo tam nic nie robi. >> zrob login: > Kto?... Skąd taka nazwa hosta? Zrob. zrób.mi.dobrze.us ;-) Przecież mówiłem :P >> heh. Ładnie zakręcone te komendy. Może jednak nie ;) > Zakręcone? Poczytaj man procmailsc, to dopiero jest zakręcone. Wolę nie próbować. Wystarczy mi to, że chyba zamiast postawienia inn'a zrobię forward portu 119 na moją windę :> . Albo znajdę hamstera dla linuxa. Choć to też nie jest najlepsze - wtedy odpada sygnaturkowiec i now playing. No chyba, że: 1. mp3 będą puszczane z linuxa (nie, nie chcę tak) 2. sygnaturkowiec będzie edytował posty przez sambę (ciekawe, czy tak się da - czy wtedy będzie się dowiadywał, że powstał nowy plik w news.out). -- || | ||| | | || -[ pzdrwk | gg:385095 | mailto:maestro@megapolisQ.pl ]- ||_|_|||_|_|_|| -[ Odpisując mi na priv usuń "Q" z adresu emailowego ]- |%|%|%|%|%|%|%| -[ 5ss (http://5ss.kdm.pl/) & s6 (http://s6.prv.pl/) ]- |m|a|e|s|t|r|o|
Re: Że potrzebuję mały skrypcik...
Author: Adam Wysocki
Date: Thu, 14 Nov 2002 15:36
Date: Thu, 14 Nov 2002 15:36
41 lines
3209 bytes
3209 bytes
14.11.02 Maestro / nET#47 wrote: > >> Dobrze, że przypomniałeś - miałem serwerek włączyć. > >> .... PNP Init Completed ... LILO 22.2 ... > > Lilo bo nie widziałeś gruba ;P > Nie widziałem. Zresztą ten lilo tam nic nie robi. Ale grub jest ładny, niebieski... ;D > >> zrob login: > > Kto?... Skąd taka nazwa hosta? > Zrob. zrób.mi.dobrze.us ;-) > Przecież mówiłem :P LOL ;D > >> heh. Ładnie zakręcone te komendy. Może jednak nie ;) > > Zakręcone? Poczytaj man procmailsc, to dopiero jest zakręcone. > Wolę nie próbować. Wystarczy mi to, że chyba zamiast postawienia inn'a > zrobię forward portu 119 na moją windę :> . O kurwa... > Albo znajdę hamstera dla linuxa. inn ;) Albo leafnode. > 1. mp3 będą puszczane z linuxa (nie, nie chcę tak) > 2. sygnaturkowiec będzie edytował posty przez sambę (ciekawe, czy tak > się da - czy wtedy będzie się dowiadywał, że powstał nowy plik w > news.out). Ale kombinujesz... Jeśli napiszesz odpowiedni frontend do Samba Suite to oczywiście, da się. Ale po co komplikować sobie życie, skoro można to puścić po jakimś nieużywanym porcie? -- Pozdrowienia z Warszawy * Adam `gophi' Wysocki * gophi@studio.tpi.pl EKG 413992 * Bofh 265791 * ICQ 173653642 * MSISDN 505439030 * CB #33 Jesteś Gophim :) Jedynym w swoim rodzaju, niepowtarzalnym (C) Moocha Suddenly the Dungeon collapses!! - You die... (C) screen 3.9.9 rh7.3
Re: Że potrzebuję mały skrypcik...
Author: Ucho
Date: Thu, 14 Nov 2002 19:04
Date: Thu, 14 Nov 2002 19:04
12 lines
1551 bytes
1551 bytes
Maestro / nET#47 wrote: > 1. mp3 będą puszczane z linuxa (nie, nie chcę tak) BTW co zrobić by mpg123 szukał mp3 zagłebiając się w kolejne katalogi a nie poprzestając tylko na jednym, ewentualnie jak wylistowac wszystkie pliki z danego katalogu ( i podkatalogów) z pełnymi scieżkami do jakiegoś pliku -- "Jezu, co to było do diabła?" komandor Scott Waddle ..::|| Mozilla rox ||::..
Re: Że potrzebuję mały skrypcik...
Author: Adam Wysocki
Date: Thu, 14 Nov 2002 20:37
Date: Thu, 14 Nov 2002 20:37
20 lines
2307 bytes
2307 bytes
14.11.02 Ucho wrote: > BTW co zrobić by mpg123 szukał mp3 zagłebiając się w kolejne katalogi > a nie poprzestając tylko na jednym, mpg123 -z empecze/*/* - zajmie się tym powłoka użytkownika. > ewentualnie jak wylistowac wszystkie pliki z danego > katalogu ( i podkatalogów) z pełnymi scieżkami do > jakiegoś pliku Skutecznie ;-) man ls -- Pozdrowienia z Warszawy * Adam `gophi' Wysocki * gophi@studio.tpi.pl EKG 413992 * Bofh 265791 * ICQ 173653642 * MSISDN 505439030 * CB #33 Jesteś Gophim :) Jedynym w swoim rodzaju, niepowtarzalnym (C) Moocha Suddenly the Dungeon collapses!! - You die... (C) screen 3.9.9 rh7.3
Re: Że potrzebuję mały skrypcik...
Author: Ucho
Date: Sat, 16 Nov 2002 20:13
Date: Sat, 16 Nov 2002 20:13
9 lines
1336 bytes
1336 bytes
Adam Wysocki wrote: > man ls Nie no, many to ja muszę jeszcze dociągnąc :) -- "Kosciół jest po to, żeby staruszki siedziały w ławeczkach i spiewały piosenki" Radek Rzępołuch ..::|| Zostawcie pine masochistom!: ||::..
Re: Że potrzebuję mały skrypcik...
Author: Adam Wysocki
Date: Sun, 17 Nov 2002 19:43
Date: Sun, 17 Nov 2002 19:43
12 lines
2036 bytes
2036 bytes
16.11.02 Ucho wrote: > > man ls > Nie no, many to ja muszę jeszcze dociągnąc :) man wget -- Pozdrowienia z Warszawy * Adam `gophi' Wysocki * gophi@studio.tpi.pl EKG 413992 * Bofh 265791 * ICQ 173653642 * MSISDN 505439030 * CB #33 Jesteś Gophim :) Jedynym w swoim rodzaju, niepowtarzalnym (C) Moocha Suddenly the Dungeon collapses!! - You die... (C) screen 3.9.9 rh7.3
Re: Że potrzebuję mały skrypcik...
Author: Ucho
Date: Mon, 18 Nov 2002 18:18
Date: Mon, 18 Nov 2002 18:18
18 lines
1588 bytes
1588 bytes
Adam Wysocki wrote: >>Nie no, many to ja muszę jeszcze dociągnąc :) > man wget No to może mały konkurs- tylko 2 pytania, zupełnie ze sobą nie związane 1. Jak się nazywa jedyny modem wewnętrzny Zoltrixa który nie działa pod Linuxem? 2. Ile mb na dysku zajmuje vmware A teraz odpowiedzi 1. Nie wiem ale siedzi to w moim kompie 2. Za dużo :) -- Jan J. Ruthe: (na lizie do newsów jest tylko pine [i telnet ;> ]) hash: to jest jakas różnica? ..::|| slrn sux ||::..
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads