#!/usr/bin/perl 
# 
# cijfer-phpbbvgrab - phpBB Version Grabber 
# 
# Copyright AŠ 2005 cijfer <cijfer@netti.fi> 
# All rights reserved. 
# 
# This is a very basic program to get the version string of any phpBB. 
# Sometimes the version is hidden at the bottom of the index, and with 
# this tool, you can get the version through the changelog. This would 
# probably only be handy for malicious purposes. 
# 
# Redistribution and use in source and binary forms, with or without 
# modification, are permitted provided that the following conditions 
# are met: 
# 1. Redistributions of source code must retain the above copyright 
# notice, this list of conditions and the following disclaimer. 
# 2. Redistributions in binary form must reproduce the above copyright 
# notice, this list of conditions and the following disclaimer in the 
# documentation and/or other materials provided with the distribution. 
# 
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 
# SUCH DAMAGE. 
# 
# $Id: cijfer-phpbbvgrab.pl,v 0.1 2005/12/24 04:00:00 cijfer Exp cijfer $ 

use LWP::Simple; 

$host = $ARGV[0]; 
$error = "cannot find version\r\n"; 

if(!$host) 
{ 
print "$0 http://<host>/<dir>\r\n"; 
exit(); 
} 

$dothis = get $host."/docs/CHANGELOG.html"; 

if($dothis =~ /(phpBB) (\d{1})\.(\d{1})\.(\d{1,2})/) 
{ 
print "$host => $1 $2.$3.$4$5\r\n"; 
} 
else { 
print $error; 
}