Skip to content

Add files via upload #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
githubqian wants to merge 1 commit into
base: python
Choose a base branch
from
Open

Add files via upload #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
125 changes: 125 additions & 0 deletions emma_coverage_codecenter.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,125 @@
#!/usr/bin/perl -w

################################################################################
#
# File: emma_coverage_codecenter.pl
# Description: Get accumulative test coverage output in .html and .txt format
# Author: Qian Ouyang
# Created: Tue Jan 8, 2008
# License: All rights reserved by Black Duck Software, 2008.
#
################################################################################


################################################################################
# Modules #
################################################################################

$|++;
use strict;
use English;
use Getopt::Long;
$Getopt::Long::autoabbrev = 1;
$Getopt::Long::ignorecase = 0;

################################################################################
# Constant Variables and Variables #
################################################################################

use constant CHK_SLP => 10;
my $CODECENTER_HOME= "/opt/blackduck/CodeCenter";
my $QIAN_SANDBOX= "/home/qian_emma/coverage";
my $MAILTO= "qouyang\@blackducksoftware.com";


my $current_date;
my $commandline_option;
my $system_call;
my $help = "";


my $help_string = <<HELP;
Generate emma coverage report on 10.12.13.165 for CodeCenter. The % is accumulative, unless tomcat is shutdown and restarted manually, which will reset the coverage %.

Usage: perl emma_coverage_codecenter.pl

The Emma build is 2.1.5320 which doesn't need to shutdown tomcat to get coverager.ec file. An unique timestamp folder is generated each time the emma_coverager.pl is run, and the coverager.ec and coverage reports are generated and stored in this folder.
HELP

################################################################################
# Main #
################################################################################

get_input();


#get system current date
$current_date = `date '+DATE_%m_%d_%y_TIME_%H-%M-%S'`;
chomp $current_date;


#mkdir as system current date
$system_call = "mkdir -p $QIAN_SANDBOX/$current_date";
system $system_call;
print "created $QIAN_SANDBOX/$current_date directory\n\n";


#get coverage.ec
$system_call = "java -Xmx512m -cp $CODECENTER_HOME/lib/jre/lib/ext/emma.jar emma ctl -connect localhost:47653 -command coverage.get,$QIAN_SANDBOX/$current_date/coverage.ec";
system $system_call;
print "Generated currect coverage.ec\n\n";


#Run coverage report
chdir "$QIAN_SANDBOX/$current_date";
$system_call = "java -Xmx512m -cp $CODECENTER_HOME/lib/jre/lib/ext/emma.jar emma report -r txt,html -in $QIAN_SANDBOX/merged_coverage.em -in $QIAN_SANDBOX/$current_date/coverage.ec -p $CODECENTER_HOME/lib/jre/lib/ext/emma.props";
system $system_call;
print "Generated reports\n\n";


#Move files around
$system_call = "mv coverage/* $QIAN_SANDBOX/$current_date";
system $system_call;
print "Moved generated reports to $current_date directory\n\n";


#Copy generated reports to qa://var/www
$system_call = "scp -r $QIAN_SANDBOX/$current_date root\@qa://var/www/CodeCenter_coverage/";
system $system_call;
print "Copied generated reports to root\@qa\:\/\/var\/www\/CodeCenter_coverage/$current_date\n\n";


#Send e-mail with generated report
$system_call = "mail $MAILTO -s \"$current_date Code Coverage Report on 10.12.13.165 for CodeCenter\" <$QIAN_SANDBOX/$current_date/coverage.txt";
system $system_call;
print "Sent generated report to $MAILTO\n\n";


exit(0);


################################################################################
# Subroutine #
################################################################################

# Get commandline input and assign to variable.
sub get_input
{

# Get options.
$commandline_option = GetOptions("help" => \$help);

die ("Please use --help for information.\nProgram exiting.\n") unless $commandline_option;



# If 'Help' option
if ($help) {
print $help_string;
exit(1);
}

}

exit (0);

165 changes: 165 additions & 0 deletions emma_instrument_codecenter.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,165 @@
#!/usr/bin/perl -w

################################################################################
#
# File: emma_instrument_codecenter.pl
# Description: Instrument CodeCenter .jar files
# Author: Qian Ouyang
# Created: Tue Jan 8, 2008
# License: All rights reserved by Black Duck Software, 2008.
#
################################################################################


################################################################################
# Modules #
################################################################################

$|++;
use strict;
use English;
use Getopt::Long;
$Getopt::Long::autoabbrev = 1;
$Getopt::Long::ignorecase = 0;

################################################################################
# Constant Variables and Variables #
################################################################################

use constant CHK_SLP => 10;
my $CODECENTER_HOME= "/opt/blackduck/CodeCenter";
my $QIAN_SANDBOX= "/home/qian_emma/coverage";
my $MAILTO= "qouyang\@blackducksoftware.com";
my $UNZIP_ROOT_WAR= "/tmp/qian/unzip_root_war";
my $JAR_LOCATION= "/mnt/qa/qian/jdk-6u3-linux/jdk1.6.0_03/bin";
my $EMMA_HOME= "$CODECENTER_HOME/lib/jre/lib/ext";
my $jars;
my @jars;
my $cmd = "";


my $current_date;
my $commandline_option;
my $system_call;
my $help = "";
my $output = "";


my $help_string = <<HELP;
Instrument emma tool on 10.12.13.165 for CodeCenter. The Emma build is 2.1.5320.

Usage: perl emma_instrument_codecenter.pl

1). stop tomcat
2). remove old .em files
3). unzip ROOT.war
4). instrument .jars and mv coverage.em
5). repack ROOT.war and replace the original ROOT.war
6). re-start tomcat
7). merge coverage.em files
8). send email
HELP

################################################################################
# Main #
################################################################################

get_input();

`/etc/init.d/bds-codecenter-tomcat stop`;
print "stopped tomcat\n";
sleep(CHK_SLP);
`rm -rf /$CODECENTER_HOME/tomcat/webapps/ROOT`;
print "removed ROOT folder\n";

#remove old em files
chdir "/tmp/qian";
`rm -rf em_file`;
mkdir "em_file";
chdir $QIAN_SANDBOX;
`rm *.em`;
print "removed old .em files\n";


#clean content $UNZIP_ROOT_WAR and unzip ROOT.war
`rm -rf $UNZIP_ROOT_WAR`;
`mkdir -p $UNZIP_ROOT_WAR`;
print "removed old unzipped ROOT.war\n";
chdir "$CODECENTER_HOME/tomcat/webapps";
`unzip ROOT.war -d $UNZIP_ROOT_WAR`;
print "unzipped ROOT.war\n";

#instrument .jar
chdir "$UNZIP_ROOT_WAR/WEB-INF/lib";

@jars = qw(bds-forum bds-modelbase catalogip-base catalogip catalogip-json catalogip-kb catalogip-util catalogip-vuln codecenter-regupdate);
my $i = 1;
foreach $jars(@jars) {
#$cmd = "java -cp $EMMA_HOME/emma.jar emma instr -m overwrite -ip $jars" . ".jar -ix -com.blackducksoftware.springtestng.*,-com.blackducksoftware.testng.*,-com.blackducksoftware.soap.axis.test.*,*.db.*";
$cmd = "java -cp $EMMA_HOME/emma.jar emma instr -m overwrite -ip $jars" . ".jar -ix -com.blackducksoftware.springtestng.* -ix -com.blackducksoftware.testng.* -ix -com.blackducksoftware.soap.axis.test.* -ix -org.json.*";
print $cmd;
$output = `$cmd 2>&1`;
print "$output";
$cmd = "mv coverage.em /tmp/qian/em_file/coverage$i" . ".em";
`$cmd`;
print "implemented $jars" . ".jar\n";
$i++;
}

#reconstitue ROOT.war and replace original ROOT.war
chdir $UNZIP_ROOT_WAR;
`$JAR_LOCATION/jar -cvf ROOT.war .`;
print "repacked ROOT.war\n";
`rm /$CODECENTER_HOME/tomcat/webapps/ROOT.war`;
print "removed original ROOT.war\n";
`cp ROOT.war $CODECENTER_HOME/tomcat/webapps`;
print "placed implemented ROOT.war\n";
`chmod 777 $CODECENTER_HOME/tomcat/webapps/ROOT.war`;
print "changed permission of ROOT.war\n";


#re-start tomcat
`/etc/init.d/bds-codecenter-tomcat start`;
print "started tomcat\n";

#merge all the .em files and cp to $QIAN_SANDBOX
chdir "/tmp/qian/em_file";
`java -cp $EMMA_HOME/emma.jar emma merge -in coverage1.em -in coverage2.em -in coverage3.em -in coverage4.em -in coverage5.em -in coverage6.em -in coverage7.em -in coverage8.em -in coverage9.em -in coverage10.em -out merged_coverage.em`;
`cp merged_coverage.em $QIAN_SANDBOX`;
print "merged .em files\n";


#send e-mail indicating instrumentation completed, this section is not quite right!
chdir $QIAN_SANDBOX;
$current_date = `date '+DATE_%m_%d_%y_TIME_%H-%M-%S'`;
`mail $MAILTO -s \"$current_date instrumentation complete on 10.12.13.165 for CodeCenter\" <emma.props`;
print "sent instrumentation complete message\n";


exit(0);


################################################################################
# Subroutine #
################################################################################

# Get commandline input and assign to variable.
sub get_input
{

# Get options.
$commandline_option = GetOptions("help" => \$help);

die ("Please use --help for information.\nProgram exiting.\n") unless $commandline_option;



# If 'Help' option
if ($help) {
print $help_string;
exit(1);
}

}

exit (0);
23 changes: 23 additions & 0 deletions perl_factorial.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
#! usr/bin/perl
print "What number you want to calculate the factorial?";
print "\n";

chomp ($n = <>);

my $ret = 1;
my $i;

if (($n == 0) || ($n == 1)){
print "The factorial of munber $n is $n.";
print "\n";

}

else {
for ($i = 2; $i <= $n; $i++) {
$ret = $ret * $i;
}
print "The factorial of munber $n is $ret.";
print "\n";

}