#!/usr/bin/perl
### OPEN SOURCE LICENSE - GNU AFFERO PUBLIC LICENSE Version 3.0 #######
#
# Net::FullAuto Demonstration GUI
# Copyright (C) 2000-2016 Brian M. Kelly
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as
# published by the Free Software Foundation, either version 3 of the
# License, or any later version.
#
# This program is distributed in the hope that it will be useful,
# but **WITHOUT ANY WARRANTY**; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public
# License along with this program. If not, see:
# <http://www.gnu.org/licenses/agpl.html>.
#
#######################################################################
use Wx::Perl::Packager;
use Wx;
use Cwd;
our $begin_cwd=cwd();
chdir "$ENV{PAR_TEMP}/inc" if -e "$ENV{PAR_TEMP}/inc";
our $VERSION = '0.02';
use 5.010;
use strict;
use warnings;
use Wx qw(:everything :id :misc :panel);
use Wx::Event qw(EVT_BUTTON EVT_TREE_SEL_CHANGED EVT_MENU EVT_CLOSE
EVT_MEDIA_LOADED EVT_MEDIA_PLAY EVT_ACTIVATE
EVT_NOTEBOOK_PAGE_CHANGED EVT_MEDIA_STATECHANGED
EVT_DROP_FILES EVT_FILEPICKER_CHANGED EVT_TEXT
EVT_PAINT EVT_CHECKBOX);
use Wx::Media;
use Wx::WebView;
use Wx::DND;
use Wx::Perl::ProcessStream qw( :everything );
use wxPerl::Constructors;
use File::Copy qw(copy);
use File::Find;
use Win32::TieRegistry;
# create the WxApplication
my $app = Wx::SimpleApp->new;
my $frame = Wx::Frame->new(undef, -1,
'FullAuto© Automates EVERYTHING Demonstration',
wxDefaultPosition,[ 800, 600 ]);
SplitterWindow($frame);
$frame->Show;
$app->MainLoop;
# Example specific code
sub SplitterWindow {
my ( $self ) = @_;
my $splitterWindow = Wx::SplitterWindow->new($self, -1);
#get our logo
Wx::InitAllImageHandlers();
# create menu bar
my $bar = Wx::MenuBar->new;
my $file = Wx::Menu->new;
my $help = Wx::Menu->new;
my $edit = Wx::Menu->new;
$file->Append( wxID_EXIT, '' );
$help->Append( wxID_ABOUT, '' );
$edit->Append( wxID_COPY, '' );
$edit->Append( wxID_PASTE, '' );
#my $find_again = $edit->Append( -1, "Find Again\tF3" );
$bar->Append( $file, "&File" );
#$bar->Append( $edit, "&Edit" );
$bar->Append( $help, "&Help" );
$self->SetMenuBar( $bar );
$self->{menu_count} = $self->GetMenuBar->GetMenuCount;
$self->{par_temp} = $ENV{PAR_TEMP} if exists $ENV{PAR_TEMP};
$self->{begin_cwd}= $begin_cwd;
my $logo = Wx::Bitmap->new("fullautogreenbannerpower.png",
wxBITMAP_TYPE_PNG );
my $banner = Wx::BannerWindow->new($splitterWindow);
$banner->SetBitmap( $logo );
$banner->Show(1);
my $rightWindows = Wx::SplitterWindow->new($splitterWindow, -1);
$rightWindows->Show(1);
my $pem_file='';
my $full_pem='';
my $ppk_file='';
my $tagged;
my $ip_txt='';
my $saved_txt='';
my $cre_file='';
opendir(PH,".");
while (my $f=readdir(PH)) {
next if $f eq '.';
next if $f eq '..';
if ($f=~/\.pem$/) {
$pem_file=$f;
} elsif ($f=~/\.ppk$/) {
$ppk_file=$f;
} elsif ($f=~/^ip.txt$/) {
open (FH,"<ip.txt");
my @ip_txt=<FH>;
$ip_txt=join "\n", @ip_txt;
close FH;
$ip_txt=~s/^\s*.*?(\d+[.]\d+[.]\d+[.]\d+).*$/$1/s;
} elsif ($f=~/^saved.txt$/) {
open(FH,"<saved.txt") || warn $!;
my @lines=<FH>;
close FH;
foreach my $line (@lines) {
chomp $line;
$saved_txt=$line if
$line=~s/^\s*.*?(\d+[.]\d+[.]\d+[.]\d+).*$/$1/s;
$ppk_file=$line if $line=~/ppk$/;
$full_pem=$line if $line=~/pem$/;
$cre_file=$line if $line=~/csv$/;
$tagged=$line if $line=~/TagFA/;
}
$tagged=~s/TagFA=// if $tagged;
$pem_file=$full_pem;
$pem_file=~s/^.*\\(.*)$/$1/;
last;
}
}
close PH;
my $righttop = Wx::Notebook->new($rightWindows,-1,[-1,-1],[-1,-1],
wxNO_FULL_REPAINT_ON_RESIZE|wxCLIP_CHILDREN);
$righttop->Show(1);
my $media = Wx::MediaCtrl->new($righttop, -1, '', [-1,-1], [-1,-1], 0 );
my $media2 = Wx::MediaCtrl->new($righttop, -1, '', [-1,-1], [-1,-1], 0 );
my $media3 = Wx::MediaCtrl->new($righttop, -1, '', [-1,-1], [-1,-1], 0 );
my $vid="https://www.youtube.com/watch?v=dW7fXqYbXS0";
my $vid2="Introduction_to_Amazon_Elastic_Compute_Cloud_EC2.mp4";
$media->LoadURI("fullauto_demonstration.mp4");
$media->Show( 1 );
$media->ShowPlayerControls;
$righttop->{media}=$media;
$media2->LoadURI($vid);
$media2->ShowPlayerControls;
$righttop->{media2}=$media2;
$media3->LoadURI($vid2);
$media3->ShowPlayerControls;
$righttop->{media3}=$media3;
EVT_MEDIA_STATECHANGED($righttop, $media,\&main::on_media_loaded);
EVT_MEDIA_STATECHANGED($righttop, $media2,\&main::on_media2_loaded);
EVT_MEDIA_STATECHANGED($righttop, $media3,\&main::on_media3_loaded);
my $webpanel='';my $webpanel2='';my $webpanel3='';
$webpanel = Wx::Panel->new($righttop, wxID_ANY);
my $aws_url='https://www.youtube.com/embed/gRwa1QoOS7M';
$webpanel->{defaulturl}=$aws_url;
my $html = Wx::WebView::New($webpanel, wxID_ANY, $webpanel->{defaulturl});
$html->{defaulturl}=$aws_url;
$webpanel->{webview}=$html;
my $msizer = Wx::BoxSizer->new( wxVERTICAL );
$msizer->Add($html, 1, wxEXPAND|wxALL, 0);
#$msizer->Add($buttonsizer, 0, wxEXPAND|wxALL, 0);
$webpanel->SetSizer( $msizer );
$webpanel->Layout;
$webpanel->Refresh;
$webpanel2 = Wx::Panel->new($righttop, wxID_ANY);
$aws_url='https://www.youtube.com/embed/dW7fXqYbXS0';
$webpanel2->{defaulturl}=$aws_url;
my $html2 = Wx::WebView::New($webpanel2, wxID_ANY, $webpanel2->{defaulturl});
$html2->{defaulturl}=$aws_url;
$webpanel2->{webview}=$html2;
$msizer = Wx::BoxSizer->new( wxVERTICAL );
$msizer->Add($html2, 1, wxEXPAND|wxALL, 0);
$webpanel2->SetSizer( $msizer );
$webpanel2->Layout;
$webpanel2->Refresh;
$webpanel3 = Wx::Panel->new($righttop, wxID_ANY);
$aws_url='https://www.youtube.com/embed/Px7ZPLq4AOU';
$webpanel3->{defaulturl}=$aws_url;
my $html3 = Wx::WebView::New($webpanel3, wxID_ANY, $webpanel3->{defaulturl});
$html3->{defaulturl}=$aws_url;
$webpanel3->{webview}=$html3;
$msizer = Wx::BoxSizer->new( wxVERTICAL );
$msizer->Add($html3, 1, wxEXPAND|wxALL, 0);
$webpanel3->SetSizer( $msizer );
$webpanel3->Layout;
$webpanel3->Refresh;
$self->{media}=$media;
$righttop->AddPage( $webpanel, "FullAuto Demonstration", 0 );
$righttop->AddPage( $webpanel2, "Amazon Web Services", 0 );
$righttop->AddPage( $webpanel3, " Amazon Web Services EC2 ", 0 );
$righttop->Show(1);
my $rightbottom = Wx::Panel->new($rightWindows,-1,[-1,-1]);
# http://avtanski.net/projects/lcd/applet.html
my $notready = Wx::Bitmap->new("notready.jpg",
wxBITMAP_TYPE_JPEG );
my $presshere = Wx::Bitmap->new("presshere.jpg",
wxBITMAP_TYPE_JPEG );
my $underway = Wx::Bitmap->new("underway.jpg",
wxBITMAP_TYPE_JPEG );
my $demodone = Wx::Bitmap->new("demodone.jpg",
wxBITMAP_TYPE_JPEG );
my $steel = Wx::Bitmap->new(
"Scratched_Steel_Texture_by_AaronDesign_Enlarged.jpg",
wxBITMAP_TYPE_JPEG);
$rightbottom->{steel}=$steel;
EVT_PAINT($rightbottom,\&on_paint);
my $statbm = '';
if($pem_file && $ip_txt) {
$statbm = Wx::StaticBitmap->new($rightbottom,-1,$presshere,[440,30]);
} elsif ($saved_txt) {
$statbm = Wx::StaticBitmap->new($rightbottom,-1,$presshere,[440,105]);
} else {
$statbm = Wx::StaticBitmap->new($rightbottom,-1,$notready,[440,105]);
}
$rightbottom->{statbm}=$statbm;
$rightbottom->{notready}=$notready;
$rightbottom->{presshere}=$presshere;
$rightbottom->{underway}=$underway;
$rightbottom->{demodone}=$demodone;
$rightbottom->{righttop}=$righttop;
$rightbottom->DragAcceptFiles(1);
$rightbottom->SetBackgroundColour(Wx::Colour->new(192,192,192));
my $fp1 = '';my $fp2='';
unless ($pem_file && $ip_txt) {
my $pem_f=($full_pem)?$full_pem:'';
$fp1 = Wx::FilePickerCtrl->new( $rightbottom, -1, $pem_f,
"Find and Select AWS Key File -> yourkeyfile.pem",
"PEM files (*.pem)|*.pem|All files|*.*",
[30, 15], [400,-1],wxFLP_USE_TEXTCTRL);
$fp1->SetPath($pem_file) if $pem_file && $ip_txt;
$fp1->Enable(0) if $pem_f;
$fp1->Show(1);
$rightbottom->{fp1}=$fp1;
EVT_FILEPICKER_CHANGED( $rightbottom, $fp1, \&on_change );
my $csv_f=($full_pem)?$cre_file:'';
$fp2 = Wx::FilePickerCtrl->new( $rightbottom, -1, $csv_f,
"Find and Select AWS Credentials file ".
"-> credentials.csv",
"CSV files (*.csv)|*.csv|All files|*.*",
[30, 45], [400,-1],wxFLP_USE_TEXTCTRL);
$fp2->Show(1);
$fp2->Enable(0) if $csv_f;
$rightbottom->{fp2}=$fp2;
EVT_FILEPICKER_CHANGED( $rightbottom, $fp2, \&on_change );
my $button1=wxPerl::Button->new(
$rightbottom,
'Launch + Get Key (.pem)',
id => -1,
position => [440,15],
size => [176,-1],
style => 0,
validator => Wx::wxDefaultValidator(),
name => 'key',
);
$rightbottom->{key}=$button1;
$button1->Enable(0) if $full_pem;
EVT_BUTTON( $rightbottom, $button1, \&main::OnClick_button1 );
my $button2=wxPerl::Button->new(
$rightbottom,
'Get AWS credentials.csv',
id => -1,
position => [440,45],
size => [176,-1],
style => 0,
validator => Wx::wxDefaultValidator(),
name => 'credentials',
);
$rightbottom->{credentials}=$button2;
$button2->Enable(0) if $full_pem;
EVT_BUTTON( $rightbottom, $button2, \&main::OnClick_button2 );
my $ins=($saved_txt)?'Amazon EC2 Dashboard':
'Instance IP Address';
my $button3=wxPerl::Button->new(
$rightbottom,
$ins,
id => -1,
position => [440,75],
size => [176,-1],
style => 0,
validator => Wx::wxDefaultValidator(),
name => 'ip',
);
$rightbottom->{dashboard}=$button3;
if ($saved_txt) {
$button3->SetBackgroundColour(Wx::Colour->new(32,161,35));
} else {
$button3->SetBackgroundColour(Wx::Colour->new("RED"));
}
EVT_BUTTON( $rightbottom, $button3, \&main::OnClick_button3 );
my $ip_=($saved_txt)?$saved_txt:'';
my $ipbox=wxPerl::TextCtrl->new(
$rightbottom,
$ip_,
id => -1,
position => [330,76],
size => [100,-1],
style => 0,
validator => Wx::wxDefaultValidator(),
name => 'ipbox',
);
$rightbottom->{ipbox}=$ipbox;
$self->{ipbox}=$ipbox;
$ipbox->Show(1);
$ipbox->Enable(0) if $ip_;
EVT_TEXT( $rightbottom, $ipbox, \&on_change );
}
my $bmp = Wx::Bitmap->new("fakey.png",
wxBITMAP_TYPE_PNG );
my $bht=105;
if ($pem_file && $ip_txt) {
$bht=30;
}
my $bb=Wx::BitmapButton->new($rightbottom,-1,$bmp,[555,$bht]);
if (($pem_file && $ip_txt) || $saved_txt) {
$bb->Enable(1);
} else {
$bb->Enable(0);
}
my $cleanup_chkbox='';
my $new_server_chkbox='';
my $export_putty_chkbox='';
my $chk=169;
$chk=99 if !exists $rightbottom->{firstpaint}
&& $pem_file && $ip_txt;
$cleanup_chkbox=Wx::CheckBox->new($rightbottom,-1,'',
[118,$chk],[-1,-1],wxTRANSPARENT_WINDOW);
$cleanup_chkbox->SetBackgroundColour(Wx::Colour->new(77,77,77));
$rightbottom->{cucb}=$cleanup_chkbox;
$self->{cucb}=$cleanup_chkbox;
EVT_CHECKBOX( $rightbottom, $cleanup_chkbox,
\&main::OnClick_chkbox1 );
$export_putty_chkbox=Wx::CheckBox->new($rightbottom,-1,'',
[280,$chk],[-1,-1],wxTRANSPARENT_WINDOW);
$export_putty_chkbox->SetBackgroundColour(Wx::Colour->new(77,77,77));
$rightbottom->{epcb}=$export_putty_chkbox;
EVT_CHECKBOX( $rightbottom, $export_putty_chkbox,
\&main::OnClick_chkbox2 );
$new_server_chkbox=Wx::CheckBox->new($rightbottom,-1,'',[440,$chk],
[-1,-1],wxTRANSPARENT_WINDOW);
$new_server_chkbox->SetBackgroundColour(Wx::Colour->new(77,77,77));
$rightbottom->{nscb}=$new_server_chkbox;
$new_server_chkbox->SetValue(1) unless ($ip_txt || $saved_txt);
EVT_CHECKBOX( $rightbottom, $new_server_chkbox,
\&main::OnClick_chkbox3 );
my $eng = Wx::Bitmap->new("engineroom.jpg",
wxBITMAP_TYPE_JPEG );
my $eht=86;
if ($pem_file && $ip_txt) {
$eht=16;
}
my $er=Wx::BitmapButton->new($rightbottom,-1,$eng,[30,$eht]);
$er->Enable(1);
$rightbottom->{bb}=$bb;
$rightbottom->{bmp}=$bmp;
my $gif='';
if (-e "standup.gif") {
$gif=Wx::Animation->new();
# Scrolling Gif Generator
# http://www.ottoschellekens.nl/downloads/downloads.html
$gif->LoadFile("standup.gif",wxANIMATION_TYPE_GIF);
my $ht=115;
if ($pem_file && $ip_txt) {
$ht=40;
}
my $newAni=Wx::AnimationCtrl->new(
$rightbottom,-1, $gif, [118,$ht], [-1,-1], 0 );
$newAni->Play();
}
$rightbottom->{ppk_file} = $ppk_file if $ppk_file;
$rightbottom->{ip_txt} = $ip_txt if $ip_txt;
$rightbottom->{tagged} = $tagged if defined $tagged;
EVT_BUTTON( $rightbottom, $bb, \&fullauto_button);
EVT_BUTTON( $rightbottom, $er, \&enginerm_button);
EVT_DROP_FILES( $rightbottom, \&main::on_drop );
$rightbottom->Show(1);
$splitterWindow->SetMinimumPaneSize(5);
$rightWindows->SetMinimumPaneSize(5);
if ($pem_file && $ip_txt) {
$rightWindows->SplitHorizontally($righttop,$rightbottom,414);
} else {
$rightWindows->SplitHorizontally($righttop,$rightbottom,340);
}
$rightWindows->SetSashGravity(1.0);
$splitterWindow->SplitVertically($banner,$rightWindows,142);
EVT_CLOSE( $self, \&on_close );
EVT_MENU( $self, wxID_ABOUT, \&on_about );
EVT_MENU( $self, wxID_EXIT, sub { $self->Close } );
EVT_MENU( $self, wxID_COPY, \&on_copy );
EVT_MENU( $self, wxID_PASTE, \&on_paste );
#EVT_MENU( $self, wxID_FIND, \&on_find );
#EVT_MENU( $self, $find_again, \&on_find_again );
$self->SetIcon(Wx::Icon->new("FA.ico",wxBITMAP_TYPE_ICO));
$self->Show;
}
sub on_paint {
my $self = shift;
my $dc = Wx::PaintDC->new( $self );
$dc->DrawBitmap( $self->{steel},0,0,0);
my $chk=169;
my $firstpaint=0;
if (!exists $self->{firstpaint} && (exists $self->{ip_txt})) {
$chk=99;
$firstpaint=1;
}
$self->{firstpaint}=$firstpaint;
$dc->DrawText('Launch New FullAuto Server',460,$chk);
$dc->DrawText('Cleanup on Terminate',139,$chk);
$dc->DrawText('Export PuTTY',301,$chk);
}
sub evt_process_exit {
my ($self, $event) = @_;
$event->Skip(1);
my $process = $event->GetProcess;
$process||='';
$process->Destroy if $process;
my $log_out='';
my @lines=();
print "Process Exit Event at ".scalar localtime(time())."\n";
if (-e "putty.log") {
open (FH,"<putty.log");
@lines=<FH>;
close FH;
$log_out=join '',@lines;
}
my $webapp_url='';
my $set_shifted_flag=0;
my $webapp_flag=0;
if (!exists $self->{shifted_cmds} &&
(-1<index $log_out,'Nothing to do') &&
(-1==index $log_out,'ACCESS ')) {
copy "cmds_saved.template", "cmds.txt";
my $iptext=$self->{ip_txt};
$set_shifted_flag=1;
my $proc=Wx::Perl::ProcessStream::Process->new(
"runputty $self->{ppk_file} $iptext",'putty',$self);
$self->{shifted_cmds}=$proc;
$proc->Run;
} elsif (!exists $self->{webapp}) {
my $hadoop_flag=0;my $count=0;
foreach my $line (reverse @lines) {
$count++;
if ($line=~/ACCESS (?:HADOOP|KALI|OPENLDAP|CATALYST)/) {
last;
} elsif ($line=~/ACCESS.*AT:\s+http:/ && $count<70) {
$webapp_url=$line;
$webapp_url=~s/^.*ACCESS.*AT:\s+(http.*)\s*$/$1/;
last;
} elsif ($line=~s/^\s+(http.*)\s*$/$1/ && $count<70) {
$webapp_url=$line;
}
}
}
if (!(exists $self->{webapp}) && $webapp_url) {
#$self->{donetime}=time()+3600 unless exists $self->{donetime};
$self->{dashboard}->SetBackgroundColour(Wx::Colour->new(32,161,35));
$self->{statbm}->SetBitmap($self->{demodone});
$webapp_flag=1;
$self->{webapp}=1;
Wx::LaunchDefaultBrowser($webapp_url,wxBROWSER_NEW_WINDOW);
$self->{bb}->Enable(1);
}
if ((!(exists $self->{shifted_cmds}) && !(exists $self->{webapp})) ||
(!($set_shifted_flag) && !($webapp_flag))) {
#if (!$self->{donetime} || $self->{donetime}<time()) {
$self->{dashboard}->SetBackgroundColour(Wx::Colour->new(32,161,35));
$self->{statbm}->SetBitmap($self->{presshere});
$self->{bb}->Enable(1);
$self->{key}->Enable(1);
$self->{credentials}->Enable(1);
$self->{ipbox}->Enable(1) unless -e "putty.log";
#}
}
}
sub fullauto_button {
my ($self, $event) =@_;
# http://proton-ce.sourceforge.net/rc/wxwidgets \
# /docs/html/wx/wx_processfunctions.html
tag_for_removal($self,$event) unless exists $self->{tagged};
$self->{key}->Enable(0);
$self->{credentials}->Enable(0);
$self->{ipbox}->Enable(0);
$self->{fp1}->Enable(0);
$self->{fp2}->Enable(0);
$self->{dashboard}->SetBackgroundColour(Wx::Colour->new(248,115,17));
$self->{statbm}->SetBitmap($self->{underway});
$self->{nscb}->SetValue(0);
$self->{bb}->Enable(0);
delete $self->{webapp} if exists $self->{webapp};
delete $self->{shifted_cmds} if exists $self->{shifted_cmds};
my $key=$self->{fp1}->GetPath();
$key=~s/^.*\/(.*)$/$1/;
my $keybasename=$key;
$keybasename=~s/^.*\\(.*)\.pem/$1/;
my $i=$self->{ipbox}->GetLineText(0);
my $path=$ENV{HOMEDRIVE}.$ENV{HOMEPATH};
my $iptext='';
if (exists $self->{ip_txt}) {
$iptext=$self->{ip_txt};
} else {
$iptext=$self->{ipbox}->GetLineText(0);
$self->{ip_txt}=$iptext;
}
unless (-e "putty.log") {
Wx::ExecuteCommand("puttycfg $iptext",wxEXEC_SYNC)
}
EVT_WXP_PROCESS_STREAM_EXIT($self, \&evt_process_exit);
unless ((-e "saved.txt") || (-e "ip.txt")) {
unless (-e "$keybasename.ppk") {
Wx::ExecuteCommand("puttykey $keybasename $path",wxEXEC_SYNC);
}
if (exists $ENV{PAR_TEMP} && (-e "$ENV{PAR_TEMP}/inc")) {
copy "$path/$keybasename.ppk", "$ENV{PAR_TEMP}/inc";
} else {
copy "$path/$keybasename.ppk", cwd();
}
unlink "$path/$keybasename.ppk";
my ($rcode,$stdout,$stderr)=('','','');
($rcode,$stdout,$stderr)=Wx::ExecuteStdoutStderr(
"puttyyes $keybasename.ppk ec2-user $i",
wxEXEC_SYNC);
if ($rcode) {
my $title="FullAuto Demo Fatal Error";
my $message="Fatal Error: $stderr";
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxOK|wxICON_EXCLAMATION);
$dialog->SetOKLabels("FullAuto Setup will Exit");
my $choice=$dialog->ShowModal();
return;
}
$self->{ppk_file}="$keybasename.ppk";
my $c="pscp.exe -batch -v -i $keybasename.ppk ".
"MyConfig.pm ec2-user\@$i:/home/ec2-user";
Wx::Shell($c);
$c="pscp.exe -batch -v -i $keybasename.ppk ".
"$keybasename.pem ec2-user\@$i:/home/ec2-user";
Wx::Shell($c);
$c="pscp.exe -batch -v -i $keybasename.ppk ".
"credentials.csv ec2-user\@$i:/home/ec2-user";
Wx::Shell($c);
copy "cmds.template", "cmds.txt";
} elsif (-e "ip.txt") {
copy "cmds_ip.template", "cmds.txt";
} else {
copy "cmds_saved.template", "cmds.txt";
}
open(FH,"+<cmds.txt");
my $out='';my $k=$keybasename.'.pem';
while(my $line=<FH>) {
$line=~s/_p_/$k/eg;
$line=~s/_c_/$self->{tagged}/eg;
$out.=$line;
}
seek(FH,0,0);
print FH $out;
truncate(FH,tell(FH));
close(FH);
open(FH,">saved.txt");
print FH $iptext."\n";
print FH $self->{ppk_file}."\n";
print FH $self->{fp1}->GetPath()."\n";
print FH $self->{fp2}->GetPath()."\n";
print FH "TagFA=".$self->{tagged}."\n";
close FH;
print "GOING TO RUNPUTTY\n";
my $proc1=Wx::Perl::ProcessStream::Process->new(
"runputty $self->{ppk_file} $iptext",'putty',$self);
$proc1->Run;
}
sub enginerm_button {
my ($self, $event) =@_;
my $cwd=cwd();
Wx::Shell("$cwd/engine.exe");
}
sub on_change {
my ($self, $event) =@_;
my $text=$self->{ipbox}->GetLineText(0);
my $key='';my $cred='';
if ($text=~/\d+\.\d+\.\d+\.\d+/ &&
($cred=$self->{fp2}->GetPath()) &&
($key=$self->{fp1}->GetPath())) {
if (exists $ENV{PAR_TEMP} && (-e "$ENV{PAR_TEMP}/inc")) {
copy $cred, "$ENV{PAR_TEMP}/inc";
copy $key, "$ENV{PAR_TEMP}/inc";
} else {
copy $cred, cwd();
copy $key, cwd();
}
$self->{statbm}->SetBitmap($self->{presshere});
$self->{dashboard}->SetLabel('Amazon EC2 Dashboard');
$self->{dashboard}->SetBackgroundColour(Wx::Colour->new(32,161,35));
$self->{bb}->SetBitmap($self->{bmp});
$self->{bb}->Enable(1);
} elsif ($text=$self->{fp1}->GetPath()) {
$self->{statbm}->SetBitmap($self->{notready});
$self->{bb}->Enable(0);
}
}
sub tag_for_removal {
my ($self, $event) =@_;
my $title='Tag FullAuto Server for Later Removal?';
my $message='You have just provided an IP Address for a server '.
'you have manually launched in the Amazon EC2 Cloud. '.
'On this server, FullAuto will install itself, and then '.
'proceed with the Demonstration where FullAuto will stand '.
'up other servers, and exhibit the completely automated '.
'installation and startup of complex software/application '.
'architecture spanning multiple hosts. If you click the '.
'button \'Tag for Removal\', FullAuto will terminate this '.
'server along with all servers launched for the Demonstation '.
'when you click the checkbox \'Cleanup on Terminate\' at the '.
"bottom of the FullAuto Demonstration interface.\n\nWould you ".
"like to tag this server for later termination?\n\n(If you ".
'are new to the Cloud, and only wish to view the FullAuto '.
'Demonstration, it is recommended you choose \'Tag for '.
'Removal\', and later check the box \'Cleanup on Terminate\' '.
'when you are done with the Demonstration, so that you don\'t '.
'incur any unnecessary Amazon fees.)';
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxOK|wxCANCEL|wxICON_EXCLAMATION);
$dialog->SetOKCancelLabels('Tag for Removal','Do NOT Tag');
my $choice=$dialog->ShowModal();
$choice||=0;
if ($choice==5101) {
$self->{tagged}=0;
} else {
$self->{tagged}=1;
}
}
sub OnClick_chkbox1 {
my ($self, $event) =@_;
my $title='Cleanup on Terminate?';
my $message='When this box is checked, upon termination of the '.
'FullAuto© Automates EVERYTHING Demonstration window, '.
'a cleanup process is launched which will destroy all the '.
'servers this Demo creates on Amazon EC2, as well as all files '.
'cached locally. NOTHING will be saved except for this '.
'FullAuto_DEMO_MSWin.exe file itself, which you '.
'may manually delete. You will have to launch a '.
'new FullAuto server from Amazon and download a new '.
'key file and credentials file to run the Demo again, '.
'if you terminate this instance of the Demo with this '.
'box checked. So it is recommended that you DO NOT have '.
'this box checked until you are pretty certain you have no '.
'more need to run the FullAuto Demo, for yourself or others.';
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxOK|wxCANCEL|wxICON_EXCLAMATION);
$dialog->SetOKCancelLabels('OK','CANCEL Cleanup');
my $choice=$dialog->ShowModal() if $self->{cucb}->IsChecked();
$choice||=0;
if ($choice==5101) {
$self->{cucb}->SetValue(0);
}
}
sub OnClick_chkbox2 {
my ($self, $event) =@_;
my $desktop=$ENV{HOMEDRIVE}.$ENV{HOMEPATH}.'\\desktop';
my $filedlg = Wx::FileDialog->new($self, # parent
'Open File', # Caption
$desktop, # Default directory
'putty', # Default file
"putty utilities (*.exe)|*.exe", # wildcard
wxFD_SAVE|wxFD_OVERWRITE_PROMPT); #style
# If the user really selected one
if ($filedlg->ShowModal==wxID_OK)
{
my $filename = $filedlg->GetPath;
my $dir=$filename;
$dir=~s/^(.*)\\.*$/$1/;
copy "putty.exe", $filename;
copy "puttygen.exe", "$dir\\puttygen.exe";
copy "pscp.exe", "$dir\\pscp.exe";
}
$self->{epcb}->SetValue(0);
}
sub OnClick_chkbox3 {
my ($self, $event) =@_;
my $title='Launch New FullAuto Server?';
my $message='';
if (-e "ip.txt") {
$message='It is important to note that this copy of '.
'FullAuto_DEMO_MSWin.exe is supplied with active '.
'credentials enabling you to bypass the somewhat lengthy '.
'FullAuto Server setup, and saving you the task of having '.
'to work with Amazon\'s AWS EC2 web dashboard. If you proceed '.
'with this choice, you will have to first launch a server '.
'from the Amazon AWS EC2 dashboard, create and download a new '.
'private key, and obtain access credentials for the Amazon '.
'API. Then you will have to wait at least 20 minutes for '.
'a new FullAuto setup to be downloaded and installed on the '.
'new FullAuto server before you can obtain the same setup, '.
'access, and ability to run and view the Demo that you have '.
"now.\n\nYOU CANNOT REVERSE THIS DECISION!\n\nOnce you proceed ".
'with the choise to Launch a new FullAuto Server, the '.
'currently active credentials will be permanently discarded '.
"and unrecoverable.\n\nDo you still wish to proceed?";
} elsif (-e "saved.txt") {
$message='You have checked the box to Launch a New FullAuto Server. '.
'Understand that if you proceed with this choice, that your '.
'current settings will be permanently discarded. You will '.
'again have to launch a server from the Amazon AWS EC2 '.
'dashboard, or specify a pre-existing server (use the Amazon '.
'AWS EC2 dashboard to learn the IP Address of any pre-existing '.
'servers.) You will again have to create, download and '.
'specify a credentials.csv file, or use a pre-existing one '.
'(if the credentials are still active in AWS.) You will again '.
'have to indicate a key file (<filename>.pem, a new one you '.
'can choose to create when launching a new server, or '.
'pre-existing if you have one that is still active. You will '.
'again have to wait at least 20 minutes for a new FullAuto '.
'install to take place before you can obtain the same setup '.
'access, and ability to run and view the Demp that have now. '.
"\n\nYOU CANNOT REVERSE THIS DECISION!\n\nOnce you proceed ".
'with the choice to Launch a new FullAuto Server, the current '.
'settings will be permanently discarded and unrecoverable '.
"(except by manual re-entry.)\n\nDo you still wish to proceed?";
} else {
$self->{nscb}->SetValue(1);
$message='There are no saved settings, and a Demo is not currently '.
'running. To run the FullAuto Demo, a fully functioning '.
'FullAuto Server is necessary, which it is the job of this '.
'FullAuto_DEMO_MSWin.exe application/utility to assist you '.
'with. Therefore, this box will remain checked until such '.
'time as the first FullAuto Server install has been launched';
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxOK);
my $choice=$dialog->ShowModal();
return;
}
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxYES|wxNO|wxICON_EXCLAMATION);
my $choice=$dialog->ShowModal() if $self->{nscb}->IsChecked();
$choice||=0;
if ($choice==5104) {
$self->{nscb}->SetValue(0);
} elsif (-e "saved.txt") {
unlink "saved.txt";
unlink "putty.log";
$self->{key}->Enable(1);
$self->{credentials}->Enable(1);
$self->{ipbox}->Clear();
$self->{ipbox}->Enable(1);
$self->{fp1}->SetPath('');
$self->{fp1}->Enable(1);
$self->{fp2}->SetPath('');
$self->{fp2}->Enable(1);
$self->{dashboard}->SetBackgroundColour(Wx::Colour->new("RED"));
$self->{statbm}->SetBitmap($self->{notready});
$self->{nscb}->SetValue(1);
$self->{bb}->Enable(0);
}
}
sub OnClick_button1 {
my ($self, $event) =@_;
my $url='https://portal.aws.amazon.com/gp/aws/developer/'.
'registration/index.html';
Wx::LaunchDefaultBrowser($url,wxBROWSER_NEW_WINDOW);
}
sub OnClick_button2 {
my ($self, $event) =@_;
my $url='https://console.aws.amazon.com/iam/#users';
Wx::LaunchDefaultBrowser($url,wxBROWSER_NEW_WINDOW);
}
sub OnClick_button3 {
my ($self, $event) =@_;
my $url='https://console.aws.amazon.com/ec2';
Wx::LaunchDefaultBrowser($url,wxBROWSER_NEW_WINDOW);
}
sub on_drop {
my( $self, $wxDropFilesEvent ) = @_;
my @files = $wxDropFilesEvent->GetFiles;
if ($files[0]=~/csv$/) {
$self->{fp2}->SetPath($files[0]);
} elsif ($files[0]=~/pem$/) {
$self->{fp1}->SetPath($files[0]);
}
}
sub on_media3_loaded {
my( $self, $event ) = @_;
#Wx::LogMessage( 'Media loaded, start playback' );
unless (exists $self->{done3}) {
$self->{media3}->Play;
$self->{media3}->Pause;
$self->{media3}->Seek(0,0);
$self->{done3}=1;
}
}
sub on_media2_loaded {
my( $self, $event ) = @_;
#Wx::LogMessage( 'Media loaded, start playback' );
unless (exists $self->{done2}) {
$self->{media2}->Play;
$self->{media2}->Pause;
$self->{media2}->Seek(0,0);
$self->{done2}=1;
}
}
sub on_media_loaded {
my( $self, $event ) = @_;
#Wx::LogMessage( 'Media loaded, start playback' );
unless (exists $self->{done}) {
$self->{media}->Play;
$self->{media}->Pause;
$self->{media}->Seek(0,0);
$self->{done}=1;
}
}
sub GoToDefBrowser {
my ( $self ) = @_;
my $url=$self->{webview}->GetCurrentURL();
Wx::LaunchDefaultBrowser($url,wxBROWSER_NEW_WINDOW);
return;
}
sub OnBtnURL {
my ($self, $event) = @_;
my $url=$self->{webview}->GetCurrentURL();
my $dialog = Wx::TextEntryDialog->new
( $self, "Enter a URL to load", "Enter a URL to load",
$url );
my $res = $dialog->ShowModal;
my $rvalue = $dialog->GetValue;
$dialog->Destroy;
return if $res == wxID_CANCEL;
$self->{defaulturl} = $rvalue;
$self->{webview}->LoadURL( $rvalue );
}
sub OnBtnBack {
my ($self, $event) = @_;
$self->{webview}->GoBack if $self->{webview}->CanGoBack;
}
sub OnBtnForward {
my ($self, $event) = @_;
$self->{webview}->GoForward if $self->{webview}->CanGoForward;
}
sub OnBtnHistory {
my ($self, $event) = @_;
my @past = $self->{webview}->GetBackwardHistory;
my @future = $self->{webview}->GetForwardHistory;
my $ptext = '<h3>Backward History</h3><br>';
$ptext .= $_->GetTitle . ' : ' . $_->GetUrl . '<br>' for ( @past );
$ptext .= '<h3>Forward History</h3><br>';
$ptext .= $_->GetTitle . ' : ' . $_->GetUrl . '<br>' for ( @future );
$ptext .= '</font>';
$self->{webview}->SelectAll;
$self->{webview}->DeleteSelection;
$self->{webview}->SetPage($ptext, 'http://localhost:54321/');
}
sub on_find {
my( $self ) = @_;
$self->get_search_term;
$self->search;
return;
}
sub on_find_again {
my( $self ) = @_;
if (not $self->search_term) {
$self->get_search_term;
}
$self->search;
return;
}
sub get_search_term {
my ($self) = @_;
my $search_term = $self->search_term || '';
my $dialog = Wx::TextEntryDialog->new( $self, "",
"Search term", $search_term );
if ($dialog->ShowModal == wxID_CANCEL) {
$dialog->Destroy;
return;
}
$search_term = $dialog->GetValue;
$self->search_term($search_term);
$dialog->Destroy;
return;
}
sub search {
my ($self) = @_;
my $search_term = $self->search_term;
return if not $search_term;
my $code = $self->{source};
my ($from, $to) = $code->GetSelection;
my $last = $code->isa( 'Wx::TextCtrl' ) ? $code->GetLastPosition()
: $code->GetLength();
my $str = $code->isa( 'Wx::TextCtrl' ) ? $code->GetRange(0, $last)
: $code->GetTextRange(0, $last);
my $pos = index($str, $search_term, $from+1);
if (-1 == $pos) {
$pos = index($str, $search_term);
}
if (-1 == $pos) {
return; # not found
}
$code->SetSelection($pos, $pos+length($search_term));
return;
}
sub on_close {
my( $self, $event ) = @_;
chdir $self->{begin_cwd};
$event->Skip;
my $cwd=cwd();
if ($self->{cucb}->IsChecked()) {
if (exists $ENV{PAR_TEMP}) {
chdir "$ENV{PAR_TEMP}\\inc";
copy "cmds_cleanup.template", "cmds.txt";
my $ppk_file='';my $saved_txt;my $full_pem='';
my $cre_file='';my $tagged='';
opendir(PH,'.');
while (my $f=readdir(PH)) {
next if $f eq '.';
next if $f eq '..';
if ($f=~/\.ppk$/) {
$ppk_file=$f;
} elsif ($f=~/^saved.txt$/) {
open(FH,"<saved.txt") || warn $!;
my @lines=<FH>;
close FH;
foreach my $line (@lines) {
chomp $line;
$saved_txt=$line if
$line=~s/^\s*.*?(\d+[.]\d+[.]\d+[.]\d+).*$/$1/s;
$ppk_file=$line if $line=~/ppk$/;
$full_pem=$line if $line=~/pem$/;
$cre_file=$line if $line=~/csv$/;
$tagged=$line if $line=~/TagFA/;
}
$tagged=~s/TagFA=// if $tagged;
}
}
my $i=$self->{ipbox}->GetLineText(0);
my $pem=$full_pem;
$pem=~s/^.*\\(.*)/$1/;
if (-e "cmds.txt") {
open(FH,"+<cmds.txt") || warn $!;
my $out='';
while(my $line=<FH>) {
$line=~s/_p_/$pem/eg;
$line=~s/_c_/$tagged/eg;
$out.=$line;
}
seek(FH,0,0);
print FH $out;
truncate(FH,tell(FH));
close(FH);
my $ping=Wx::ExecuteStdout("tcping $i 22",wxEXEC_SYNC);
$ping=join '',@{$ping};
if ((-1<index $ping,'Port is open') && $ppk_file) {
my $cmd="runcleanup $ppk_file $i";
Wx::ExecuteCommand($cmd,wxEXEC_SYNC)
}
}
my $pardir=$ENV{PAR_TEMP}||'';
$pardir=~s/^(.*)\\.*$/$1/;
copy "saved.txt", "saved.txt.bak";
unlink "saved.txt";
copy "putty.log", "putty.log.bak";
chdir $cwd;
open(FH,">clean_fullauto_demo.bat");
print FH "ping 127.0.0.1 -n 1 -w 2000 > nul\n";
print FH "del /S /Q $pardir\\inc\\putty.log\n";
print FH "rmdir /S /Q $pardir\n";
print FH "ping 127.0.0.1 -n 1 -w 2000 > nul\n";
print FH "del /S /Q $pardir\\inc\\putty.log\n";
print FH "rmdir /S /Q $pardir\n";
print FH 'start /b "" cmd /c del "%~f0"&exit /b';
close FH;
my $sessions=
'HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Sessions';
my $sshhkeys=
'HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\SshHostKeys';
my $jumplist=
'HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Jumplist';
my @sessions=();my $ses='';
open(FH,"reg query $sessions|");
while (my $line=<FH>) {
next if $line=~/^\s*$/;
if (-1<index $line, 'FullAuto') {
chomp($line);
my $key=$line;
$key=~s/^.*\\(.*)\s*$/$1/s;
push @sessions, $key;
open (DH,"reg delete $line /f 2>&1|");
while (my $line=<DH>) {
print $line;
}
close DH;
}
}
close FH;
foreach my $session (@sessions) {
my $ip=$session;
$ip=~s/^.*_(.*)$/$1/;
chomp($ip);
open(FH,"reg query $sshhkeys|");
while (my $line=<FH>) {
next if $line=~/^\s*$/;
if (-1<index $line, $ip) {
my $key=$line;
$line=~s/^\s+(.*?)\s+.*$/$1/;
open (DH,"reg delete $sshhkeys /f /v \"$line\" 2>&1|");
while (my $line=<DH>) {
print $line;
}
close DH;
last;
}
}
open(FH,"reg query $jumplist|");
while (my $line=<FH>) {
next if $line=~/^\s*$/;
if ($line=~/FullAuto/) {
my @rsess=split " |.0", $line;
foreach my $rs (@rsess) {
next if $rs=~/^\s*$/;
next if -1<index $rs,'Recent';
next if -1<index $rs,'sessions';
next if -1<index $rs,'REG_MULTI_SZ';
next if -1<index $rs,'FullAuto';
$ses.="$rs ";
}
$ses=~s/\s*$//;
open (DH,
"reg delete $jumplist /f /v \"Recent sessions\" 2>&1|");
while (my $line=<DH>) {
print $line;
}
close DH;
if ($ses) {
my $c="reg add $jumplist /f /v \"Recent sessions\" /t ".
"REG_MULTI_SZ /d \"$ses\"";
open (DH,"$c 2>&1|");
while (my $line=<DH>) {
print $line;
}
close DH;
}
last;
}
}
}
my @arg=("clean_fullauto_demo.bat");
exec @arg;
}
copy "saved.txt", "saved.txt.bak";
unlink "saved.txt";
copy "putty.log", "putty.log.bak";
unlink "putty.log";
}
}
sub on_about {
my( $self ) = @_;
use Wx qw(wxOK wxCENTRE wxVERSION_STRING);
my $info = Wx::AboutDialogInfo->new;
$info->SetName( "FullAuto Demonstration" );
$info->SetVersion( '0.01' );
$info->SetDescription( 'FullAuto Automates EVERYTHING Demonstration' );
$info->SetCopyright(
"(c) 2000-2016 Brian Kelly <Brian.Kelly\@FullAutoSoftware.net>" );
$info->SetWebSite(
'http://www.FullAutoSoftware.net', 'The FullAuto web site' );
$info->AddDeveloper( 'Brian Kelly <Brian.Kelly@FullAutoSoftware.net>' );
$info->SetIcon(Wx::Icon->new("FA.ico",wxBITMAP_TYPE_ICO));
Wx::AboutBox( $info );
}
sub on_paste {
my( $self ) = @_;
my $code = $self->{source};
my ($from, $to) = $code->GetSelection;
my $str = $code->isa( 'Wx::TextCtrl' ) ? $code->GetRange($from, $to)
: $code->GetTextRange($from, $to);
if (wxTheClipboard->Open()) {
wxTheClipboard->SetData( Wx::TextDataObject->new($str) );
wxTheClipboard->Close();
}
return;
if (wxTheClipboard->Open())
{
if (wxTheClipboard->IsSupported( wxDF_TEXT ))
{
#wxTextDataObject data;
#wxTheClipboard->GetData( data );
#wxMessageBox( data.GetText() );
}
wxTheClipboard->Close();
}
}
# TODO: disallow copy when not the code is in focus
# or copy the text from the log window too.
sub on_copy {
print "ONCOPY\n";
my( $self ) = @_;
my $code = $self->{source};
my ($from, $to) = $code->GetSelection;
my $str = $code->isa( 'Wx::TextCtrl' ) ? $code->GetRange($from, $to)
: $code->GetTextRange($from, $to);
if (wxTheClipboard->Open()) {
wxTheClipboard->SetData( Wx::TextDataObject->new($str) );
wxTheClipboard->Close();
}
return;
}
1;