Changeset 621

Timestamp:

07/12/07 15:40:52 (1 year ago)

Author:

kindlund

Message:

integration testing

Files:

• honeyclient/branches/exp/jpuchalski-active_content/bin/FlashTest.pl (modified) (1 diff)
• honeyclient/branches/exp/jpuchalski-active_content/lib/HoneyClient/Agent/Driver/ActiveContent/Flash.pm (modified) (4 diffs)

honeyclient/branches/exp/jpuchalski-active_content/bin/FlashTest.pl

@@ -29 +29 @@
-  print "\t$_\n";
-}
+
+use Data::Dumper;
+$Data::Dumper::Terse = 0;
+$Data::Dumper::Indent = 1;
+print Dumper(\%urls) . "\n";

honeyclient/branches/exp/jpuchalski-active_content/lib/HoneyClient/Agent/Driver/ActiveContent/Flash.pm

@@ -90 +90 @@
-use HoneyClient::Util::Config qw(getVar);
-use Log::Log4perl qw(:easy);
-use Filesys::CygwinPaths qw(:all);
-
-# Include the Global Configuration Processing Library
@@ -196 +195 @@
-sub extract {
-  my %args = @_;
-
+ = $args{'file'}->filename
-  
-  # Chop any trailing slash off the base URL
@@ -202 +201 @@
-  $base_url =~ s/\/$//;
-
-  # Call flasm in OS-dependent way and capture the output in an array.
-  if ($^O =~ m/linux/i) {
-    $filename = $args{'file'}->filename;
-  } 
-  # Must encode all backslashes with double backslashes, since 
-  # backtick commands don't like single backslashes.
-
-
+
+
+
+
-  }
-
@@ -298 +295 @@
-          $instr =~ s/^\s+//;
-          ($var, $val) = split(/, /, $instr);
+          $val =~ s/\s+$//;
-          $LOG->debug("Value of the URL is $val");
-          $val =~ s/'//g;