From 15a4e1674694b76ecc2af87de479aabe370ac03d Mon Sep 17 00:00:00 2001
From: Jonathan Prykop <jonathan@freeside.biz>
Date: Tue, 22 Sep 2015 01:08:04 -0500
Subject: RT#37908: Convert existing email-sending code to use common interface
 [removals and switches to FS::Log]

---
 bin/agent_email | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100755 bin/agent_email

(limited to 'bin')

diff --git a/bin/agent_email b/bin/agent_email
deleted file mode 100755
index 2fe47c4ba..000000000
--- a/bin/agent_email
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Getopt::Std;
-use FS::UID qw(adminsuidsetup);
-
-&untaint_argv;	#what it sounds like  (eww)
-use vars qw(%opt);
-getopts("a:", \%opt);
-
-my $user = shift or die &usage;
-adminsuidsetup $user;
-
-use FS::Cron::agent_email qw(agent_email);
-agent_email(%opt);
-
-###
-# subroutines
-###
-
-sub untaint_argv {
-  foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
-    #$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
-    # Date::Parse
-    $ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
-    $ARGV[$_]=$1;
-  }
-}
-
-1;
-- 
cgit v1.2.1