phoedos/pmd
1
1
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed form

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2173 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2003-08-12 14:50:34 +00:00
parent a0cd5f8640
commit abafc18592
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,12 +30,6 @@ sub default() {
print br(); print br();
print hr(); print hr();
if (param("unixname")) {
my $project = PMD::Project->new("Sourceforge",param("title"),param("unixname"), param("moduledirectory"), param("srcdir"));
addProject($project);
print p(), b("Added "), b($project->getTitle()), b(" to the schedule"), p();
}
print loadProjectList(); print loadProjectList();
print hr(); print hr();
@ -90,21 +84,6 @@ sub loadProjectList() {
return $result; return $result;
} }
sub addProject() {
my ($project) = @_;
open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq") or die "Couldn't send email: $!\n";
print SENDMAIL <<"EOF";
From: PMD-WEB <tomcopeland\@users.sourceforge.net>
To: Tom Copeland <tomcopeland\@users.sourceforge.net>
Subject: @{[$project->getString()]}
enter it
EOF
close(SENDMAIL) or warn "Sendmail didn't close nicely";
}
$page=param("state") || "default"; $page=param("state") || "default";
%states = ( %states = (