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

Eliminated some uninteresting stuff

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@1505 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2003-03-05 15:32:00 +00:00
parent 398457cb26
commit e420f461aa
2 changed files with 1 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
pmd-web/src/jobs.tar.gz
View File

Binary file not shown.

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

@ -27,7 +27,7 @@ sub default() {
my $lastruntime=<FILE>;
close(FILE);
print br();
print "This report is run 10 minutes past the hour at midnight, 3, 6, 9, 12, 15, 18, and 21 hours. The last run finished at ", $lastruntime;
print "This report is run 10 minutes past the hour at midnight, 3, 6, 9, 12, 15, 18, and 21 hours U.S. Pacific Standard Time. The last run finished at ", $lastruntime;
print hr();
if (param("unixname")) {
@ -38,8 +38,6 @@ sub default() {
print loadProjectList();
printStats();
print hr();
print "Want to run PMD on your Java Sourceforge project? Fill in the blanks and hit go:";
print start_form();
@ -55,32 +53,6 @@ sub default() {
print hr();
}
sub printStats() {
print hr();
print b("Stats");
if (-e "currentjob.txt") {
open(FILE, "currentjob.txt");
my $currentjob = <FILE>;
close(FILE);
print br(), "Currently processing $currentjob";
}
#print br(), "There are ", getTimeUntil(), " minutes until the next scheduled run";
print br();
print "This report is regenerated every three hours at 10 minutes past the hour";
print br();
}
sub getTimeUntil() {
# we're starting each build at 10 past the hour, so...
my $offset = 10;
my $everyXHours = 3;
my $minutes = ((60 + $offset) - localtime()->min) % 60;
if (localtime()->hour % $everyXHours != 0) {
$minutes += 60;
}
return $minutes;
}
sub loadProjectList() {
my @projects = ();
opendir(DIR, "jobs/") or return "can't open jobs directory!";