]>
Commit | Line | Data |
---|---|---|
36cfeb9d JR |
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 = ''; |