ypgroups2p4 #1

#!/usr/bin/perl
# -*-Fundamental-*-

#  perl_template - please see the comment at the end!

#eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
#  & eval 'exec perl -S $0 $argv:q'
#  if 0;
#  THE PRECEEDING STUFF EXECS perl via $PATH

use Carp;
use strict;
$| = 1;

my $Myname;
($Myname = $0) =~ s%^.*/%%;

my $Usage = <<LIT;
$Myname: usage: $Myname
LIT

my $P4 = "/usr/local/bin/p4";

sub usage
{
  print STDERR $Usage;
  exit 1;
}


sub help
{
  print STDERR <<LIT;
$Usage
$Myname is...
LIT
  exit 1;
}

# option switch variables get defaults here...

my $Valopt = "default";
my $Boolopt = 0;
my @Args;
my $Args;

while ($#ARGV >= 0)
  {
    if ($ARGV[0] eq "-boolopt")    { $Boolopt = 1; shift; next; }
    elsif ($ARGV[0] eq "-valopt")
      {
        shift; if ($ARGV[0] < 0) { &usage; }
        $Valopt = $ARGV[0]; shift; next;
      }
    elsif ($ARGV[0] eq "-help")
      { &help; }
    elsif ($ARGV[0] =~ /^-/) { &usage; }
    if ($Args ne "") { $Args .= " "; }
    push(@Args, $ARGV[0]);
    shift;
  }

open(YPGROUPS, "<&STDIN") || die;

while (<YPGROUPS>)
  {
    chomp;
    my ($group, $pw, $gid, $members) = split(/:/);
    my @members = split(/\s*,\s*/, $members);

    if ($#members >= 0)
      {
        if (! open(P4GROUPI, "| $P4 group -i"))
          {
            print "Myname: Can't open \"$P4 group -i: $!\n";
            exit 1;
          }

        print P4GROUPI <<EOM;

Group:  $group

MaxResults:     unlimited

MaxScanRows:    unlimited

Timeout:        43200

Subgroups:

Users:
EOM
	foreach my $member (@members)
          {
            print P4GROUPI "\t$member\n";
          }
        print P4GROUPI "\n";
        close P4GROUPI;
      }
  }