Changeset 202

Timestamp:

03/06/07 23:52:27 (1 year ago)

Author:

flindiakos

Message:

Added the ability to specify a urllist of urls
Also added getopts for processing command line arguments

Files:

• honeyclient/branches/exp/flindiakos-multi_urls/bin/StartManager.pl (modified) (1 diff)

honeyclient/branches/exp/flindiakos-multi_urls/bin/StartManager.pl

@@ -15 +15 @@
-use MIME::Base64 qw(encode_base64 decode_base64);
-
+# Include Getoptions parser
+use Getopt::Long;
+
-use HoneyClient::Manager;
-
-# We expect that the user will supply a single argument to this script.
-# Namely, the initial URL that they want the Agent to use.
+# They can however supply multiple urls which will be processed in order
+
+my $driver = "IE";
+my $config = "/vm/Agent.Master-7/winXPPro.cfg";
+my $maxrel = 5;
+my $nexturl = "";
+my $urllist= "";
+
+GetOptions( 'driver=s'  => \$driver,
+                        'config=s'  => \$config,
+                        'urllist=s' => \$urllist,
+                        'maxrel=i'  => \$maxrel );
+
+# Go through the list of urls to create the array
+# Anything not associated with an option is a URL
+# Grab those first and then get the ones from the file specified
+my @urls;
+push( @urls, @ARGV ); 
+if( -e $urllist ){
+    open URL, $urllist;
+    push(@urls, <URL>);
+}
+
+# Get the first url from the list
+# Create an array in the form: url => 1 for links_to_visit 
+# I did it this way to keep the same order
+chomp @urls;
+my $firsturl = shift @urls;
+my @remaining_urls;
+foreach(@urls){
+    push(@remaining_urls,($_,1));   
+}
-
-my $agentState = HoneyClient::Manager->run(
-'IE'
-'/vm/Agent.Master-7/winXPPro.cfg'
+$driver
+$config
-                    agent_state      => encode_base64(nfreeze({
-IE
-ARGV[0]
+$driver
+firsturl
-                            # Enable this line, if you want to only go to the
-                            # first 5 links for each domain.
-
+
+
-                         },
-                    })),