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

Reply via email to