Re: [fpc-pascal]CGI and inet Units
On Wed, 16 Sep 2003, Bob Richards wrote: > On Tue, 2003-09-16 at 15:47, [EMAIL PROTECTED] wrote: > > On 16 Sep 2003, Bob Richards wrote: > > > The uncgi and inet units are distributed with FPC. > > > > Surprised you don't find any links, becayse the following definitely work: > > http://www.freepascal.org/packages/inet.html > > http://www.freepascal.org/packages/uncgi.html > > Silly me, was looking in units >> contribs > > here are the units included with my dist (RPM for redhat 9): > > bfdgconf ibase libc odbc regexpr unzipzvt > cdrom gdbint imlib libgdopenglrtl utmp > cmem gdbminetlibpng oraclesqlite x11 > fclggi lexlib.omysqlpaszlib svgalib yacclib.o > forms gnome lexlib.ppu ncurses postgres syslog yacclib.ppu > fpgtk gtk libasyncnetdbpthreads tcl zlib > > INET yes, uncgi no. but there is a ggi! I am wget'ing the entire > html-doc tree, so as to have an uptodate set of docs ggi has nothing to do with CGI. I think you'll need the sources and compile uncgi yourself. Michael. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal]INET-Unit: Testing existence of a domain?
Hi!
I want to test inside my program if a domain does exist. I am not interested
in the particular domain entries, only in its existence.
For that I tried the following, but it returns always false:
---
function TestDomain: boolean;
var
s: shortstring;
sd : PChar;
pn : pNetEnt;
begin
TestDomain:=false;
DomainFound:=false;
if pos('@',MailFrom)=0 then exit;// There cannot be any domain
s:=Trim(MailFrom); delete(s,1,pos('@',MailFrom));
if s='' then exit; // There's still no domain
s:=s+#0; sd:[EMAIL PROTECTED]; // convert to pChar
pn:=GetNetByName(sd);// Lookup
if pn<>nil then // if not nil, there was an answer.
begin
TestDomain:=True;
DomainFound:=true;
end;
end;
---
What am I doing wrong?
mfg
Ing. Rainer Hantsch
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]INET-Unit: Testing existence of a domain?
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Am Mittwoch, 17. September 2003 11:54 schrieb Rainer Hantsch: Hi Rainer, > I want to test inside my program if a domain does exist. I am not > interested in the particular domain entries, only in its existence. > For that I tried the following, but it returns always false: Maybe I have a solution for you. Just check for an NS-Entry for the domain. This way you know if the domains exists or not. How I would do it? I sended a resolv-unit to the units-list. I would then double the function Sys2_GetMXAddr (tz:ShortString):ShortString; to make a getnsaddr and you have a result. Are you trying to program a spam-blocker or something like that? If yes, I would be interested in helping. Michael. - -- SysQuadrat Michael Weinert Stuttgart Filderstadt-Plattenhardt Tel.: 0711-9970288 Fax: 5360559 Mobil: 0170-4141273 http://www.linux-firewall.de [EMAIL PROTECTED] KeyServer hkp://pgp.mit.edu -BEGIN PGP SIGNATURE- Version: GnuPG v1.2.3 (GNU/Linux) iQGlAwUBP2g8t6vpi4/XslceAQKcqwx+Leknc0FjwqcaOCtqvrTcXb1LJFHAz0r/ NtqENP8fnLkdSAF/pqLsfPKoA1yHR3phfZrwSmkqcBg2qZQDI8iS0nVx4crecAzF LjZpRDOKtDuJtT91KQaCBEqUbGNkBU5ucRD7FaJD9KHiCVK7oaqdZ0wsQJ+xFxBJ QBBKhiShK45Nh7JBGIgZKYOLY1nPLGRkXBE7VkCyCb6F2HGckdeDY5u4aJb35Q9J 7KLphq/hb/jlzAK8/Zt+2o7GnsaZOlU9/yHNLoASfg8gozbiOvuEt2YZ0sb8sFaa IO1l4LNJObPyubpsqQT8Y/o7m/j43WhI3uPR1HxzWaob94hod0/kKm4L9cVe4zgZ B4Y7azrgQs/w/7CL+WqdDcctybJ67Ai8wzC7+9MpbTUoDZ6ZYe0SFDc3hh0ImLKO 537R+Nrs9AS6hPGhWaheeOTf6sJBUQJ66Whxt1rE6Nk7rlCvF/uD9uSKtfBCgKX5 vmn8T14pRxpouOrJ5uNhDqiIzaxpVyRIyk8gmj7/a7AAsIptmBHMkQ== =jo0n -END PGP SIGNATURE- ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]INET-Unit: Testing existence of a domain?
Hi, Michael! On Wed, 17 Sep 2003, Michael Weinert wrote: | Am Mittwoch, 17. September 2003 11:54 schrieb Rainer Hantsch: | Hi Rainer, | > I want to test inside my program if a domain does exist. I am not | > interested in the particular domain entries, only in its existence. | > For that I tried the following, but it returns always false: | Maybe I have a solution for you. | Just check for an NS-Entry for the domain. This way you know if | the domains exists or not. | How I would do it? | I sended a resolv-unit to the units-list. I would then double the | function Sys2_GetMXAddr (tz:ShortString):ShortString; | to make a getnsaddr and you have a result. Please, leave me copy of it by direct mail. This is quicker. I must leave my office now for a while urgently, but when I am back, I will proceed. | Are you trying to program a spam-blocker or something like that? | If yes, I would be interested in helping. Yes, exactly! :-) Let's see! I am in the very early steps of my development, there is also a lot unclear, but I also know that I will not use assasin (or how this monster is named). mfg Ing. Rainer Hantsch -- .-. | \\|// Ing. Rainer HANTSCH - Hardware + Software | | (o o) Forget Windoze! -- We focus on L-I-N-U-X... | |--oOOo-(_)-oOOo--| | Ing. Rainer HANTSCH | mail: [EMAIL PROTECTED] | | Khunngasse 21/20| www: http://www.hantsch.co.at | | A-1030 Vienna | tel: +43-1-79885380fax: +43-1-798853818 | | ** A u s t r i a ** | handy: +43-664-9194382 UID-Nr: ATU 11134002 | '-' ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]INET-Unit: Testing existence of a domain?
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Am Mittwoch, 17. September 2003 13:10 schrieb Rainer Hantsch: Hallo Rainer, oder besser Herr Hantsch, > Please, leave me copy of it by direct mail. This is quicker. > I must leave my office now for a while urgently, but when I am back, I will > proceed. Ich bin im Augenblick dran dies zu implementieren. Ist schon eine Weile her, daß ich an meiner resolv geschraubt habe. Ich schicke dennoch mal die mit MX-Only an Sie/Dich. > | Are you trying to program a spam-blocker or something like that? > | If yes, I would be interested in helping. > Yes, exactly! :-) > Let's see! I am in the very early steps of my development, there is also a > lot unclear, but I also know that I will not use assasin (or how this > monster is named). Sehr gut. Das hatte ich auch schon vor, und auch schon mal begonnen. Leider hat dies noch nicht so recht funktioniert. Folgendes war geplant: Empfang auf Port 25 und gleichzeitig öffnen des Mailservers auf Port X. Sobald ein Hit stattfindet auflegen beider Verbindungen, bzw. Fehlermeldung 5/4XX an den Client. Gruß Michael. - -- SysQuadrat Michael Weinert Stuttgart Filderstadt-Plattenhardt Tel.: 0711-9970288 Fax: 5360559 Mobil: 0170-4141273 http://www.linux-firewall.de [EMAIL PROTECTED] KeyServer hkp://pgp.mit.edu -BEGIN PGP SIGNATURE- Version: GnuPG v1.2.3 (GNU/Linux) iQGlAwUBP2hFX6vpi4/XslceAQItHgyAss3OG7TUlHEzkA6iK8QCdMuBPZfWLmrj FPZgz7TZx5oDxDp5B6sgxGp9rMb7r+Gw0+/gQAKZRJDKNtv2bXLIrRyqDpSXQmQ8 qxlQrwtnwkoiQb6TEV3HuUlPH+8K5Ac5sPxwdOj3hTZbwoBbEy5Led/iiLhXqtf9 J4QncEbHaiS6v36NZQ2BbaSrgwl6vpOP817aTUFhyvMLO2dwN91jjKdLANIGxOnW cEsrOT6j5H1IhAFYPeVTOCY6kLa3+9ao2hNd3YhmjxvEijy5ag2v46mYKjfjvCaL TjRCJi9P84Vhpnv3y7NZPKDsXqlcMCoHBIRrncPsLcufWUT0H5Itgjw2OlfLx22r T0nSd1qFztV7JDztKWgsJDugEpcCyAcg0ppYfDDfcAPkHMMmD01zQdaZk1EzNXMN XJtC3x0dDnotA02niunNou28ag1lF8cu2EQCadQ6IrdW5LNHPe15UUPfFBIzbBwW 7apVAfiCs4wiATMl8RFpMZyDvZmbuEOhmsukWT1fLiPMynjNeU02Nw== =X0oX -END PGP SIGNATURE- resolv.zip Description: Zip archive
Re: [fpc-pascal]INET-Unit: Testing existence of a domain?
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Am Mittwoch, 17. September 2003 13:10 schrieb Rainer Hantsch: Sorry, I put in a mail in german, didn't check the receipient. So everybody got the resolv-unit ;-) Michael. - -- SysQuadrat Michael Weinert Stuttgart Filderstadt-Plattenhardt Tel.: 0711-9970288 Fax: 5360559 Mobil: 0170-4141273 http://www.linux-firewall.de [EMAIL PROTECTED] KeyServer hkp://pgp.mit.edu -BEGIN PGP SIGNATURE- Version: GnuPG v1.2.3 (GNU/Linux) iQGlAwUBP2hFoqvpi4/XslceAQK1gQyAsz70r1zCJf+HQ1VV4QI8Jh+rWuaJ994t ZFNGrlDkOVoVfJP4LNG5NilkGLComoyT4WwUOxZTOXTHZ3t/e5+fSjV5q7Klx1Rx qEHM1kK1Y4ySSU5VZYAa1wzQ4+bJ+BwY4o+LJ67J2XmgmLE12MVkSyMVs8d0ia/S zquPxvo2KLgVvLnR0Co/+IRk89GR38BLuu/4kFsOjLBNTJS98AUs3yYGBB7WDyX5 vQBr5FCodmOyBdTx2endP62OCwGae01RsJWMStrY0QGyWH75dJmRqRd114OHnXMm 7iZJKGhKpvz8v8WP9aqpozgYPOjSopH+DXFdQbEb6Ot/ziCzCZS8+4hN0yCc2wts NIj8BS7uIjpbjmA/b84DKipA+VovEcEOcPZ7tsBtlTVWXxXvjVnlhSaQk700LKPV X3NufL8xfqKAy400e6+QOvdtt2SgjAPjM6mKJT46iOh+AdOGfQx2X8tzjyavTkvV PGZW0qLBpwDcXqFIxkYPd2yyaZyxixa1zHzvHl2Tly6vFu5GUh2Vug== =svTC -END PGP SIGNATURE- ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Nonblocking socket - end of socket
Georgi Georgiev schrieb:
I think that if the socket (or file) is in nonblocking
mode,
count may be -1, and LinuxError=11 { Err_TryAgain }
means that connection is OK, but there is no incoming
data
(input is not finished).
okay that's right; I assumed that reading or writing is only done after
select() indicates that data can be read or written.
- Sebastian
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal]XP=extreme pain in the butt
Is there a win32 binary install kit for Lazarus? I see hints that Lazarus runs on Win32 but the download folders for Win32 are empty. (Apologies if I'm not supposed to ask about Lazarus here...) So I fetched the latest FPC win32 full install ZIP from the US mirror but when I clicked on the install, I saw a screen that was basically blank (blue background, some top bar and bottom bar text, but nothing inside). Then it disappeared. Each subsequent double-click just disappeared very quickly. I don't see anything like install.exe running in the taskmanager. Any ideas? FPC installed fine on windows 98... I have a cheap eMachines XP 2400+ (i.e., 2GHz) Athalon XP machine (you know, the one that runs slow as a dog...) Thanks! -Alan __ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
