1 --- MigrationTools-46/migrate_services.pl.orig 2007-05-23 14:41:22.000000000 +0200
2 +++ MigrationTools-46/migrate_services.pl 2007-05-23 14:42:55.000000000 +0200
4 my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
5 my ($rawport, $proto) = split(m#[/,]#o, $portproto);
7 + # do not generate ddp services - it's AppleTalk, not IP
8 + if ($proto eq "ddp") {
9 + print STDERR "Skipping non-IP service '$servicename $portproto'\n";
13 # Find services specifying a port range (e.g. X11.)