16 lines
641 B
Diff
16 lines
641 B
Diff
|
--- MigrationTools-46/migrate_services.pl.orig 2007-05-23 14:41:22.000000000 +0200
|
||
|
|
+++ MigrationTools-46/migrate_services.pl 2007-05-23 14:42:55.000000000 +0200
|
||
|
|
@@ -102,6 +102,12 @@
|
||
|
|
my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
|
||
|
|
my ($rawport, $proto) = split(m#[/,]#o, $portproto);
|
||
|
|
|
||
|
|
+ # do not generate ddp services - it's AppleTalk, not IP
|
||
|
|
+ if ($proto eq "ddp") {
|
||
|
|
+ print STDERR "Skipping non-IP service '$servicename $portproto'\n";
|
||
|
|
+ next;
|
||
|
|
+ }
|
||
|
|
+
|
||
|
|
# Find services specifying a port range (e.g. X11.)
|
||
|
|
my $loport = '';
|
||
|
|
my $hiport = '';
|