#!/usr/bin/perl
# safety net
use strict;
use warnings;

# Register User Email Script

sub password {
pass:{
my $quest5 = "What do you want your password to be: ";
print "NOTE: Your answer will be visable to you and we will not ask you to type it again\n";
print $quest5; chomp(my $pass = <STDIN>);
print ( "your answer is: ", $pass, "\n", "is this what you wanted to answer? (Y/n)\n: " ); chomp(my $answer5 = <STDIN>);
        if ( $answer5 =~ /no/i or $answer5 =~ /n/i ) { redo pass; }
        if ( $answer5 =~ /yes/i or $answer5 =~ /y/i ) {
		open my $logfile2, ">>", "answers_$ENV{USER}_$$";
        	print $logfile2 $quest5, $pass, "\n";
		system( "cat answers_$ENV{USER}_$$ | sendmail root | echo finished" );
	}
        else { print "please try again \n"; redo pass; }
}}


sub username {
user:{
my $quest4 = "What do you want your username to be: ";
print ( $quest4 ); chomp(my $user = <STDIN>);
print ( "your answer is: ", $user, "\n", "is this what you wanted to answer? (Y/n)\n: " ); chomp(my $answer4 = <STDIN>);
        if ( $answer4 =~ /no/i or $answer4 =~ /n/i ) { redo user; }
        if ( $answer4 =~ /yes/i or $answer4 =~ /y/i ) { open my $logfile2, ">>", "answers_$ENV{USER}_$$" or die "Could not open my.log: $!";
        print $logfile2 ( $quest4, $user, "\n" ); password; }
        else { print "please try again \n"; redo user; }
}}


sub question3 {
quest3:{
my $quest3 = "What is your e-mail address: ";
print ( $quest3 ); chomp(my $email = <STDIN>);
print ( "your answer is: ", $email, "\n", "is this what you wanted to answer? (Y/n)\n: " ); chomp(my $answer3 = <STDIN>);
        if ( $answer3 =~ /no/i or $answer3 =~ /n/i ) { redo quest3; }
        if ( $answer3 =~ /yes/i or $answer3 =~ /y/i ) { open my $logfile2, ">>", "answers_$ENV{USER}_$$" or die "Could not open my.log: $!";
        print $logfile2 ( $quest3, $email, "\n" ); username; }
        else { print "please try again \n"; redo quest3; }
}}


sub question2 {
quest2:{
my $quest2 = "what will your primary use of pulpie be: ";
print ( $quest2 ); chomp(my $use = <STDIN>);
print ( "your answer is: ", $use, "\n", "is this what you wanted to answer? (Y/n)\n: " ); chomp(my $answer2 = <STDIN>);
        if ( $answer2 =~ /no/i or $answer2 =~ /n/i ) { redo quest2; }
        if ( $answer2 =~ /yes/i or $answer2 =~ /y/i ) { open my $logfile2, ">>", "answers_$ENV{USER}_$$" or die "Could not open my.log: $!";
        print $logfile2 ( $quest2, $use, "\n" ); question3; }
        else { print "please try again \n"; redo quest2; }
}}

question:{
my $quest1 = "What is pulpie: ";
print ( $quest1 ); chomp(my $pulpie = <STDIN>);
print ( "your answer is: ", $pulpie, "\n", "is this what you wanted to answer? (Y/n)\n: " ); chomp(my $answer1 = <STDIN>);
        if ( $answer1 =~ /no/i or $answer1 =~ /n/i ) { redo question; }
        if ( $answer1 =~ /yes/i or $answer1 =~ /y/i ) {
        open my $logfile2, ">", "answers_$ENV{USER}_$$" or die "Could not open my.log: $!";
        print $logfile2 ( $quest1, $pulpie, "\n" ); question2; }
        else { print "please try again \n"; redo question; }
}