From 4922b641a802704ec886537ad03a8c6cc3b1f617 Mon Sep 17 00:00:00 2001 From: Michael Haro Date: Sat, 22 Jan 2000 22:06:04 +0000 Subject: add support for @owner and @group in PLIST --- devel/portlint/src/portlint.pl | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'devel') diff --git a/devel/portlint/src/portlint.pl b/devel/portlint/src/portlint.pl index d575e78944a0..c86ef300fe56 100644 --- a/devel/portlint/src/portlint.pl +++ b/devel/portlint/src/portlint.pl @@ -280,6 +280,18 @@ sub checkplist { } } elsif ($_ =~ /^\@(comment)/) { $rcsidseen++ if (/\$$rcsidstr[:\$]/); + } elsif ($_ =~ /^\@(owner|group)\s+$/) { + &perror("WARN: $_ missing name in PLIST"); + } elsif ($_ =~ /^\@(owner)(\s+)(.*)/) { + $space = $2; + $user = $3; + &perror("WARN: multiple spaces found in \"$_\"") if ($space =~ /\s\s+/); + &perror("WARN: \"$user\" unknown user in PLIST") if (getpwnam($user) eq ""); + } elsif ($_ =~ /^\@(group)(\s+)(.*)/) { + $space = $2; + $group = $3; + &perror("WARN: multiple spaces found in \"$_\"") if ($space =~ /\s\s+/); + &perror("WARN: \"$group\" unknown group in PLIST") if (getgrnam($group) eq ""); } elsif ($_ =~ /^\@(dirrm|option)/) { ; # no check made } else { -- cgit v1.2.3