initial commit of this alpha project
This commit is contained in:
parent
87f5e6cc2d
commit
28a86d9a5b
275
connex.pl
Normal file
275
connex.pl
Normal file
@ -0,0 +1,275 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use strict;
|
||||
use Curses::UI;
|
||||
use Net::Telnet;
|
||||
|
||||
my $HOST_DEFAULT = "nightfall.city";
|
||||
my $PATHSPEC_DEFAULT = '';
|
||||
my $PORT_DEFAULT = 1900;
|
||||
my $PROT_NEX = "nex://";
|
||||
|
||||
my $home_default= $PROT_NEX . $HOST_DEFAULT;
|
||||
|
||||
my $host = "nightfall.city";
|
||||
my $port = "1900";
|
||||
my $pathspec = "";
|
||||
my $docname = "";
|
||||
my $doctype = "txt";
|
||||
my $dot_ext = ".";
|
||||
|
||||
my @history;
|
||||
|
||||
|
||||
my $statusbar;
|
||||
my $win1;
|
||||
my $cui = new Curses::UI( -color_support => 1 );
|
||||
my $connect = new Net::Telnet (Timeout => 10,
|
||||
Errmode => 'return');
|
||||
my @menu = (
|
||||
{ -label => 'File',
|
||||
-submenu => [
|
||||
{ -label => 'Go to Link ^G', -value =>\&goto_link_dialog },
|
||||
{ -label => 'Change Site ^C', -value =>\&goto_site_dialog },
|
||||
{ -label => 'Back ^B', -value => \&goto_back },
|
||||
{ -label => 'History ^H', -value => \&history_status_dialog },
|
||||
{ -label => 'Exit ^Q', -value => \&exit_dialog }
|
||||
]
|
||||
},
|
||||
|
||||
);
|
||||
|
||||
sub exit_dialog()
|
||||
{
|
||||
my $return = $cui->dialog(
|
||||
-message => "Really quit?",
|
||||
-title => "Are you sure?",
|
||||
-buttons => ['yes', 'no'],
|
||||
|
||||
);
|
||||
|
||||
exit(0) if $return;
|
||||
}
|
||||
|
||||
sub goto_link_dialog()
|
||||
{
|
||||
my $return = $cui->question(-question => "This is [$host/ $pathspec]. Enter destination link:",
|
||||
-answer => $pathspec,
|
||||
);
|
||||
navigate($return);
|
||||
}
|
||||
|
||||
|
||||
sub goto_site_dialog()
|
||||
{
|
||||
|
||||
my $return = $cui->question(-question => "This is [$host/ $pathspec]. Visit site:",
|
||||
-answer => $host,
|
||||
);
|
||||
if ($return){
|
||||
my $site = $return;
|
||||
if($site ne ''){
|
||||
$host = $site;
|
||||
add_history($host);
|
||||
load($pathspec);
|
||||
update_status_bar();
|
||||
}
|
||||
history_status_dialog();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub goto_back()
|
||||
{
|
||||
my $fetched = fetch_history();
|
||||
if($fetched) {
|
||||
$pathspec =$fetched;
|
||||
load($pathspec);
|
||||
update_status_bar();
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
sub navigate{
|
||||
my $link = shift;
|
||||
if ($link){
|
||||
if($link ne ''){
|
||||
$pathspec = $link;
|
||||
add_history($pathspec);
|
||||
load($pathspec);
|
||||
}else {
|
||||
$pathspec = '';
|
||||
}
|
||||
update_status_bar();
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub update_status_bar
|
||||
{
|
||||
my $statusbar = $win1->getobj("status");
|
||||
$statusbar->text("Current site: $host, current link: [$pathspec]");
|
||||
$statusbar->draw();
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub add_history
|
||||
{
|
||||
my $link = shift;
|
||||
print ("link $link");
|
||||
push(@history, $link);
|
||||
history_status_dialog();
|
||||
return;
|
||||
}
|
||||
|
||||
sub fetch_history
|
||||
{
|
||||
my $latest;
|
||||
if(@history) {
|
||||
$latest = pop(@history);
|
||||
return $latest;
|
||||
}else{
|
||||
return($PATHSPEC_DEFAULT);
|
||||
}
|
||||
history_status_dialog();
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub history_status_dialog
|
||||
{
|
||||
if(@history){
|
||||
my $history_list = join(", ", @history);
|
||||
my $return = $cui->status(-message => $history_list);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
my $menu = $cui->add(
|
||||
'menu','Menubar',
|
||||
-menu => \@menu,
|
||||
-fg => "blue",
|
||||
);
|
||||
|
||||
|
||||
$win1 = $cui->add(
|
||||
'win1', 'Window',
|
||||
-border => 1,
|
||||
-y => 1,
|
||||
-bfg => 'red',
|
||||
-vscrollbar => 'right',
|
||||
);
|
||||
|
||||
my $texteditor = $win1->add("browser", "TextViewer",
|
||||
-text => "Start Page",
|
||||
-border => 1,
|
||||
-padtop => 0,
|
||||
-padbottom => 3,
|
||||
-showlines => 0,
|
||||
-sbborder => 0,
|
||||
-vscrollbar => 1,
|
||||
-hscrollbar => 1,
|
||||
-showhardreturns => 0,
|
||||
-wrapping => 0, # wrapping slows down the editor :-(
|
||||
);
|
||||
|
||||
|
||||
$statusbar = $win1->add("status", "TextViewer",
|
||||
-border => 1,
|
||||
-bfg => 'red',
|
||||
-y => -1,
|
||||
-height => 1,
|
||||
-width => -1,
|
||||
-reverse => 1,
|
||||
-paddingspaces => 1,
|
||||
-text => "Current site: $HOST_DEFAULT, current link: [/]",
|
||||
);
|
||||
|
||||
|
||||
|
||||
|
||||
#key bindings, should match menu items
|
||||
$cui->set_binding(sub {$menu->focus()}, "\cX");
|
||||
$cui->set_binding( \&exit_dialog , "\cQ");
|
||||
$cui->set_binding( \&goto_link_dialog , "\cG");
|
||||
$cui->set_binding( \&goto_back , "\cB");
|
||||
$cui->set_binding( \&goto_site_dialog , "\cC");
|
||||
|
||||
|
||||
|
||||
$texteditor->focus();
|
||||
load('');
|
||||
$cui->mainloop();
|
||||
|
||||
|
||||
#pick apart nex:// urls, which we should be using
|
||||
#sub parse_url #need to pass in url; and host, pathspec, file variables to be filled
|
||||
#{
|
||||
# my $url = @_[0];
|
||||
# my $host = url;
|
||||
# host =~ s/^nex://([a-z0-9]*)\/[a-z0-9\/\.]*$/$1/;
|
||||
# my $pathspec = url;
|
||||
# pathspec =~ s/^nex://[a-z0-9]*(\/[a-z0-9\/]*)[[a-z0-9\.]*$)/$1/;
|
||||
# my $file = $url
|
||||
#
|
||||
#}
|
||||
|
||||
|
||||
#make nex:// urls from parts, relative urls
|
||||
#sub construct_valid_url #protocol, host, pathspec
|
||||
#{
|
||||
# my $protocol = shift;
|
||||
# my $host = shift;
|
||||
# my $pathspec = shift;
|
||||
# my $file = shift;
|
||||
# my $url = $protocol;
|
||||
#need error handling
|
||||
#what about the end slash and files vs index?
|
||||
# $url = $protocol . $host;
|
||||
# if ($pathspec){
|
||||
# $url = $url . '/' . $pathspec;
|
||||
# if ($file){
|
||||
# $url = $url . '.' $file;
|
||||
# }
|
||||
# }
|
||||
# return $url;
|
||||
#}
|
||||
|
||||
|
||||
|
||||
sub load
|
||||
{
|
||||
my $pathspec = shift;
|
||||
my @lines;
|
||||
my $ok;
|
||||
$connect->host($host);
|
||||
$connect->port($port);
|
||||
$ok= $connect->open($host);
|
||||
$ok= $connect->print($pathspec);
|
||||
@lines =$connect->getlines(ErrMode=> 'return');
|
||||
print $connect->eof();
|
||||
die unless $connect->eof();
|
||||
$connect->close();
|
||||
my $widget= $texteditor;
|
||||
my $loaded_text ="";
|
||||
my $currentline;
|
||||
my $count=0;
|
||||
foreach $currentline (@lines){
|
||||
if ($currentline =~ m/^=>/){
|
||||
$count+=1;
|
||||
$currentline =~ s/^=>(.*$)/[$count\]$1/;
|
||||
}
|
||||
$loaded_text= $loaded_text . $currentline;
|
||||
}
|
||||
$widget->text($loaded_text);
|
||||
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user