Emails for creating and removing repos.

1 files changed, 15 insertions, 0 deletions

diff --git a/pinyadmin/sbin/rmrepo b/pinyadmin/sbin/rmrepo
index dff8fe5..acc9c56 100755
--- a/pinyadmin/sbin/rmrepo
+++ b/pinyadmin/sbin/rmrepo
@@ -7,6 +7,9 @@ use Piny;
 
 my $env = Piny::Environment->instance( );
 
+my $config = Piny::Config->new( );
+my $dest = $config->piny_newuseremail;
+
 foreach my $reponame ( @ARGV ) {
 
   my $repo = Piny::Repo->new( $reponame );
@@ -16,6 +19,18 @@ foreach my $reponame ( @ARGV ) {
     exit 1;
   };
 
+  unless( open( MAIL, "|/usr/lib/sendmail -t" ) ) {
+    die "Couldn't execute sendmail: $!\n";
+  };
+  print MAIL <<END;
+  To: $dest
+  Subject: Removing piny repo $reponame
+  Content-type: text/plain; charset=us-ascii
+
+  The piny repo ``$reponame'' has been removed.
+  END
+  close( MAIL );
+
   $repo->destroy;
 
 };