Changeset 13192 for lang/perl/XMPP-Bomber/trunk

Timestamp:

06/04/08 13:41:25 (5 years ago)

Author:

daisuke

Message:

add a function to create a par file

Location:

lang/perl/XMPP-Bomber/trunk

Files:

• . (modified) (1 prop)
• lib/XMPP/Bomber.pm (modified) (1 diff)
• script/xmpp-bomber (modified) (1 prop)

lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber.pm

@@ -189 +189 @@
         $sender->stop;
     }
-        
+}
+
+sub make_par
+{
+    my (%args) = @_;
+
+    my $find_cmd = sub {
+        my ($name, $default) = @_;
+
+        my $cmd = $default;
+        if (! $cmd) {
+            foreach my $path (split(/:/, $ENV{PATH})) {
+                my $fqpath = File::Spec->catfile($path, $name);
+                if (-x $fqpath) {
+                    $cmd = $fqpath;
+                    last;
+                }
+            }
+        }
+
+        if (! $cmd || ! -x $cmd) {
+            die "Could not find a suitable '$name' executable";
+        }
+        return $cmd;
+    };
+
+    my $pp = $find_cmd->('pp', $ENV{PAR_PACKER});
+    my $xmpp_bomber = $find_cmd->('xmpp-bomber', $ENV{XMPP_BOMBER});
+
+    # Now pack all this stuff
+    my @modules = (
+        'DateTime::Locale::en', # need to add this manually
+        'XMPP::Bomber',
+        'XMPP::Bomber::Sender',
+        'XMPP::Bomber::Receiver',
+        'XMPP::Bomber::Account',
+        'XMPP::Bomber::Role::ContentProvider',
+        'XMPP::Bomber::Role::UserProvider',
+        'XMPP::Bomber::UserProvider::Static',
+        'XMPP::Bomber::UserProvider::OpenFire::Random',
+        'XMPP::Bomber::ContentProvider::Gibberish',
+        @{ $args{extra_modules} || [] }
+    );
+
+    my $outfile = $args{outfile} || 'xmpp-bomber.par';
+    my @cmd = (
+        $pp,
+        '-I' => 'lib',
+        "-o" => $outfile,
+        (map { ("-M" => $_) } @modules ),
+        $xmpp_bomber
+    );
+    system(@cmd);
+    if ($? != 0 || ! -e $outfile) {
+        die "Failed to execute @cmd";
+    }
 }