Picketing with packets enhanced version

Hi, 

picket.pl did not work very good for me, so I changed
it a bit.


begin 600 picket.tar.gz
M'XL(",.U_3,  W!I8VME="YT87( [59M;]- #.[7Y%=X71&I*.GE^C;1#6V:
M"DP(AM:Q+PQ567JA$<V+DNN@VOK?L>\N:YG8^$(WB=4?$E_/?A[;9_>21<%W
M(=UL6EF?,(^Q'F,5QAE)13T]KM^,\3;IW5:OU^)=7.'O7JO=ZU38&F.ZD5DA
M_1PI,U_F6(L[[= L#._!4:FT69G4OP]T/;*]U9P5>7.:!OZT>1$ES4SD4WA9
MV+932V9Q VJQ_Q.?Q52(K Y[L']P\O:L;T<A.%MC$4:)&"O+>AVN@!2T\?JP
ML+9!YG.0*:292,"#(J5.@S0!X0<3*$1^&07B%A"2:2!4"(@Q#34K!,A)5$#L
M)W,(HZF L2B"/,IDFA>W0'2L"D:I"-0U.+G(A"_!#Z7(-:",8@%1@O$$:3+&
MO(EJJ&+MV[4L3S&#/?@FI%(OYHD?"P>J,LBJ4$>+()TE$BT8ZI<J=YL2=F X
M.#D[.AP,&U UN1;H =?7,(X((?"3YU(7I]P_3Q3FOEDCVFZ)\AKZ=C!-"[$$
M)E/#]>YX>$I$D[20=[*HS9)"+8A N:Z@J[6"_C&A,CMX='7[R@:4,,W5V3E@
M_+'&MF59P22-,X1 M48;B%L;J>6*1YF4\5EULFK+C)4CD:WX>JZK.JMTM0HY
M"T,'%!DU9PFMT2QJ!\#3T/8*S,KR",^I&HZ_Z"/[BEQXXHD(I %Z=?YYB81U
M,F +$\["5@O2]5/UEE/V&'(O;+N878 *SE0LGO\A2IJB41^6!C0::)"E.=E%
MF3\>YZC0BW#)3MF@8W5X?/A>9U U.V4'.D9[ 5X=GJD1TA;F9#6$P=.NQ*B[
MFX(KF[N,M+%L<Y6O&HJ;<#^]&1U]')PV@"(:#4]/!@<?* DU,=0_BD$G@QPX
MFG+DRS0Q!;E)S.P3**FCB"Q^*T5INCPN4[!R<V%O[]TK.[OW[]LHC_U/_#BB
MYGC-''3_=^^^_QGKM,W][_5:K2[=_[S7\3;W_P,(9UUWI^-RYGJ,VYRU7:_5
M<SEON9V5%7=YN_U$)^3_EO+38YT<?YU_UBGGG_,>U]__G&_F_P&DB&6V&>R-
0;&0C&WEZ\@N,)SMJ !0  /+3
 
end


-- 
| Patrick Oonk -    http://patrick.mypage.org/  - patrick@pine.nl |
| PGP Key ID 0xDA2E93FA   -   Internic PO59   -   <clicketyclick> |
| Pine Internet B.V.           Consultancy, installatie en beheer |
| Tel: +31-70-3111010 - Fax: +31-70-3111011 - http://www.pine.nl/ |

So, what do you changes do?

=====================================Kaos=Keraunos=Kybernetos==============
.+.^.+.|  Ray Arachelian    |Prying open my 3rd eye.  So good to see |./|\.
..\|/..|sunder@sundernet.com|you once again. I thought you were      |/\|/\
<--*-->| ------------------ |hiding, and you thought that I had run  |\/|\/
../|\..| "A toast to Odin,  |away chasing the tail of dogma. I opened|.\|/.
.+.v.+.|God of screwdrivers"|my eye and there we were....            |.....
======================= http://www.sundernet.com ==========================

> 
> So, what do you changes do?

Well, the program didn't work at all (at least here, 
Sun Solaris 2.5.1 Sparc, Perl 5.003) and now
it does. Before it only connected to one of the numbers
in the hosts file, now it does to all of them.

One problem left is that it only works with ip-numbers,
as it does not resolve them. I might fix this too.

	Patrick

-- 
| Patrick Oonk -    http://patrick.mypage.org/  - patrick@pine.nl |
| PGP Key ID 0xDA2E93FA   -   Internic PO59   -   <clicketyclick> |
| Pine Internet B.V.           Consultancy, installatie en beheer |
| Tel: +31-70-3111010 - Fax: +31-70-3111011 - http://www.pine.nl/ |

Patrick Oonk writes:

> Well, the program didn't work at all (at least here, 
> Sun Solaris 2.5.1 Sparc, Perl 5.003) and now
> it does. Before it only connected to one of the numbers
> in the hosts file, now it does to all of them.

I gave the original program a quick try.  I looked at /proc
and saw the correct number of file descriptors, but a 
netstat|grep on my userid did not show any actual connections. 

I put it aside and was going to step through it with the
debugger when I got a free moment, and report back when
I had figured out what the problem was. 

--
     Mike Duvos         $    PGP 2.6 Public Key available     $
     enoch@zipcon.com   $    via Finger                       $
         {Free Cypherpunk Political Prisoner Jim Bell}

> 
> 
> Patrick Oonk writes:
> 
> > Well, the program didn't work at all (at least here, 
> > Sun Solaris 2.5.1 Sparc, Perl 5.003) and now
> > it does. Before it only connected to one of the numbers
> > in the hosts file, now it does to all of them.
> 
> I gave the original program a quick try.  I looked at /proc
> and saw the correct number of file descriptors, but a 
> netstat|grep on my userid did not show any actual connections. 
> 
> I put it aside and was going to step through it with the
> debugger when I got a free moment, and report back when
> I had figured out what the problem was. 

There were several problems. One of it still remains, 
it does not resolve FDQN's, so you have to use IP-numbers in
the hosts file.

-- 
| Patrick Oonk -    http://patrick.mypage.org/  - patrick@pine.nl |
| PGP Key ID 0xDA2E93FA   -   Internic PO59   -   <clicketyclick> |
| Pine Internet B.V.           Consultancy, installatie en beheer |
| Tel: +31-70-3111010 - Fax: +31-70-3111011 - http://www.pine.nl/ |

On Fri, 22 Aug 1997, Patrick Oonk wrote:

> There were several problems. One of it still remains, 
> it does not resolve FDQN's, so you have to use IP-numbers in
> the hosts file.

Suggested mod:

---snip---
# diff -e picket.orig.pl picket.pl
55,57d
50c
     if ($host =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
       $ipaddr = inet_aton( $host ) ||
         die "inet_aton: invalid IP address $host";
       }
     else {
       $ipaddr = (gethostbyname($host))[4] ||
         die "gethostbyname: hostname $host not found";
       }