#----------------------------------------------------------------------------------

# Installation of Cygwin.
# V1.1 10/12/2007 Martin Aldrin
# V1.2 23/06/2016 Erik Linder-Noren
#----------------------------------------------------------------------------------
use File::Copy;
use Term::ANSIColor qw(:constants);
use Time::local;
#use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year+=1900;
$cygwinpath = "c:/cygwin";
$startcygwin1 = "$cygwinpath/bin/bash.exe -c \"echo opening and closing
cygwin...done.\"";
$startcygwin2 = "$cygwinpath/bin/mintty.exe -e /bin/bash --login -i \"echo opening
and closing cygwin...done.\"";
#$signum = $ENV{'USERNAME'};
$signum = `$cygwinpath/bin/whoami`; chomp($signum);
$permissions = "$cygwinpath/bin/chmod 755 $cygwinpath/cygwin.bat";
$installbackup = "installbackup";
$date_time = "$year-$mon-$mday\_$hour.$min";
$mkdir = "$cygwinpath/bin/mkdir.exe -p $cygwinpath/tmp/$installbackup/$date_time";
$mkuser = "$cygwinpath/bin/mkdir.exe -p $cygwinpath/home/$signum";

#CYGWIN.BAT
$cygwinbat ="\@echo off\n
C:
chdir C:\\cygwin\\bin\n
set USER=$signum
set HOME=/home/$signum
set SHELL=/bin/bash
mintty -e /bin/bash --login -i";
#PROFILE
$profile = "export
PATH=\"/usr/bin:/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/bin/X11:/usr/local/sbin:/
root/bin:\$PATH\"\n
for i in /etc/profile.d/*.sh ; do
if \[ -f \$i \]; then
. \$i
fi
done
\nexport USER=$signum
export HOME=/home/$signum
export SHELL=/bin/bash
mkdir -p \$HOME\ncd \$HOME
source \$HOME/.bashrc";

#BASHRC
$bashrc='unset PROMPT_COMMAND
export PS1="\\[\\033[1m\\][\\w]\\\\$\\[\\033[0m\\] "
alias ls="ls -FX"
set -o notify
set -o ignoreeof
shopt -s cdspell
shopt -s cdable_vars
shopt -s checkhash
shopt -s checkwinsize
shopt -s sourcepath
shopt -s histappend
';
$bashrc="$bashrc
export PATH=\$PATH:/home/$signum/moshell
";
#INPUTRC
$inputrc = "set bell-style visible
set convert-meta Off
set output-meta On
set input-meta On
set completion-ignore-case on
set completion-query-items 150
set mark-directories on
set visible-stats On
set show-all-if-ambiguous On
set expand-tilde On
\"\\e\[D\": backward-char
\"\\e\[C\": forward-char
\"\\e\[A\": history-search-backward
\"\\e\[B\": history-search-forward
\"\\e\[7~\": beginning-of-line
\"\\e\[8~\": end-of-line
\"\\e\[1~\": beginning-of-line
\"\\e\[4~\": end-of-line
\"\\e\[3~\": delete-char
\"\\e\[2~\": menu-complete
\"\\M-\[2~\": paste-from-clipboard # Insert
\"\\M-q\": menu-complete
\"\\C-d\": delete-char
\"\\C-l\": clear-screen
\"\\C-xdf\": dump-functions
\"\\C-xdv\": dump-variables
\"\\C-xdm\": dump-macros
";

#minttyrc
$minttyrc = "Term=xterm-256color
Font=Lucida Console
BoldBlack=0,43,54
BoldWhite=253,246,227
BoldAsFont=-1
ForegroundColour=255,255,255
CursorColour=255,255,255
FontHeight=12
ScrollbackLines=65000
";

if(-e "$cygwinpath/bin/mintty.exe"){
if(-e "$cygwinpath/bin/unzip.exe"){
}
}else{
print RED "File $cygwinpath/bin/mintty.exe or $cygwinpath/bin/unzip.exe is
missing,\nreinstall cygwin.\n"; print WHITE"";
goto ENDFILE;
}
@check;
system($mkdir);
system($startcygwin1); #Start Cygwin.
#CYGWINBAT
$movecygwinbat = "$cygwinpath/bin/mv.exe $cygwinpath/cygwin.bat
$cygwinpath/tmp/$installbackup/$date_time/cygwin.bat";
OpenFile("cygwin.bat","$movecygwinbat","$cygwinbat","tmp");
system($permissions); #Change permissions.
push(@check, Checkfile("$cygwinpath/cygwin.bat"));
#PROFILE
$moveprofile = "$cygwinpath/bin/mv.exe $cygwinpath/etc/profile
$cygwinpath/tmp/$installbackup/$date_time/profile";
OpenFile("/etc/profile","$moveprofile","$profile");
push(@check, Checkfile("$cygwinpath/etc/profile"));
`set USER=$signum
set HOME=/home/$signum

set SHELL=/bin/bash`;
system($startcygwin2); #Start Cygwin.

#USERFOLDER
if(!(-d "$cygwinpath/home/$signum")){
system($mkuser);
}
#BASHRC
if(-e "$cygwinpath/home/$signum/.bashrc"){
$movebashrc = "$cygwinpath/bin/mv.exe $cygwinpath/home/$signum/.bashrc
$cygwinpath/tmp/$installbackup/$date_time/.bashrc";
}
OpenFile("/home/$signum/.bashrc","$movebashrc","$bashrc");
push(@check, Checkfile("$cygwinpath/home/$signum/.bashrc"));
#INPUTRC
if(-e "$cygwinpath/home/$signum/.inputrc"){
$moveinputrc = "$cygwinpath/bin/mv.exe
$cygwinpath/home/$signum/.inputrc
$cygwinpath/tmp/$installbackup/$date_time/.inputrc";
}
OpenFile("/home/$signum/.inputrc","$moveinputrc","$inputrc");
push(@check, Checkfile("$cygwinpath/home/$signum/.inputrc"));

#MINTTYRC
if(-e "$cygwinpath/home/$signum/.minttyrc"){
$moveminttyrc = "$cygwinpath/bin/mv.exe
$cygwinpath/home/$signum/.minttyrc
$cygwinpath/tmp/$installbackup/$date_time/.minttyrc";
}
OpenFile("/home/$signum/.minttyrc","$moveminttyrc","$minttyrc");
push(@check, Checkfile("$cygwinpath/home/$signum/.minttyrc"));

if(@check != null){
print RED"FAILED, FILES IS MISSING\n";
print @check; print WHITE"";
goto ENDFILE;
}else{
print GREEN"Patching of files seems to be ok!\n"; print WHITE"";
}
sub OpenFile(){
my ($file,$move,$var) =@_;
system($move);
 open(NEWFILE, ">$cygwinpath/$file");
print NEWFILE "$var";

close(NEWFILE);
}
sub Checkfile(){
my ($file) = @_;
#print "$file\n";
if(-e "$file"){

}
else{
return "$file\n";
}
}

ENDFILE:
exit;