From 55dee0c595ea28dde3d2a30e1f238fc322e6e869 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 16 Apr 2002 21:24:45 +0000
Subject: [PATCH] auto-use export classes

---
 FS/bin/freeside-queued | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/FS/bin/freeside-queued b/FS/bin/freeside-queued
index f6226cca1..49b532ec3 100644
--- a/FS/bin/freeside-queued
+++ b/FS/bin/freeside-queued
@@ -100,6 +100,22 @@ while (1) {
       if $FS::svc_acct::icradius_dbh;
     forksuidsetup($user);
 
+    #auto-use export classes...
+    if ( $ljob->job =~ /(FS::part_export::\w+)::/ ) {
+      my $class = $1;
+      eval "use $class;";
+      if ( $@ ) {
+        warn "job use $class failed";
+        my %hash = $ljob->hash;
+        $hash{'status'} = 'failed';
+        $hash{'statustext'} = $@;
+        my $fjob = new FS::queue( \%hash );
+        my $error = $fjob->replace($ljob);
+        die $error if $error;
+        exit; #end-of-kid
+      };
+    }
+
     my $eval = "&". $ljob->job. '(@args);';
     warn "running $eval";
     eval $eval; #throw away return value?  suppose so
-- 
2.11.0