Annotation of /nfo/bash/synccvs

#!/usr/bin/perl

use strict;
use warnings;

use lib qw( /data/libs/nfo/perl/libs );
use org::netfrag::shortcuts qw( run_cmd );

sub synccvs {
  my $which = shift;
  my $name = shift;
  my $option = shift;

  $which =~ m/^.*\/(.+?)$/;
  $name ||= $1;

  my $shellcmd;
  my $cvscmd;
  my $exists_name = "CVS";
  $exists_name = "$name/$exists_name" if $name;
  if (! -e $exists_name || ($option && $option eq 'checkout')) {
    $cvscmd = 'checkout';
    $shellcmd = "cvs -d /var/lib/cvs $cvscmd -d $name $which";
  } else {
    $cvscmd = 'update';
    $shellcmd = "cvs -d /var/lib/cvs $cvscmd $name";
  }
  return if !$shellcmd;
  #print "cmd: $shellcmd", "\n";
  run_cmd($shellcmd);
}

synccvs(shift, shift, shift);

1;
1	root	1.1	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use lib qw( /data/libs/nfo/perl/libs );
7			use org::netfrag::shortcuts qw( run_cmd );
8
9			sub synccvs {
10			my $which = shift;
11			my $name = shift;
12			my $option = shift;
13
14			$which =~ m/^.*\/(.+?)$/;
15			$name \|\|= $1;
16
17			my $shellcmd;
18			my $cvscmd;
19	root	1.3	my $exists_name = "CVS";
20			$exists_name = "$name/$exists_name" if $name;
21			if (! -e $exists_name \|\| ($option && $option eq 'checkout')) {
22	root	1.1	$cvscmd = 'checkout';
23			$shellcmd = "cvs -d /var/lib/cvs $cvscmd -d $name $which";
24			} else {
25			$cvscmd = 'update';
26			$shellcmd = "cvs -d /var/lib/cvs $cvscmd $name";
27			}
28			return if !$shellcmd;
29			#print "cmd: $shellcmd", "\n";
30			run_cmd($shellcmd);
31			}
32
33			synccvs(shift, shift, shift);
34
35			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26