MigrationTools-noddp.patch

   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
   3 @@ -102,6 +102,12 @@
   4                 my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
   5                 my ($rawport, $proto) = split(m#[/,]#o, $portproto);
   6
   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";
  10 +                    next;
  11 +                }
  12 +
  13                 # Find services specifying a port range (e.g. X11.)
  14                 my $loport = '';
  15                 my $hiport = '';