which-forum-perl/

# which-forum.pl script
# (c) 2010 Alexandr A Alexeev, http://remontka.com/

use strict ;

# закомментированные строки — для строгости
# если задача — собрать статистику движков, оставить как есть
# если составить список форумов — раскомментировать

my $data ;
$data .= $_ while ( <> ) ;

# проверить, сколько было Powered by phpBB без ссылки в подвале
print «phpbb n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:www.)?phpbb.com/?»[^>]*>phpBB/i or
#     $data =~ /viewforum.php?[^'»]*f=d+/i or
$data =~ /phpBB-SEO/i or
$data =~ /<link rel=»copyright» href=»(?:http://)?phpBB.com»/i ) ;
print «ipb n »
if ( $data =~ /<a[^>]+href='[^’]*http://(?:www.)?invision(?:board|power).com/?[^’]*'[^>]*>[^<]*IP.Board/i or
$data =~ /<a[^>]+href=»[^»]*http://(?:www.)?invisionboard.com/?»[^>]*>Invision Power Board/i or
$data =~ /<div id=[«‘]{0,1}ipbwrapper[«‘]{0,1}>/i or
$data =~ /index.php?[^'»]*showforum=d+/i ) ;
print «vbulletin n »
if ( $data =~ /Powered by:?[^<]+vBulletin[^<]+(?:Version)?/i or
$data =~ /<meta name=»generator» content=»vBulletin/i or
$data =~ /forumdisplay.php?[^'»]*f=d+/i ) ;
print «smf n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:www.)?simplemachines.org/?»[^>]*>Powered by SMF/i or
$data =~ /index.php?[^'»]*board=d+.0/i ) ;
print «punbb n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:(?:www.)?punbb.org|punbb.informer.com)/?»[^>]*>PunBB/i ) ; #or
#     $data =~ /viewforum.php?[^'»]*id=d+/i);
print «fluxbb n »
#  if($data =~ /viewtopic.php?id=d+/i or
if ( $data =~ /<a[^>]+href=»http://(?:www.)fluxbb.org/?»[^>]*>FluxBB/i ) ;
print «exbb n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:www.)?exbb.org/?»[^>]*>ExBB/i ) ; # or
#     $data =~ /forums.php?[^'»]*forum=d+/i);
print «yabb n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:www.)?yabbforum.com/?»[^>]*>YaBB/i or
$data =~ /YaBB.pl?[^'»]*num=d+/i ) ;
print «dleforum n »
if ( $data =~ /(Powered By DLE Forum)</title>/i or
$data =~ /<a[^>]+href=»[^»]+(?:http://(?:www.)?dle-files.ru|act=copyright)[^»]*»>DLE Forum</a>/i ) ;
print «ikonboard n »
if ( $data =~ /<a[^>]+href=»[^»]*http://(?:www.)?ikonboard.com/?[^»]*»[^>]*>Ikonboard/i or
$data =~ /<meta name=»GENERATOR» content=»Ikonboard/i or
$data =~ /ikonboard.cgi/i ) ;
print «bbpress n »
if ( $data =~ /<meta name=»generator» content=»bbPress/i ) ; # or
#     $data =~ /topic.php?id=d+/i or
#     $data =~ /forum.php?id=d+/i);
print «flashbb n »
#  if($data =~ /forums.php?fid=d+/i or
#     $data =~ /topic.php?fid=d+/i or
if ( $data =~ /<a[^>]+href=»http://(?:www.)?flashbb.net/?»[^>]*>FlashBB/i ) ;
print «stokesit n »
#  if($data =~ /forum.php?f=d+/i or
if ( $data =~ /<a[^>]+href=»http://(?:www.)?stokesit.com.au/?»[^>]*>[^/]*Stokes IT/i ) ;
print «podium n »
#  if($data =~ /topic.php?t=d+/i or
if ( $data =~ /<a[^>]+href=[‘»]?http://(?:www.)?sopebox.com/?[‘»]?[^>]*>Podium/i ) ;
print «usebb n »
#  if($data =~ /forum.php?id=d+/i or
if ( $data =~ /<a[^>]+href=»http://(?:www.)?usebb.net/?»[^>]*>UseBB/i ) ;
print «wrforum n »
#  if($data =~ /index.php?fid=d+/i or
if ( $data =~ /<a[^>]+href=»http://(?:www.)?wr-script.ru/?»[^>]*>WR-Forum/i ) ;
print «yetanotherforumnet n »
if ( $data =~ /Yet Another Forum.net/i or
$data =~ /default.aspx?g=posts&t=d+/i ) ;