Réf. : RE: [cvsnt] restricting tags privileges

Tue Jun 13 10:59:19 BST 2006

Excuse me for the late of my answer :$

How could you catch the user name?
In taginfo file, it seems not possible. Are you calling the pl script with
a standard "ALL c:/perl/bin/perl.exe tag-limit.pl" ?

Thanks a lot for these hints!

Best regards,
Franck-Sébastien Eymard

|---------+---------------------------->
|         |           "Lehman, Curtis" |
|         |           <CLehman at carriera|
|         |           ccess.com>       |
|         |                            |
|         |           06/06/2006 17:31 |
|         |                            |
|---------+---------------------------->
  >-----------------------------------------------------------------------------------------------------------------------|
  |                                                                                                                       |
  |       Pour :    "'feymard at stago.fr'" <feymard at stago.fr>, cvsnt at cvsnt.org cvsnt downloads at march-hare.com @CVSNT on Twitter CVSNT on Facebook, cvsnt-bounces at cvsnt.org                     |
  |       cc :                                                                                                            |
  |       Objet :   RE: [cvsnt] restricting tags privileges                                                               |
  >-----------------------------------------------------------------------------------------------------------------------|

We have created such limitation our CVS server by creating a pearl script
that enforces such requirements. The pearl script is called from the
taginfo file. My pearl script looks something like:

#!/usr/bin/perl

use strict;

my $i;
my ($user,$tag,$function) = @ARGV;

if ($function eq "del")
{
    if( ($user eq 'clehman') || ($user eq 'bruedy') || ($user eq
'AKulkarni'))
    {
        print "ok $user, you can delete tags\n";
        exit 0;
    }
    print "$user can't delete tags.\nContact Bill Ruedy to remove tag
$tag\n";
    exit 1;
}

if ($tag =~ /\AT_.*/)
{
    exit 0;
}
if ($tag =~ /\ABR_.*/)
{
    exit 0;
}

print "All Tag names must begin with a T_  and branches begin with BR_\n";
exit 1;

I have been meaning to add some code to force user names passed in to all
lower case. I have had some problems with case sensitivity and differences
between clients on Linux and windows systems. Hope this helps.

- Curt Lehman

-----Original Message-----
From: feymard at stago.fr [mailto:feymard at stago.fr]
Sent: Tuesday, June 06, 2006 9:15 AM
To: cvsnt at cvsnt.org cvsnt downloads at march-hare.com @CVSNT on Twitter CVSNT on Facebook; cvsnt-bounces at cvsnt.org
Subject: [cvsnt] restricting tags privileges

hi,

Do you know if it is possible to limit acces some functions on tags like:
- all users can create a tag
- only administrators can move or delete a tag, and create a rtag ?
Chacl can answers to the second point, but, if I use this command, I will
loose the capability for all to create a tag...

Best regards,
--
Franck-Sébastien Eymard

_______________________________________________
cvsnt mailing list
cvsnt at cvsnt.org cvsnt downloads at march-hare.com @CVSNT on Twitter CVSNT on Facebook
http://www.cvsnt.org/cgi-bin/mailman/listinfo/cvsnt https://www.march-hare.com/cvspro/en.asp#downcvs