hiifong/pmd
1
0
Fork 0
forked from phoedos/pmd
Code Pull Requests Activity

*** empty log message ***

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@1065 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2002-10-04 16:41:15 +00:00
parent dd44cf45a1
commit 22ac72bbec
4 changed files with 59 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
pmd-web/src/PMD/Project.pm Normal file
View File

@ -0,0 +1,49 @@
package PMD::Project;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw(&new &getTitle &getUnixName &getModuleDir &getSrcDir &getString &getJobsFile);
sub new {
my $self = {};
bless($self);
$self->{TITLE} = @_[1];
$self->{UNIXNAME} = @_[2];
$self->{MODULEDIR} = @_[3];
$self->{SRCDIR} = @_[4];
return $self;
}
sub getTitle() {
my $self = shift;
return $self->{TITLE}
}
sub getUnixName() {
my $self = shift;
return $self->{UNIXNAME}
}
sub getModuleDir() {
my $self = shift;
return $self->{MODULEDIR}
}
sub getSrcDir() {
my $self = shift;
return $self->{SRCDIR}
}
sub getString() {
my $self = shift;
return "$self->{TITLE}:$self->{UNIXNAME}:$self->{MODULEDIR}:$self->{SRCDIR}";
}
sub getJobsFile() {
my $self = shift;
return "jobs/$self->{UNIXNAME}_$self->{MODULEDIR}.txt";
}
1;

3
pmd-web/src/copytolocal.bat
View File

@ -1,3 +1,4 @@
pscp tomcopeland@pmd.sourceforge.net:/home/groups/p/pm/pmd/cgi-bin/webpmd.pl .
pscp tomcopeland@pmd.sourceforge.net:/home/groups/p/pm/pmd/cgi-bin/pmd.rb .
pscp tomcopeland@pmd.sourceforge.net:/home/groups/p/pm/pmd/cgi-bin/processor.rb .
pscp tomcopeland@pmd.sourceforge.net:/home/groups/p/pm/pmd/cgi-bin/processor.rb .
pscp tomcopeland@pmd.sourceforge.net:/home/groups/p/pm/pmd/cgi-bin/PMD/Project.pm ./PMD/

1
pmd-web/src/pmd.rb
View File

@ -59,7 +59,6 @@ class Job
def run_pmd
cmd="java -jar pmd-1.0rc2.jar \"#{@sourceDirectory}\" html rulesets/unusedcode.xml > \"#{reportFile()}\""
puts "running #{cmd}"
`#{cmd}`
arr = IO.readlines(reportFile())
newFile=File.open(reportFile(), "w")

12
pmd-web/src/webpmd.pl
View File

@ -4,6 +4,7 @@ $| =1;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Time::localtime;
use PMD::Project;
$query = new CGI();
print $query->header();
@ -20,9 +21,10 @@ sub default() {
print h3("<center>PMD-WEB</center>");
if (param("title")) {
addProject(param("title"),param("unixname"), param("moduledirectory"), param("srcdir"));
my $project = PMD::Project->new(param("title"),param("unixname"), param("moduledirectory"), param("srcdir"));
addProject($project);
print p();
my $title = param("title");
my $title = $project->getTitle();
print b("Added ${title} to the schedule");
}
@ -119,8 +121,10 @@ sub getLines() {
sub addProject() {
my ($title, $unixname,$moduleDirectory,$srcdir) = @_;
my $cmd="echo \"${title}:${unixname}:${moduleDirectory}:${srcdir}\" > jobs/${unixname}_${moduleDirectory}.txt";
my ($project) = @_;
my $data = $project->getString();
my $jobsfile = $project->getJobsFile();
my $cmd = "echo \"$data\" > $jobsfile";
`${cmd}`;
}