Thank you Risto. Have a nice day. :)
2016-02-10 18:33 GMT+01:00 Risto Vaarandi <risto.vaara...@gmail.com>:
> hi Jaren,
> can you post this to the author of the secwin package? He can be reached
> at http://sourceforge.net/projects/secwin/, and you can also submit
> tickets in this page.
> kind regards,
> risto
>
> 2016-02-10 18:48 GMT+02:00 Jaren Peich <burkol...@gmail.com>:
>
>> Hi,
>>
>> I´m trying to launch the same code with SEC + Cygwin(Perl Module) and SEC
>> + Strawberry Perl and when i use Cygwin it crash!.
>>
>> Scene-I have 2 files parser.conf and alert1.conf with the following code
>> and i want to compare a log input with a list.
>>
>> Log Example:
>>
>> Login5 google.es
>> Login3 kernel.org
>> Login25 debian.org
>>
>> List.txt
>>
>> _______________________________________________________________________________
>> kernel.org
>>
>>
>> _______________________________________________________________________________
>> parser.conf
>>
>> _______________________________________________________________________________
>> type = Single
>> ptype = RegExp
>> continue = takenext
>> desc = $0
>> pattern =Login(\d+)\s([^\s]*)
>> varmap = alert1;log=0;attempt=1;url=2;
>> action = none
>>
>>
>> _______________________________________________________________________________
>> alert1.conf
>>
>> _______________________________________________________________________________
>>
>> type = Single
>> continue= TakeNext
>> desc = $1
>> ptype = regexp
>> pattern = SEC_STARTUP|SEC_RESTART()
>> action = event List
>>
>>
>> type=Single
>> ptype=SubStr
>> pattern=List
>> action= eval %o_Lis (open my $MYFILE, '<','C:\Alerts\List.txt' or die "$!
>> File Not Exist";\
>> @Ls= <$MYFILE>; close $MYFILE; return @Ls;)
>>
>> type=Single
>> ptype=Cached
>> pattern=alert1
>> desc=attempt_$+{attempt}
>> action=eval %o ($urlSent="$+{url}";\
>> foreach $entry (@Ls)\
>> { \
>> $entry=~s/\s//g;\
>> if ($urlSent =~ m/($entry)/g) \
>> {\
>> print "Stimmt";\
>> $string="Stimmt";\
>> open (MYFILE2, '>>C:\Alerts\Output.txt');\
>> print MYFILE2 $string ."\n";\
>> close (MYFILE2);\
>> return 1;\
>> }\
>> }\
>> return 0;\
>> )
>>
>> When i execute with Strawberry Perl + SEC it is working great but when i
>> use Cygwin + SEC it execute and show the file List.txt on the screen but
>> it is unable to compare and generate the output string and writing the
>> file.Someone got the same problem?
>>
>> Thank you in advance. Regards.
>>
>>
>>
>> ------------------------------------------------------------------------------
>> Site24x7 APM Insight: Get Deep Visibility into Application Performance
>> APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
>> Monitor end-to-end web transactions and take corrective actions now
>> Troubleshoot faster and improve end-user experience. Signup Now!
>> http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
>> _______________________________________________
>> Simple-evcorr-users mailing list
>> Simple-evcorr-users@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users
>>
>>
>
------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
_______________________________________________
Simple-evcorr-users mailing list
Simple-evcorr-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users
