#!/usr/bin/perl -w
#########################################################################
# Program name: wvdial manager											#
# Version: 0.0.1														#
# Programmer: Amir m. mahmoodi.											#
# E-mail: white_fox_ir@yahoo.com										#
#																		#
#																		#
# This program is free software; you can redistribute it and/or modify	#
# it under the terms of the GNU General Public License as published by	#
# the Free Software Foundation; either version 2 of the License, or		#
# (at your option) 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 Library General Public License for more details.					#
#########################################################################
use strict;
use warnings;
use Term::ANSIColor;


system("clear");
#try to introduce my command program, this is a sample of hash
my %commands = (
    help   =>  \&help,
    dial   =>  \&dial,
    config =>  \&config,
    "q"    =>  \&quit,
	creat  =>  \&creat,
	ver    =>  \&version,
	connections => \&connections,
	which  =>	\&which
);


#main
print color 'bold blue';
print "*********************************\n";
print "*         wvdial-manager        *\n";
print "*         version: 0.0.1        *\n";
print "*********************************\n";
print color 'reset';


#this >> is my command program,where you cant type your command.
while(1){
print ">>";
my $command=<stdin>;chomp $command;

#let's check our commands and if it dosn't exist report that
    if (exists $commands{lc($command)}) {
        &{$commands{$command}};
    } else {
        print "this command dose not exist, type \"help\" for more information\n";
    }

}


#Subroutins
#this place is for write my subroutin
sub version{
		print color 'bold yellow';
		print "This is wvdial-manager, v0.0.1 (Beta).\n";
		print "Written by:Amir m. Mahmoodi<white_fox_ir\@yahoo.com>.\n";
		print "This program is free released under GNU/GPL.\n";
		print "Use \"help\" to see the commands.\n";
		print "This program released without any warranty!.\n";
		print "Reaport Bugs to my eamil and if you want to change this program pleas contact me.\n";
		print color 'reset';
}

sub help{
		print color 'bold red';
		print "use these commands for managing wvdial:\n\n";print color 'reset';
		print "dial: for starting wvdial.\n";
		print "creat: for create connection.\n";
		print "config: for configurtion this program.\n";
		print "connections: to see your connections list.\n";
		print "which: use it,to select the one you want to connect with.\n";
		print "help: for show this tip.\n";
		print "ver: to see the version.\n";
		print "q: for quit this program\n";
}

sub dial{
		print color 'bold red';
		print "For disconnect use Ctrl-C...\n";print color 'reset';
		system ('wvdial');
		return;
}
sub creat{
		print color 'bold red';
		print "In order to use the mwvdial for the first time,\nyou shuld use \"config\" and then \"create\".\n\n";
		print color 'reset';
		print "Enter Connection name:";
       	my $connection_name=<stdin>;chomp $connection_name;
		print "Enter phone number:";
		my $phone=<stdin>;chomp $phone;
		print "Enter username:";
		my $username=<stdin>;chomp $username;
		print "Enter password:";
		my $pass=<stdin>;chomp $pass;

			my $path = $ENV{HOME};
			open (INFILEHANDLE, "< $path/.MWVDIAL/mwvdial.config") or die "Can't open input file because: $! \n";
			open (OUTFILEHANDLE, ">$path/.MWVDIAL/$connection_name\.conection") or die "Can't open output file because: $! \n";
			while(<INFILEHANDLE>){
				$_ =~ s/^#.*1/Phone = $phone/;
   				$_ =~ s/^#.*2/Username =  $username/;
   			    $_ =~ s/^#.*3/Password = $pass/;

				print OUTFILEHANDLE $_;
}

close(INFILEHANDLE);
close(OUTFILEHANDLE);

}

sub config{
			my $path = $ENV{HOME};
			if (!opendir(MWLOG, '$path/.MWVDIAL')){
				&log_folder;
			}
			if(!open(MWVDIAL_LOG, '$path/.MWVDIAL/mwvdial.config')){
				print "Enter the path of wvdial.conf[/etc/wvdial.conf]:";
				my $infile = <stdin>;chomp $infile;
				my $outfile = "$path/.MWVDIAL/mwvdial.config";
				open (INFILEHANDLE, "< $infile") or die "Can't open input file because: $! \n";
				open (OUTFILEHANDLE, "> $outfile") or die "Can't open output file because: $! \n";
				while(<INFILEHANDLE>){
    			$_ =~ s/^[p,P]hone.*\S/#1/;
    			$_ =~ s/^[u,U]sername.*\S/#2/;
    			$_ =~ s/^[p,P]assword.*\S/#3/;
    			print OUTFILEHANDLE $_;
				close(MWVDIAL_LOG);
}

			close(INFILEHANDLE);
			close(OUTFILEHANDLE);
				
}
}

sub log_folder{
			chdir;
			if (!opendir(MWLOG, '.MWVDIAL')){
			mkdir (".MWVDIAL", 0755) || die "Faild to creat this directory: $!";
			return 0;
}
}

	sub connections{
				my $path = $ENV{HOME};
				opendir(CONNECTION, "$path/.MWVDIAL") || die;
				my @connection_name = grep(s/\.conection$//, readdir CONNECTION);			
				my $index = 0;
				my $i = 0;
				for($i=0;$i <= $#connection_name; $i++){
					print $connection_name[$index];
					print "\n";
					$index++;
				}
				closedir(CONNECTION);
}

sub which {
		my $user = $ENV{USER};
		if ("$user" ne "root") {
		print color 'bold red';
		print "You must be root to configure, if your not!, Exit and try as root again.\n\n";print color 'reset';
		&quit
		}else {
		my $path = $ENV{HOME};
		print color 'bold red';
		print "to see your connections use connections command.\n";
		print color 'reset';
		print "Which your connection: ";
		my $connect_name = <stdin>;chomp $connect_name;
		my $input = "$path/.MWVDIAL/$connect_name\.conection";
		open(SOURCE, "$input") || die "Can't use this connection_name: $!";
		open(DEST, "> /etc/wvdial.conf") || die "$!";
		my @contents=<SOURCE>;
		print DEST @contents;
		close(DEST);
		close(SOURCE);		
}
}
sub quit{
		exit;
		closedir(MWLOG);
		
}