[ViewVC] Contents of: ozone/mgar/gar/bin/qdepend

#!/bin/env perl -w
#
# $Id: qdepend 830 2006-09-19 18:23:08Z comand $
#
# Copyright 2006 Cory Omand <comand@blastwave.org>
# All rights reserved.  Use is subject to license terms.
#
# Redistribution and/or use, with or without modification, is
# permitted.  This software is without warranty of any kind.  The
# author(s) shall not be liable in the event that use of the
# software causes damage.
#
# qdepend - Quick depend formatter for use with installed packages.
#

use strict;

@ARGV or die "Usage: $0 [P|I|R] <pkg> ... <pkgN>\n";

my $DEPTYPE = "P";
   $DEPTYPE = shift @ARGV if $ARGV[0] =~ /P|I|R/;

foreach my $pkg (@ARGV) {
    my ($pinfo) = `pkginfo -x $pkg 2>&1`;
    if (($? >> 8) != 0) {
        print STDERR $pinfo;
        next;
    }
    $pinfo =~ s/\s{2,}/ /g;
    chomp($pinfo);
    print "$DEPTYPE $pinfo\n";
}

Revision:	1
Committed:	Sat Jun 20 14:58:51 2026 UTC (4 weeks, 3 days ago) by operz
File size:	831 byte(s)
Log Message:	Initial import of OZSW mgar build tree
#	Content
1	#!/bin/env perl -w
2	#
3	# $Id: qdepend 830 2006-09-19 18:23:08Z comand $
4	#
5	# Copyright 2006 Cory Omand <comand@blastwave.org>
6	# All rights reserved. Use is subject to license terms.
7	#
8	# Redistribution and/or use, with or without modification, is
9	# permitted. This software is without warranty of any kind. The
10	# author(s) shall not be liable in the event that use of the
11	# software causes damage.
12	#
13	# qdepend - Quick depend formatter for use with installed packages.
14	#
15
16	use strict;
17
18	@ARGV or die "Usage: $0 [P\|I\|R] <pkg> ... <pkgN>\n";
19
20	my $DEPTYPE = "P";
21	$DEPTYPE = shift @ARGV if $ARGV[0] =~ /P\|I\|R/;
22
23	foreach my $pkg (@ARGV) {
24	my ($pinfo) = `pkginfo -x $pkg 2>&1`;
25	if (($? >> 8) != 0) {
26	print STDERR $pinfo;
27	next;
28	}
29	$pinfo =~ s/\s{2,}/ /g;
30	chomp($pinfo);
31	print "$DEPTYPE $pinfo\n";
32	}
33