Re: Soliciting Multiline SIP Searching Suggestions (state)


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: Soliciting Multiline SIP Searching Suggestions (state)

by tye (Sage)

on Mar 17, 2008 at 21:26 UTC ( [id://674653]=note: print w/replies, xml )

Need Help??

in reply to Soliciting Multiline SIP Searching Suggestions

my $found= 0;
while(  <>  ) {
    if(  0 == $found  &&  /^From: "\Q$Name\E"/  ) {
        $found++;
    } elsif(  1 == $found  &&  /^To: <sip:$Number@/  ) {
        $found++;
    } elsif(  2 == $found  &&  /^Call-ID: (.*)/  ) {
        return $1;
    } elsif(  /^From: /  ||  /^$/  ) {
        $found= 0;
    }
}
[download]

- tye