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 # -*-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; } }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 8160 | michael |
Archive obsolete CVS to Perforce converter. See the Perforce KB and website for an updated CVS to Perforce converter. |
||
//guest/perforce_software/utils/cvs2p4/bin/ypgroups2p4 | |||||
#2 | 7274 | Richard Geiger | Integrate dev changes to become 3.1 | ||
#1 | 5649 | Richard Geiger | Integrate 3.0b5, b6 changes... | ||
//guest/richard_geiger/utils/cvs2p4/bin/ypgroups2p4 | |||||
#1 | 5632 | Richard Geiger | I suppose this might end up here... |