Changeset 34

Show
Ignore:
Timestamp:
02/17/05 17:23:41
Author:
tobias
Message:

View cache IP information service

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plugins/dnsbl/dnsbl.pl

    r33 r34  
    4242        domainbl_enabled domainbl_moderate domainbl_service 
    4343        proxycheck_enabled proxycheck_moderate proxycheck_ports proxycheck_timeout proxycheck_autoban 
    44         caching_enabled cache_limit 
     44        caching_enabled cache_limit cache_ip_infoservice 
    4545        headers_enabled headers_moderate headers_ignore 
    4646        urlcount_enabled urlcount_moderate_limit urlcount_block_limit 
    …… 
    9898    $data->{caching_enabled} = 1 unless exists $data->{caching_enabled}; 
    9999    $data->{cache_limit} = 100 unless exists $data->{cache_limit}; 
     100    $data->{cache_ip_infoservice} = q{http://centralops.net/co/DomainDossier.aspx?}. 
     101                                    q{dom_whois=1&net_whois=1&dom_dns=1&addr=%ip%} 
     102        unless exists $data->{cache_ip_infoservice}; 
    100103 
    101104    $data->{headers_enabled} = 0 unless exists $data->{headers_enabled}; 

  • trunk/plugins/dnsbl/mt-dnsbl.cgi

    r24 r34  
    8989        $c->{$ip}->{ip} = Socket::inet_aton($ip); 
    9090        $c->{$ip}->{ipaddr} = $ip; 
     91        $c->{$ip}->{iptext} = $ip; 
    9192        $c->{$ip}->{action} = $result; 
    9293        $c->{$ip}->{result} = $actions{$result}; 
    …… 
    116117        MT::Util::mark_odd_rows(\@data); 
    117118    } 
     119    my $data = MT::Plugin::DNSBL->instance->get_config_hash(); 
     120    my $service=$data->{cache_ip_infoservice}; 
     121    if($service =~ /%ip%/) { 
     122        foreach (@data) { 
     123            my $dest=$service; 
     124            $dest=~s/%ip%/$_->{ipaddr}/eg; 
     125            $_->{iptext}=qq{<a href="$dest">$_->{ipaddr}</a>}; 
     126        } 
     127    } 
    118128    $param{cache_loop} = \@data; 
    119  
    120     my $data = MT::Plugin::DNSBL->instance->get_config_hash(); 
    121129    $param{cache_limit} = $data->{cache_limit}; 
    122130    $app->build_page('view_cache.tmpl', \%param); 

  • trunk/plugins/dnsbl/tmpl/dnsbl.tmpl

    r32 r34  
    110110    <div id="caching_prefs" class="sub-field" <TMPL_IF NAME=CACHING_ENABLED>style="display: block"</TMPL_IF>> 
    111111        Number of results to cache: <input type="text" name="cache_limit" value="<TMPL_VAR NAME=CACHE_LIMIT ESCAPE=HTML>" /><br /> 
     112        <p> 
     113        IP information service on "View cache" screen (provides more information about an IP address in the cache; %ip% will be replaced by the IP address of the current entry)<br /> 
     114        <input type="text" name="cache_ip_infoservice" size="80" value="<TMPL_VAR NAME=CACHE_IP_INFOSERVICE ESCAPE=HTML>" /> 
     115        </p> 
    112116    </div> 
    113117 

  • trunk/plugins/dnsbl/tmpl/view_cache.tmpl

    r25 r34  
    2020<tr class="<TMPL_IF NAME=IS_ODD>odd<TMPL_ELSE>even</TMPL_IF>"> 
    2121<td><TMPL_IF NAME=BANNED><a href="?__mode=unban_ip&amp;ip=<TMPL_VAR NAME=IPADDR>&amp;blog_id=<TMPL_VAR NAME=BLOG_ID>">Unban</a><TMPL_ELSE><a href="?__mode=ban_ip&amp;ip=<TMPL_VAR NAME=IPADDR>&amp;blog_id=<TMPL_VAR NAME=BLOG_ID>">Ban</a></TMPL_IF></td> 
    22 <td><TMPL_VAR NAME=IPADDR></td> 
     22<td><TMPL_VAR NAME=IPTEXT></td> 
    2323<td><TMPL_VAR NAME=HITS></td> 
    2424<td><span style="text-decoration: underline; cursor: pointer" title="<TMPL_VAR NAME=REASON ESCAPE=HTML>"><TMPL_VAR NAME=RESULT></span></td>