AFS-Command

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

   a) place your modifications in the Public Domain or otherwise make
      them Freely Available, such as by posting said modifications to
      Usenet or an equivalent medium, or placing the modifications on
      a major archive site such as uunet.uu.net, or by allowing the
      Copyright Holder to include your modifications in the Standard
      Version of the Package.

   b) use the modified Package only within your corporation or
      organization.

   c) rename any non-standard executables so the names do not conflict
      with standard executables, which must also be provided, and
      provide a separate manual page for each non-standard executable
      that clearly documents how it differs from the Standard Version.

   d) make other distribution arrangements with the Copyright Holder.

4. You may distribute the programs of this Package in object code
   or.executable form, provided that you do at least ONE of the
   following:

lib/AFS/Command/PTS.pod  view on Meta::CPAN

      (
       # Required arguments
       user			=> $user, # OR [ $user1, $user2, ... ]
       group			=> $group, # OR [ $group1, $group2, ... ]
       # Optional arguments
       cell			=> $cell,
       noauth			=> 1,
       force			=> 1,
      );

=head2 rename

The pts help string is:

    pts rename: rename user or group
    Usage: pts rename -oldname <old name> -newname <new name>
		      [-cell <cell name>] [-noauth] [-force]

The corresponding method invocation looks like:

    my $result = $pts->rename
      (
       # Required arguments
       oldname			=> $oldname,
       newname			=> $newname,
       # Optional arguments
       cell			=> $cell,
       noauth			=> 1,
       force			=> 1,
      );

lib/AFS/Command/VOS.pod  view on Meta::CPAN

       server			=> $server,
       partition		=> $partition,
       # Optional arguments
       cell                     => $cell,
       noauth                   => 1,
       localauth                => 1,
       verbose                  => 1,
       encrypt                  => 1,
      );

=head2 rename

The vos help string is:

    vos rename: rename a volume
    Usage: vos rename -oldname <old volume name > -newname <new volume name >
		      [-cell <cell name>] [-noauth] [-localauth] [-verbose] [-encrypt]

The corresponding method invocation looks like:

    my $result = $vos->rename
      (
       # Required arguments
       oldname			=> $oldname,
       newname			=> $newname,
       # Optional arguments
       cell                     => $cell,
       noauth                   => 1,
       localauth                => 1,
       verbose                  => 1,
       encrypt                  => 1,

util/bin/check_copyright  view on Meta::CPAN

    while ( <OLD> ) {
	s/(\(c\)) (\d{4}).* (Morgan Stanley and Co\.)/\1 \2-$thisyear \3/;
	#s/(\(c\) 1999)/\1, 2000/g;
	print NEW;
    }

    close(OLD) || die "Unable to close $old: $!\n";
    close(NEW) || die "Unable to close $old.new: $!\n";

    rename("$old.new",$old) || die "Unable to rename $old.new to $old: $!\n";

    if ( $rcs ) {
	system("echo 'Updated copyright year' | ci -u $old > /dev/null");
	die "Unable to ci -u $old\n" if $? >> 8;
    }

}

exit $errors ? 1 : 0;

util/bin/check_version  view on Meta::CPAN

		s/$oldversion/$newversion/;
	    }
	    print NEW;
	}

    }

    close(OLD) || die "Unable to close $old: $!\n";
    close(NEW) || die "Unable to close $old.new: $!\n";

    rename("$old.new",$old) || die "Unable to rename $old.new to $old: $!\n";

    if ( $rcs ) {
	system("echo 'Updated \$VERSION to $newversion' | ci -u $old > /dev/null");
	die "Unable to ci -u $old\n" if $? >> 8;
    }

}

exit 0;

util/bin/write_exclude  view on Meta::CPAN

$top = basename(cwd);

open(NEW,">.exclude.$$") || 
  die "Unable to open .exclude.$$: $!\n";
foreach ( sort @exclude ) {
    print NEW "$top/$_\n";
}
close(NEW) || 
  die "Unable to close .exclude.$$: $!\n";

rename(".exclude.$$",".exclude") || 
  die "Unable to rename .exclude.$$ to .exclude: $!\n";

exit 0;

END {
    unlink ".exclude.$$";
}

util/bin/write_manifest  view on Meta::CPAN

warn "Writing new MANIFEST file...\n";

open(NEW,">MANIFEST.$$") ||
  die "Unable to open MANIFEST.$$: $!\n";
foreach ( sort @new ) {
    print NEW "$_\n";
}
close(NEW) ||
  die "Unable to close MANIFEST.$$: $!\n";

rename("MANIFEST.$$","MANIFEST") ||
  die "Unable to rename MANIFEST.$$ to MANIFEST: $!\n";

exit 0;

END {
    unlink "MANIFEST.$$";
}