diff --git a/Build.PL b/Build.PL index eecdc72..9abc4d4 100644 --- a/Build.PL +++ b/Build.PL @@ -9,6 +9,8 @@ my $build = Module::Build->new( 'Mojolicious' => 0, 'JSON' => 0, 'Const::Fast' => 0, + 'IO::Socket::SSL' => 0, + 'Net::SSLeay' => 0, }, ); $build->create_build_script; diff --git a/README.md b/README.md index 37a69ec..ab6d21c 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,48 @@ # TDTCli -A cli program written in Perl to watch the TDT. \ No newline at end of file +A cli program written in Perl to watch the TDT. + +## How to install + +Clone this repository and `cd` into the new directory. + +Install the program using cpan: + +```shell +cpan . +``` + +If you get prompted by questions press intro to +use the defaults and run: (Supposing your are +using bash.) + +```shell +. ~/.bashrc +echo $PERL5LIB +``` + +If you don't get an output that looks like + +``` +/home/sergio/perl5/lib/perl5:/home/sergio/perl5/lib/perl5 +``` + +Run `perl -I${HOME}/perl5/lib/ -Mlocal::lib` to +see what enviroment variables you will have to set in your .profile, .shellrc or whatever +file your shell sources. + +Once you have a working local::lib you will +be able to run: + +```shell +tdtcli.pl +``` + +It should get you into a new command line that +looks like: + +``` +tdtcli ~> +``` + +Now type `help` to get further instructions of usage. diff --git a/bin/tdtcli.pl b/bin/tdtcli.pl index 456dc7d..069e4b7 100644 --- a/bin/tdtcli.pl +++ b/bin/tdtcli.pl @@ -32,7 +32,7 @@ const my $COMMANDS => { description => 'Select a ambit.', action => \&select_ambit }, - channnels => { + channels => { description => 'List available channels.', action => \&show_channels }, @@ -60,7 +60,7 @@ my $attribs = $term->Attribs; $attribs->{completion_entry_function} = $attribs->{list_completion_function}; $attribs->{completion_word} = [ keys %$COMMANDS ]; -while ( defined( my $line = $term->readline('~> ') ) ) { +while ( defined( my $line = $term->readline('tdtcli ~> ') ) ) { process_line($line); $term->addhistory($line);