.
*/
// No direct call
if( !defined( 'YOURLS_ABSPATH' ) ) die();
// Hook the custom function into the 'shunt_add_new_link' event
yourls_add_filter( 'shunt_add_new_link', 'apelly_blacklist_domain_root' );
// Hook the admin page into the 'plugins_loaded' event
yourls_add_action( 'plugins_loaded', 'apelly_blacklist_domain_add_page' );
// Get blacklisted domains from YOURLS options feature and compare with current domain address
function apelly_blacklist_domain_root ( $bol, $url ) {
$return = false;
$domain_list = yourls_get_option ('apelly_blacklist_domain_list');
if ( $domain_list ) {
$domain_list = unserialize ( $domain_list );
foreach($domain_list as $blacklisted_domain) {
if (strpos($url,$blacklisted_domain)) {
// Check if a YourlsBlacklistIPs is installed and active
if (yourls_is_active_plugin( YOURLS_PLUGINDIR .'/BlackListIP/plugin.php' )) {
$IP = yourls_get_IP();
// IP blacklisted already?
ludo_blacklist_ip_root( array( $IP ) ); // <---- dies if ip is blacklisted
// fetch the blacklisted IP addresses
$IP_List = yourls_get_option ('ludo_blacklist_ip_liste');
$IP_List = ( $IP_List ) ? ( unserialize ( $IP_List ) ):((array)NULL);
// add this IP
$Parsed_IP = ludo_blacklist_ip_Analyze_IP ( $IP ) ;
if ( $Parsed_IP != "NULL" ) {
$IP_List[] = $Parsed_IP ;
}
// Update the blacklist
yourls_update_option ( 'ludo_blacklist_ip_liste', serialize ( $IP_List ) );
}
// stop
//yourls_die( 'Blacklisted domain', 'Forbidden', 403 );
"Blacklisted domain.";
die();
}
}
}
return $return;
}
// Add admin page
function apelly_blacklist_domain_add_page () {
yourls_register_plugin_page( 'apelly_blacklist_domain', 'Blacklist domains', 'apelly_blacklist_domain_do_page' );
}
// Display admin page
function apelly_blacklist_domain_do_page () {
if( isset( $_POST['action'] ) && $_POST['action'] == 'blacklist_domain' ) {
apelly_blacklist_domain_process ();
} else {
apelly_blacklist_domain_form ();
}
}
// Display form to administrate blacklisted domains list
function apelly_blacklist_domain_form () {
$nonce = yourls_create_nonce( 'blacklist_domain' ) ;
$domain_list = yourls_get_option ('apelly_blacklist_domain_list','Enter domain addresses here, one per line');
if ($domain_list != 'Enter domain addresses here, one per line' ){
$domain_list_display = implode ( "\r\n" , unserialize ( $domain_list ) );
}else{
$domain_list_display = $domain_list;
}
echo <<BlackList domains
HTML;
}
// Update blacklisted domains list
function apelly_blacklist_domain_process () {
// Check nonce
yourls_verify_nonce( 'blacklist_domain' ) ;
// Update list
$blacklist_form = explode ( "\r\n" , $_POST['blacklist_form'] ) ;
yourls_update_option ( 'apelly_blacklist_domain_list', serialize($blacklist_form) );
echo "Black list updated. New blacklist is " ;
if ( count ( $blacklist_form ) == 0 )
echo "empty.";
else {
echo ":
";
foreach ($blacklist_form as $value) echo $value."
";
}
}
?>