Select Code to Download

use threads;
use threads::shared;
my $sharedTestVar :shared;

...
if(! GetOptions ('plugin=s' => \$plugin,'config=s' => \$instanceName,'
+debug' => \$debug, 'interface=s' => \$interface, 'mcastAddress=s' => 
+\$mcastAddress, 'mcastPort=s' => \$mcastPort, 'file=s' => \$snoopf, '
+remotePcapForwarder=s' => \$remotePCF, 'netprobe=s' => \$netprobe))
...

msg("info : plugin \"$plugin\" will be connected");
eval (require "$PALIBDIR/$plugin.pm");

$sharedTestVar=6;
$DEBUG && msg("init : set sharedTestVar == $sharedTestVar");

$mcastReaderThread=threads->new(\&doMcastSubscription, $interface,$mca
+stAddress,$mcastPort); 
$mcastReaderThread->detach;

sub doMcastSubscription
{
...
    
    $DEBUG && msg("leaving doMcastSubscription()");
}

while(1)
{
...
...
sleep(5);
}

sub doMcastSubscription
{
...
    $drop=0;    
    }    
}

sub processMessage
{
...
     }     
...
}