| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1204__intel/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/10_customer2017/1204__intel/SCMerge.pm |
package SCMerge;
use strict;
#use ClearCase::CtCmd qw(cleartool);
sub new {
my $class = shift;
my $self = {};
bless($self,$class);
return($self);
}
#*********************************************************************
sub diff {
my $self = shift;
my $branch = shift;
my $main = shift;
my $changed = cleartool("find . -element 'merge($branch,$main)' -print");
print $changed;
}
#*********************************************************************
sub cleartool {
my $o = shift;
open(FFILE,">tmp.1");
print FFILE "ct " . $o . "\n";
close(FFILE);
system("tcsh tmp.1 > tmp.2");
open(FFILE,"<tmp.2");
$o = join("",<FFILE>);
close(FFILE);
return($o);
}
1;