PureSecure + IP Options

[Blake Frantz <blake () mc net>]

Hello,

I don't recall if I sent this information out before.  If I have, happily
delete.

I needed support in PureSecure to view IP Options so this is what I did:

[ PureSecure CGI  ~2381]

    $UJo8a9 .= "</TR>\n";
    $UJo8a9 .= "<TR HEIGHT=2><TD BGCOLOR=\"$TNr7T7\" COLSPAN=9><SPACER
TYPE=BLOCK HEIGHT=2></TD></TR>";
    
    $UJo8a9 .= "</TABLE>\n<BR>\n";

# My Modifications

        my $sql = qq# SELECT optid, opt_proto, opt_code, opt_len, opt_data
FROM opt WHERE cid = ? #;
        my $prepared = $db->prepare($sql);
           $prepared->execute($GD5mi{'cid'});
        my $opt_info = $prepared->fetchall_arrayref;
        my $rows = $prepared->rows;
           $prepared->finish;
        
        if($rows){
                $UJo8a9 .= qq~<TABLE CELLSPACING=1 CELLPADDING=2 BORDER=0
WIDTH=100%>
                                <TR bgcolor="$GT1y8m2">
                                        <TH
background="$nBc6s2/bg_title.gif" COLSPAN=9>IP Option Information</TH>
                                </TR>
                                <TR BGCOLOR="$O7ZhC">
                                        <TH>opt id</TH>
                                        <TH>opt proto</TH>
                                        <TH>opt code</TH>
                                        <TH>opt len</TH>
                                        <TH>opt data</TH>
                                </TR>
                ~;

                foreach(@$opt_info){
                        $$_[4] = "-" if($$_[4] eq "");  
                        $UJo8a9 .= qq~<TR BGCOLOR="$GT1y8m2">
                                        <TD align="center">$$_[0]</td>
                                        <TD align="center">$$_[1]</td>
                                        <TD align="center">$$_[2]</td>
                                        <TD align="center">$$_[3]</td>
                                        <TD align="center">$$_[4]</td>
                                      </tr>
                        ~;
                }
                                        
                $UJo8a9 .= qq~<TR HEIGHT=2>
                                        <TD BGCOLOR="$TNr7T7"
COLSPAN=9><SPACER TYPE=BLOCK HEIGHT=2></TD>
                              </TR>
                        </table><br>
                ~;
        }

# End my Modifications

}
                        
return $UJo8a9;
}

[ END CODE ]

I use PureSecure for personal use and have given no thought to how this
affects any support contracts with Demarc.

-Blake



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Snort-users mailing list
Snort-users () lists sourceforge net
Go to this URL to change user options or unsubscribe:
https://lists.sourceforge.net/lists/listinfo/snort-users
Snort-users list archive:
http://www.geocrawler.com/redir-sf.php3?list=snort-users