2 files changed, 0 insertions, 48 deletions
diff --git a/eg/export_template.pm b/eg/export_template.pm
index 2830ce337..2c199db85 100644
--- a/eg/export_template.pm
+++ b/eg/export_template.pm
@@ -56,24 +56,6 @@ sub _export_delete {
   ref($err_or_queue) ? '' : $err_or_queue;
 }
 
-#these two are optional
-# fallback for svc_acct will change and restore password
-sub _export_suspend {
-  my( $self, $svc_something ) = (shift, shift);
-  $err_or_queue = $self->myexport_queue( $svc_something->svcnum,
-    'suspend', $svc_something->username );
-  ref($err_or_queue) ? '' : $err_or_queue;
-}
-
-sub _export_unsuspend {
-  my( $self, $svc_something ) = (shift, shift);
-  $err_or_queue = $self->myexport_queue( $svc_something->svcnum,
-    'unsuspend', $svc_something->username );
-  ref($err_or_queue) ? '' : $err_or_queue;
-}
-
-###
-
 #a good idea to queue anything that could fail or take any time
 sub myexport_queue {
   my( $self, $svcnum, $method ) = (shift, shift, shift);
@@ -97,10 +79,3 @@ sub myexport_delete { #subroutine, not method
   #do things with $username
 }
 
-sub myexport_suspend { #subroutine, not method
-}
-
-sub myexport_unsuspend { #subroutine, not method
-}
-
-
diff --git a/eg/xmlrpc-example.pl b/eg/xmlrpc-example.pl
deleted file mode 100755
index 7a2a0a6f0..000000000
--- a/eg/xmlrpc-example.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Frontier::Client;
-use Data::Dumper;
-
-my $server = new Frontier::Client (
-	url => 'http://user:pass@freesidehost/misc/xmlrpc.cgi',
-);
-
-#my $method = 'cust_main.smart_search';
-#my @args = (search => '1');
-
-my $method = 'Record.qsearch';
-my @args = (cust_main => { });
-
-my $result = $server->call($method, @args);
-
-if (ref($result) eq 'ARRAY') {
-  print "Result:\n";
-  print Dumper(@$result);
-}
-