Changeset 719

Timestamp:

07/20/07 17:16:34 (1 year ago)

Author:

kindlund

Message:

Implemented allowed Driver support.

Files:

• honeyclient/branches/exp/kindlund-firefox/lib/HoneyClient/Agent.pm (modified) (2 diffs)

honeyclient/branches/exp/kindlund-firefox/lib/HoneyClient/Agent.pm

@@ -726 +726 @@
-    }
-
+    # Sanity check.  Make sure the driver name specified is
+    # on our allowed list.
+    my @drivers_found = grep(/^$args{'driver_name'}$/, @{$ALLOWED_DRIVERS});
+    my $driverName = pop(@drivers_found);
+    unless (defined($driverName)) {
+        $LOG->warn("Not allowed to run Driver (" . $args{'driver_name'} . ").");
+        die SOAP::Fault->faultcode(__PACKAGE__ . "->run()")
+                       ->faultstring("Not allowed to run Driver (" . $args{'driver_name'} . ").");
+    }
+
-    # Temporary variable, used to hold thawed driver data.
-    my $data = undef;
@@ -735 +745 @@
-    my $thread = undef;
-
-    # TODO: Implement a check to make sure the driver name
-    # is on our allowed list.
-    my $driverName = $args{'driver_name'};
-
-    # TODO: Eventually, use the globally defined array
-    # of actual drivers used (set by init()).
-    #for my $driverName (@DRIVERS) {
-    if (defined($driverName)) {
-