Re: [Savannah-help-public] Re: [Savannah-cvs] administration/infra/bin sv_cvstarballs.cron

[Sylvain Beucler]

This is not a discussion about CVS, we're the Savannah Hackers.

Please check www.nongnu.org/cvs to get the CVS team contact info.

-- 
Sylvain

On Wed, Aug 10, 2005 at 11:28:47PM -0700, manish popli wrote:
> Hi,
> 
> How can i impliment replication between two CVS
> servers
> Pls help me in this regard......
> Thanks 
> Manish Popli
> --- Sylvain Beucler <address@hidden> wrote:
> 
> > CVSROOT:    /cvsroot/administration
> > Module name:        administration
> > Branch:     
> > Changes by: Sylvain Beucler <address@hidden>
> > 05/08/09 18:45:17
> > 
> > Modified files:
> >     infra/bin      : sv_cvstarballs.cron 
> > 
> > Log message:
> >     Fixed perl security warnings
> > 
> > CVSWeb URLs:
> >
> http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/bin/sv_cvstarballs.cron.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
> > 
> > Patches:
> > Index: administration/infra/bin/sv_cvstarballs.cron
> > diff -u
> > administration/infra/bin/sv_cvstarballs.cron:1.1
> > administration/infra/bin/sv_cvstarballs.cron:1.2
> > --- administration/infra/bin/sv_cvstarballs.cron:1.1
> > Fri Sep 17 11:04:54 2004
> > +++ administration/infra/bin/sv_cvstarballs.cron    Tue
> > Aug  9 18:45:16 2005
> > @@ -34,6 +34,10 @@
> >  use strict;
> >  use Savannah;
> >  
> > +# Classical perlsec(1) init
> > +$ENV{'PATH'} = '/bin:/usr/bin';
> > +delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
> > +
> >  my $archives_dir = '/savannah/cvs-backup';
> >  
> >  my @projects = GetDB("groups", "status='A' AND
> > is_public='1'", "unix_group_name");
> > @@ -51,6 +55,13 @@
> >  # Process active public projects
> >  for my $project_name (sort @projects) {
> >      chomp($project_name);
> > +
> > +    # Untaint variable (needed?)
> > +    if ($project_name =~ /^([-_A-Za-z0-9]+)$/) {
> > +   $project_name = $1;
> > +    } else {
> > +   next;
> > +    }
> >  
> >      my $source_dir =
> > "/savannah/cvsroot/$project_name/cvsroot";
> >      my $repos_mtime =
> >
> (stat("$source_dir/$project_name/CVSROOT/history"))[9];
> > 
> > 
> > _______________________________________________
> > Savannah-cvs mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/savannah-cvs
> > 
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam protection around 
> http://mail.yahoo.com 
> 
> 
> _______________________________________________
> Savannah-help-public mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/savannah-hackers