[freeside-commits] freeside/FS/FS/part_export shellcommands_withdomain.pm, 1.9, 1.10

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv1764/FS/FS/part_export

Modified Files:
	shellcommands_withdomain.pm 
Log Message:
Add preset for magicmail

Index: shellcommands_withdomain.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/shellcommands_withdomain.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- shellcommands_withdomain.pm	28 Jul 2009 02:12:50 -0000	1.9
+++ shellcommands_withdomain.pm	10 Aug 2009 18:05:50 -0000	1.10
@@ -87,6 +87,17 @@
     this.form.usermod_stdin.value = "";
     this.form.usermod_pwonly.checked = true;
   '>
+  <LI><INPUT TYPE="button" VALUE="MagicMail" onClick='
+    this.form.useradd.value = "/usr/bin/mm_create_email_service -e $svcnum -d $domain -u $username -p $quoted_password -f $first -l $last -m $svcnum -g EMAIL";
+    this.form.useradd_stdin.value = "";
+    this.form.userdel.value = "/usr/bin/mm_delete_user -e ${username}\\\@${domain}";
+    this.form.userdel_stdin.value = "";
+    this.form.suspend.value = "/usr/bin/mm_suspend_user -e ${username}\\\@${domain}";
+    this.form.suspend_stdin.value = "";
+    this.form.unsuspend.value = "/usr/bin/mm_activate_user -e ${username}\\\@${domain}";
+    this.form.unsuspend_stdin.value = "";
+    this.form.no_queue.checked = 1;
+  '>
 </UL>
 
 The following variables are available for interpolation (prefixed with