Re: [work] Re: Running Sylpheed-claws on win98.
Thorsten Maerz <[email protected]> Thu, 27 Feb 2003 02:14:10 +0100
| Newsgroups | gmane.mail.sylpheed.claws.windows |
|---|---|
| Message-ID | <[email protected]> |
Hi Steffen, Steffen Reinhardt <[email protected]> wrote: [...some earlier...] > >> on my system sylpheed is listening on 45 ports [...] These were old connections to pop3 servers, they are now closed and removed correctly. > try the port scanner [...] Too slow. Too expensive. See attachment :) Regards, -- Thorsten Maerz <[email protected]> Sylpheed-claws/Win32: http://claws-w32.sf.net
ports.pl
(text/plain, 549 B)
#!/usr/bin/perl
use strict;
DumpTasks();
#while (1) { DumpTasks(); print "-"x79 ."\n"; sleep(1); }
sub DumpTasks() {
my (@netstat, @tasks);
my %names;
open NETSTAT, 'netstat -ano -p tcp|' || die("cannot run netstat");;
@netstat=<NETSTAT>;
close NETSTAT;
open TASKLIST, 'tasklist|' || die("cannot run tasklist");
@tasks=<TASKLIST>;
close TASKLIST;
foreach (@tasks) {
if ($_ =~ m#^(\S+)\s+(\d+)\s\S#) {
$names{$2}=$1;
}
}
foreach (@netstat) {
if ($_ =~ m#\s+(\d+)\s*$#) {
chomp;
print "$_\t$names{\"$1\"}\n";
}
}
}
signature.asc
(application/pgp-signature, 194 B)
-----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1-nr1 (Windows XP) iD8DBQE+XWZicVjFyoO8k5MRAmDVAJ9OxK/oBcCl/Sy7RqXHPGna/MQrRgCggGVp cIZbeFL21eu/CjgJICkDtSA= =m9nL -----END PGP SIGNATURE-----