[src/trunk]: src/sbin/mount_portal/examples Bye bye, perl script.

[atatat <atatat%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/fd6f5c0e70a4
branches:  trunk
changeset: 515986:fd6f5c0e70a4
user:      atatat <atatat%NetBSD.org@localhost>
date:      Fri Oct 12 16:19:05 2001 +0000

description:
Bye bye, perl script.

diffstat:

 sbin/mount_portal/examples/cvs.pl |  32 --------------------------------
 1 files changed, 0 insertions(+), 32 deletions(-)

diffs (36 lines):

diff -r ef9815c6773e -r fd6f5c0e70a4 sbin/mount_portal/examples/cvs.pl
--- a/sbin/mount_portal/examples/cvs.pl Fri Oct 12 16:15:26 2001 +0000
+++ /dev/null   Thu Jan 01 00:00:00 1970 +0000
@@ -1,32 +0,0 @@
-#!/usr/pkg/bin/perl
-
-# ensure that HOME is set for pserver modes
-$ENV{'HOME'} = (getpwuid($<))[7] || "/";
-# supplement path to include ssh and cvs
-$ENV{'PATH'} = "/usr/pkg/bin:$ENV{'PATH'}";
-# use ssh instead of rsh for cvs connections
-$ENV{'CVS_RSH'} = "ssh";
-
-if    ($ARGV[0] eq "netbsd") {
-    $ENV{'CVSROOT'} = "anoncvs\@anoncvs.netbsd.org:/cvsroot";
-    shift(@ARGV);
-}
-elsif ($ARGV[0] eq "freebsd") {
-    $ENV{'CVSROOT'} = ":pserver:anoncvs\@anoncvs.freebsd.org:/home/ncvs";
-    shift(@ARGV);
-}
-elsif ($ARGV[0] eq "openbsd") {
-    $ENV{'CVSROOT'} = "anoncvs\@anoncvs.usa.openbsd.org:/cvs";
-    shift(@ARGV);
-}
-else {
-    print("configuration not supported\n");
-    exit(0);
-}
-
-foreach $file (@ARGV) {
-    ($file, $rev) = ($1,$3) if ($file =~ /(.*),(-r)?([\d\.]+|[-a-zA-Z\d]+)$/);
-    $cmd = "co -p";
-    $rev = "-r $rev" if ($rev);
-    system("cvs $cmd $rev $file");
-}