<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

#
# This script handles testing the retrieval of affected files
#

use strict;
use lib "/usr/share/scmbug/lib";

use Scmbug::ActivityUtilities;

# Arg0 = Configuration file

main ( @ARGV );
exit 0;



#
# Main workhorse
#
sub main {
    my ( $bugids ) = ( @_ );

    my $activityUtils = Scmbug::ActivityUtilities-&gt;new( "localhost" , @DEVEL_CONFIG_PORT_NUMBER );
    my $results = $activityUtils-&gt;get_affected_files( $bugids );
    
    $activityUtils-&gt;printData( $results );
}



</pre></body></html>