diff options
author | pgollucci <pgollucci@FreeBSD.org> | 2009-04-30 05:08:53 +0800 |
---|---|---|
committer | pgollucci <pgollucci@FreeBSD.org> | 2009-04-30 05:08:53 +0800 |
commit | 51dd7fa6eaf1553f8d057191417460f5d2f0ff22 (patch) | |
tree | d31c7f2f22f11afa7ff4f1864e990ba2ee5e59ef | |
parent | af834266f76b5cd755bd8aeb6dc0f5e79c1cf862 (diff) | |
download | freebsd-ports-gnome-51dd7fa6eaf1553f8d057191417460f5d2f0ff22.tar.gz freebsd-ports-gnome-51dd7fa6eaf1553f8d057191417460f5d2f0ff22.tar.zst freebsd-ports-gnome-51dd7fa6eaf1553f8d057191417460f5d2f0ff22.zip |
- Start some docs
- Add --ports -p to specify a list on the cli
-rwxr-xr-x | Tools/scripts/mark_safe.pl | 104 |
1 files changed, 93 insertions, 11 deletions
diff --git a/Tools/scripts/mark_safe.pl b/Tools/scripts/mark_safe.pl index de94daba615b..b9623a5c8039 100755 --- a/Tools/scripts/mark_safe.pl +++ b/Tools/scripts/mark_safe.pl @@ -38,6 +38,7 @@ my $NoExec = 0; # cmdline options (custom) with defaults my $Maintainer = "$ENV{USER}\@FreeBSD.org"; +my $Ports = 0; my $Safe = 1; my $Index = 'INDEX-8'; @@ -75,6 +76,8 @@ sub getopts_wrapper { "noexec|n" => \$NoExec, "maintainer|m=s" => \$Maintainer, + "ports|p" => \$Ports, + "safe|s=i" => \$Safe, "index|i=s" => \$Index, ); @@ -151,20 +154,26 @@ sub mark { sub ports_get { - my $index = "$PORTSDIR/$Index"; - print "Index: $index\n"; - my @ports = (); - open my $fh, '<', $index or die "Can't open [$index] b/c [$!]"; - while (<$fh>) { - my @parts = split /\|/; - my $port_dir = $parts[$PARTS{dir}]; - $port_dir =~ s!/usr/ports!$PORTSDIR!; - my $maintainer = $parts[$PARTS{maintainer}]; + + if ($Ports) { + @ports = @ARGV; + } + else { + my $index = "$PORTSDIR/$Index"; + print "Index: $index\n"; + + open my $fh, '<', $index or die "Can't open [$index] b/c [$!]"; + while (<$fh>) { + my @parts = split /\|/; + my $port_dir = $parts[$PARTS{dir}]; + $port_dir =~ s!/usr/ports!$PORTSDIR!; + my $maintainer = $parts[$PARTS{maintainer}]; - push @ports, $port_dir if $maintainer =~ /^$Maintainer$/io; + push @ports, $port_dir if $maintainer =~ /^$Maintainer$/io; + } + close $fh or die "Can't close [$index] b/c [$!]"; } - close $fh or die "Can't close [$index] b/c [$!]"; return \@ports; } @@ -189,3 +198,76 @@ sub main { MAIN: { exit main(); } + +__END__ + +=pod + +=head1 NAME + +mark_safe.pl - Mark a port or ports as MAKE_JOBS_(UN)SAFE=yes + +=head1 SYNOPSIS + + mark_safe.pl <options> + +=head1 STD OPTIONS + +=over 4 + +=item B<--verbose=1,2,3,4,....> + +Display messages while running on STDOUT. Increasing the level +will increase the amount. + +DEFAULT: off/0 + +=item B<--debug|d> + +Copious messages not useful unless you are a developer AND +debuging this script are output to STDERR + +DEFAULT: off/0 + +=item B<--help|h> + +Print this message and exit EXIT_SUCCESS + +DEFAULT: off/0 + +=item B<--version|V> + +Output the version and exit with EXIT_SUCCESS + +DEFAULT: off/0 + +=item B<--noexec|n> + +Any External commands will simply be echo'd and not run +Assume all of them suceed. + +IMPLIES: --verbose=1 + +DEFAULT: off/0 + +=head1 Dependencies + +=head1 EXIT CODES + +Exits 0 on success +Exits > 0 <= 255 on error + + EXIT_SUCCESS => 0 + EXIT_FAILED_INVALID_ARGS_OR_ENV => 1 + +=head1 HISTORY + +20009-04-22 by pgollucci: + Created + +=head1 AUTHOR + +Philip M. Gollucci E<lt>pgollucci@FreeBSD.orgE<gt> + +=cut + |