1 diff -ur MigrationTools-47/migrate_services.pl MigrationTools-47-noproto/migrate_services.pl
2 --- MigrationTools-47/migrate_services.pl 2007-11-06 00:44:31.000000000 +0100
3 +++ MigrationTools-47-noproto/migrate_services.pl 2007-11-06 00:43:54.000000000 +0100
5 my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
6 my ($rawport, $proto) = split(m#[/,]#o, $portproto);
8 + # skip services without protocols
9 + if (!defined($proto)) {
10 + print STDERR "Skipping no-protocol service '$servicename $portproto'\n";
14 # do not generate ddp services - it's AppleTalk, not IP
15 if ($proto eq "ddp") {
16 print STDERR "Skipping non-IP service '$servicename $portproto'\n";