Add Poll
 
Options: Text Color Split Pie
 
 
 
 
 
 
 
 
Poll Comment:
Max 500 characters. Remaining characters:
days and minutes. Leave it blank if you don't want to set it now.

Please type the characters exactly as they appear in the image,
without the first 2 and last 2 characters.
The characters must be typed in the same order,
and they are case-sensitive.
Open Preview Preview

You can resize the textbox by dragging the right or bottom border.
Off Topic Comment Insert Spoiler
Insert Hyperlink Insert FTP Link Insert Image Insert E-mail Insert Media Insert Table Insert Table Row Insert Table Column Insert Horizontal Rule Insert Teletype Insert Code Insert Quote Edited Superscript Subscript Insert List /me - my name Insert Marquee Insert Timestamp No Parse
Bold Italicized Underline Insert Strikethrough Highlight
                       
Change Text Color
Insert Preformatted Text Left Align Centered Right Align
resize_wb
resize_hb







Max 5000 characters. Remaining characters:
Text size: %
More Smilies
View All Smilies
Collapse additional features Collapse/Expand additional features Smiley Wink Cheesy Grin Angry Sad Shocked Cool Huh Roll Eyes Tongue Embarrassed Lips Sealed Undecided Kiss Cry
Topic Summary - Displaying 10 post(s). Click here to show all
Posted by: pyragony54
Posted on: Sep 20th, 2017 at 6:26pm
Perfect, works.
Posted by: Dandello
Posted on: Sep 20th, 2017 at 5:04pm
Yeah, that looks a little odd.  Grin

In Subs.pm find
Code (Perl)
Select All
    if ( $hour >= 12 && $hour < 18 ) { 



Add above
Code (Perl)
Select All
    $toffs = toffs($date);
     my ( undef, undef, $hour, undef, undef, undef, undef, undef, undef ) = gmtime($date + $toffs); 

Posted by: pyragony54
Posted on: Sep 20th, 2017 at 4:54pm
18.52 clock (6.52 pm) and good morning Webmaster?
Posted by: pyragony54
Posted on: Sep 20th, 2017 at 5:35am
So it is also good.
Posted by: Dandello
Posted on: Sep 20th, 2017 at 3:46am
Unfortunately, hashes don't stay in order and the list is stored as a hash. You can, however, get the list into alphabetical order.

In Sources/IPLookup.pm find
Code (Perl)
Select All
    my @iplookup_urls = keys %iplookup; 



and replace with
Code (Perl)
Select All
    my @iplookup_urls = ( sort {lc $a cmp lc $b} keys %iplookup); 



The above will order the list case insensitively.

Edited:
OR we can save the keys in list order as @iplookups_urls... Let me think on that.
Posted by: pyragony54
Posted on: Sep 20th, 2017 at 3:11am
Dandello wrote on Sep 19th, 2017 at 7:01pm:
What were you trying to add to the Security Center IP lookup?


Yes, works now, but not in the order as I would like to have it. In settings.pm, however, it is correct.

Code (Perl)
Select All
%iplookup = ('AfriNIC' => 'www.afrinic.net/cgi-bin/whois?searchtext={ip};',
 'APNIC' => 'wq.apnic.net/apnic-bin/whois.pl?searchtext={ip}',
 'ARIN' => 'whois.arin.net/rest/nets;q={ip}?showDetails=true&showARIN=false&ext=netref2',
 'LACNIC' => 'lacnic.net/cgi-bin/lacnic/whois?query={ip}',
 'NCC' => 'https://apps.db.ripe.net/search/query.html?searchtext={ip};',
 'StopForumSpam' => 'http://www.stopforumspam.com/ipcheck/{ip};',
 'CleanTalk' => 'https://cleantalk.org/blacklists/{ip};',
 'AbuseIPDB' => 'http://www.abuseipdb.com/check/{ip};',
 'CountryIPBlocks' => 'https://www.countryipblocks.net/search_ip.php?search_ip={ip};',
 'utrace' => 'http://www.utrace.de/?query={ip};',
 'IP-Location' => 'http://www.iplocationtools.com/{ip}.html',
 'IP2-Location' => 'http://www.ip2location.com/demo/{ip};',
 'WhatIsMyIPAdress' => 'http://whatismyipaddress.com/ip/{ip};',
 );                                                #IPlookup url list
  



Quote:
Lookup 77.22.252.67 auf einem Whois-Server:
ARIN
AbuseIPDB
LACNIC
IP2-Location
NCC
WhatIsMyIPAdress
CountryIPBlocks
CleanTalk
StopForumSpam
utrace
AfriNIC
APNIC
IP-Location


WhatIsMyIPAdress should be at the bottom, as in the settings.pm
Posted by: Dandello
Posted on: Sep 19th, 2017 at 7:01pm
What were you trying to add to the Security Center IP lookup?

try in Settings_Security.pm
find
Code (Perl)
Select All
            $ipset[0] =~ s/[ ]/_/xsm;
             $newset .= qq~'$ipset[0]' => '$ipset[1]',\n~; 



replace with
Code (Perl)
Select All
            if ( $ipset[0] && $ipset[1] ) {
                 $ipset[0] =~ s/[ ]/_/gxsm;
                 $newset .= qq~'$ipset[0]' => '$ipset[1]',\n~;
             } 



I'm guessing an emply line is being passed to that section.
Posted by: pyragony54
Posted on: Sep 19th, 2017 at 5:50pm
I wanted to insert some query modules with IP lookup. This can not be saved. Error message still exists.
Posted by: Dandello
Posted on: Sep 19th, 2017 at 12:51pm
When is this error ocurring?

Posted by: pyragony54
Posted on: Sep 19th, 2017 at 11:24am
Security settings can not be saved.

Quote:
Ein Fehler ist aufgetreten! Use of uninitialized value in concatenation (.) or string at /var/www/vhosts/yabbtest.de/cgi-bin/yabb2/Admin/Settings_Security.pm line 329.