From owner-freebsd-questions Thu Jan 27 20:46:56 2000 Delivered-To: freebsd-questions@freebsd.org Received: from sasknow.com (h139-142-245-96.ss.fiberone.net [139.142.245.96]) by hub.freebsd.org (Postfix) with ESMTP id D44C315A0C for ; Thu, 27 Jan 2000 20:46:49 -0800 (PST) (envelope-from freebsd@sasknow.com) Received: from localhost (freebsd@localhost) by sasknow.com (8.9.3/8.9.3) with ESMTP id WAA56942; Thu, 27 Jan 2000 22:47:23 -0600 (CST) (envelope-from freebsd@sasknow.com) Date: Thu, 27 Jan 2000 22:47:23 -0600 (CST) From: Ryan Thompson To: Colin Campbell Cc: freebsd-questions@freebsd.org Subject: Re: FTP: 425 Can't build data connection: operation timed out In-Reply-To: Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: owner-freebsd-questions@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.ORG On Fri, 28 Jan 2000, Colin Campbell wrote: > Hi, > > I wrote this litle piece of goods cos I like "snoop". See if this tells > you anything useful. I have to ask this, but are you sure nothing has > changed in the ipfw setup? Nope... Haven't rebooted in about a month (did some wiring in the office), and, aside from the playing around I did with the routing tables today after I discovered it broken, nothing has changed that I'm aware of. This machine, in its current state, has previously logged many months of uptime, without ever experiencing problems like this. I may have to give it the old fastboot treatment after all... Hopefully my NIC isn't on the way out, either :-) That's an interesting script, to say the least. However, it produces *WAY* too much output on a busy server... Even if I pipe to a file, it has trouble keeping up. I'll see if I can modify it to look for particulars :-) > --------------------- cut here ------------------------------------------- > #! /usr/bin/perl > # $Id: tcplook.pl,v 1.2 1999/10/20 06:26:09 root Exp $ > # > use strict; > > open (TCPDUMP, "tcpdump -x -s 1500 -l @ARGV |") or die "$!"; > > my $word; > my $char; > my $count = 0; > while () { > /^[0-9]/ and do {print "\n", $_; $count = 0; next}; > /^\s+/ and do { > s/\s*//; > chomp; > printf "%8d: %-40s ", $count, $_; > for $word (split / /) { > for $char (split(//, pack("H4", $word))) { > if ((ord($char) < 32) or > (ord($char) > 126)) { > print "."; > } > else { > print $char; > } > } > } > print "\n"; > }; > $count += 16; > } > --------------------- cut here ------------------------------------------- > > Just run it like you would run tcpdump. > > Colin > -- Ryan Thompson 50% Owner, Sysadmin SaskNow Technologies http://www.sasknow.com #106-380 3120 8th St E Saskatoon, SK S7H 0W2 To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-questions" in the body of the message