#!/usr/bin/perl


use strict;

# Version 0.1.0 051117
# martin.krung@krungkuene.org krungkuene.org
# downloads and install typo3
# makes the thing in the INSTALL.txt file
#

#
# config
#

my $typo3_src = 'typo3_src-3.8.0.tar.gz';
my $typo3_package = 'quickstart-3.8.0.tar.gz';

my $typo3_src_dir = $typo3_src;
my $typo3_package_dir = $typo3_package;

$typo3_src_dir =~ s/(.*).tar.gz/$1/;
$typo3_package_dir =~ s/(.*).tar.gz/$1/;


my  $basedl = 'http://puzzle.dl.sourceforge.net/sourceforge/typo3/';

my $typo3_src_url = $basedl.$typo3_src;
my $typo3_package_url = $basedl.$typo3_package;

my $apacheuser = 'www-data';

my $newdir = 'typo3';


#
# do it
#

download();

entpack();

permissions();

renamedir();

remove_block();

#
# functions
#

sub remove_block{

my $out = `cp -pv $newdir/typo3/install/index.php  $newdir/typo3/install/index2.php`;
print $out;

$out = `head -n 38 $newdir/typo3/install/index.php > $newdir/typo3/install/index2.php`; 
print $out;

$out = `tail -n 10 $newdir/typo3/install/index.php >> $newdir/typo3/install/index2.php`; 
print $out;

$out = `cp -v $newdir/typo3/install/index2.php $newdir/typo3/install/index.php`;
print $out;

}


sub renamedir(){
my $out = `mv -v $typo3_package_dir $newdir`;
print $out;
print "rename directory...\n";
}


sub permissions(){
print "change permissions...\n";

my $out = `chgrp -R $apacheuser  $typo3_src_dir/ $typo3_package_dir/`;
print $out;

$out = `chmod -R g+w,o-rwx $typo3_src_dir/ $typo3_package_dir/`; 
print $out;
}

#entpack

sub entpack(){
print "entpack tgz \n";

my $out = `tar xzf $typo3_src`;
print $out;

$out = `tar xzf $typo3_package`;
print $out;
}

sub download(){

print "downlaod packages ...\n";

my $out = `wget $typo3_src_url`;
print $out;
$out = `wget $typo3_package_url`;
print $out;
}