Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

all first commit

  • Loading branch information...
commit 7f3015605a33fbdec1f6097d3682a933b08110da 1 parent 02104a9
@dmvieira authored
Showing with 29 additions and 3 deletions.
  1. +0 −3  freegrum.pl
  2. +29 −0 interface.pm
View
3  freegrum.pl
@@ -6,9 +6,6 @@
use module;
use interface;
-#IdentSystem::escreve('laricá','Historico','Trabalho1','sistema');
-#IdentSystem::le('Historico','Trabalho1','sistema');
-#IdentSystem::altera('Historico','Trabalho1','sistema');
say "Diga o nome do trabalho que vai iniciar:";
my $trabalho = <>;
$trabalho = IdentSystem::str_replace('_','-',$trabalho);
View
29 interface.pm
@@ -12,6 +12,8 @@ say "Escolha o que deseja fazer em $trabalho:\n";
say "0 : Sair";
say "1 : Identificacao do Sistema";
say "2 : Diagnostico Estrategico";
+say "3 : Visao Estrategica";
+
my $escolha = <>;
system("clear");
@@ -19,6 +21,7 @@ if (isint($escolha)){
if($escolha == 0) { print "Obrigado por ter usado FreeGrum!"; exit 0;}
elsif($escolha == 1) { Interface::mostra_identsys($trabalho); }
elsif($escolha == 2) { Interface::mostra_diagestrateg($trabalho); }
+ elsif($escolha == 3) { Interface::mostra_visestrateg($trabalho); }
else { Interface::mostra_principal($trabalho);}
@@ -85,6 +88,32 @@ else{
}
}
+sub mostra_visestrateg {
+my $trabalho = shift;
+
+say "Visao Estrategica de $trabalho:\n";
+say "0 : Menu Principal";
+say "1 : Brainstorming";
+say "2 : Eventos Futuros";
+say "3 : Peritos";
+say "4 : Cenarios";
+my $escolha = <>;
+system("clear");
+if (isint($escolha)){
+ if($escolha == 0){ Interface::mostra_principal($trabalho);}
+ elsif($escolha == 1){ Interface::mostra_pergunta('Brainstorming','Interface::mostra_visestrateg($trabalho)','visao', $trabalho); }
+ elsif($escolha == 2){ Interface::mostra_pergunta('Eventos-Futuros','Interface::mostra_visestrateg($trabalho)','visao', $trabalho); }
+ elsif($escolha == 3){ Interface::mostra_pergunta('Peritos','Interface::mostra_visestrateg($trabalho)','visao', $trabalho); }
+ elsif($escolha == 4){ Interface::mostra_pergunta('Cenarios','Interface::mostra_visestrateg($trabalho)','visao', $trabalho); }
+
+ else { Interface::mostra_visestrateg($trabalho)}
+
+}
+else{
+ Interface::mostra_visestrateg($trabalho);
+}
+}
+
sub mostra_pergunta {
my $local = shift;
my $anterior = shift;
Please sign in to comment.
Something went wrong with that request. Please try again.