From abafc185929d4179a9c235c14807180bb7695e70 Mon Sep 17 00:00:00 2001
From: Tom Copeland <tomcopeland@users.sourceforge.net>
Date: Tue, 12 Aug 2003 14:50:34 +0000
Subject: [PATCH] Removed form

git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2173 51baf565-9d33-0410-a72c-fc3788e3496d
---
 pmd-web/src/webpmd.pl | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/pmd-web/src/webpmd.pl b/pmd-web/src/webpmd.pl
index 36d0a65aab..1fe9d63113 100644
--- a/pmd-web/src/webpmd.pl
+++ b/pmd-web/src/webpmd.pl
@@ -30,12 +30,6 @@ sub default() {
  print br();
  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 hr(); 
@@ -90,21 +84,6 @@ sub loadProjectList() {
 	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";
 
 %states = (