RTx-Foundry

 view release on metacpan or  search on metacpan

inc/Module/Install/RTx.pm  view on Meta::CPAN

    print "./$_\t=> $path{$_}\n" for sort keys %path;

    my $postamble = << ".";
install ::
\t\$(NOECHO) \$(PERL) -MExtUtils::Install -e \"install({$args})\"
.

    if ($path{var} and -d $RT::MasonDataDir) {
        my ($uid, $gid) = (stat($RT::MasonDataDir))[4, 5];
        $postamble .= << ".";
\t\$(NOECHO) chown -R $uid:$gid $path{var}
.
    }

    $self->postamble("$postamble\n");
    if (%subdirs and !$subdirs{'lib'}) {
        $self->makemaker_args(
            PM => { "" => "" },
        )
    }
    else {

sbin/foundry-cvs2svn  view on Meta::CPAN

my $www_group = $ENV{WWWGROUP} || 'www';

chdir $svn_base;

foreach my $dir (grep -d, <$cvs_base/*>) {
    $dir =~ s!.*/!!;
    next if $dir =~ /CVSROOT/;
    next unless -d "$cvs_base/$dir" and glob("$cvs_base/$dir/*");

    print $dir, $/;
    system("chown", "cvs", "$cvs_base/$dir");

    my $vcp = << ".";
Source: cvs:$cvs_base:$dir --use-cvs --continue

Destination: svn:file://$svn_base/$dir: --db-dir=$c2s_base --init-svnrepo --delete-svnrepo

Map:
	$dir/(...)<>		trunk/\$1
	$dir/(...)<(*)>		branches/\$2/\$1

sbin/foundry-cvs2svn  view on Meta::CPAN

       time                     <=60   ## seconds
       user_id                  equal  ## case-sensitive equality
       comment                  equal  ## case-sensitive equality
       branched_rev_branch_id   equal  ## change only one branch at a time
.

    open VCP, "| $^X $FindBin::Bin/foundry-vcp vcp:-" or next;
    print VCP $vcp;
    close VCP;

    system("chown", "-R", "$www_user:$www_group", "$svn_base/$dir");
    my $log_dir = "$svn_base/.log";
    mkdir($log_dir) unless -d $log_dir;
    unlink("$log_dir/vcp.log.$dir") if -e "$log_dir/vcp.log.$dir";
    move("vcp.log", "$log_dir/vcp.log.$dir");
}

};

if (my $interval = shift) {
    warn $@ if $@;

sbin/foundry-lib/VCP/TestUtils.pm  view on Meta::CPAN

            my ( $perms, $uid, $gid ) = (stat)[2,4,5];

            if ( -d ) {          # source was a directory
               mkdir $newname or croak "couldn't create directory '$newname': $!\n";
            }
            else {
               copy $_, $newname or croak "couldn't copy file from '$_' to '$newname'\n";
            }

            chmod $perms, $newname or warn "$!: chmod()ing $newname\n";
            chown $uid, $gid, $newname or warn "$!: chown()ing $newname\n";
         },
      },
      $src_dir 
   );
}


=item rm_dir_tree

    rm_dir_tree $path;

sbin/foundry-setup  view on Meta::CPAN

    open my $OUT, '>', $conf or die $!;
    print $OUT (
	@in_lines,
	map {
	    "\$ENV{$_}" .
	    ("\t" x (2 - int((length($_)-1) / 8))) .
	    "= '${lc$_}';\n"
	} +VARS,
    );
    close $OUT;
    chown 0600, $conf;

    print "===> $conf successfully written.\n";
}

sub pam_conf {
    my %params = (
	host		=> $db_host,
	user		=> $db_dba_user,
	passwd		=> $db_dba_password,
	db		=> 'rt3',

sbin/foundry-syncdata  view on Meta::CPAN

    my $_commitcheck = "$cvs_base/CVSROOT/commitcheck";
    my $_commitinfo = "$cvs_base/CVSROOT/commitinfo";
    open my $fh, ">", $_commitcheck or die $!;
    print $fh "#!/bin/sh\n";
    print $fh "exec $commitcheck \$\@\n";
    close $fh;
    chmod(0755, $_commitcheck);
    open $fh, ">>", $_commitinfo or die $!;
    print $fh "ALL     \$CVSROOT/CVSROOT/commitcheck\n";
    close $fh;
    system(qw( chown -R ), "$cvs_user:$cvs_group", $cvs_base);
}

#
# The following block get user id from database
#
my $users = $dbh->selectcol_arrayref(q{
    SELECT Users.Name
      FROM Users, GroupMembers
     WHERE Users.Password != '*NO-PASSWORD*'
       AND Users.Id = GroupMembers.MemberId