diff --git a/Changelog b/Changelog index 22db3d5..bc0503e 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,12 @@ +0.4.2: +ADDED: If run in interactive mode, note will at first do a list command. +FIXED: A bug caused note to save bogus timestamps after editing a note. +CHANGED: It does no more print 3 newlines before the menu in interactive mode. +FIXED: Some more vars will be resetted during each loop in interactive mode. + $ListType. + + + 0.4.1: ADDED: The install.sh script for the mysql version is no able to install the required Mysql module directly from CPAN, thanks to David A. Bandel! diff --git a/README b/README index 97634b8..287fd77 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -note 0.4.1 by Thomas Linden, 18/01/2000 +note 0.4.2 by Thomas Linden, 23/01/2000 Introduction @@ -258,4 +258,4 @@ Author Last changed ============ - 18.01.2000 + 23.01.2000 diff --git a/VERSION b/VERSION index 267577d..2b7c5ae 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -0.4.1 +0.4.2 diff --git a/binary-db/note b/binary-db/note index 85ce26d..e97bf33 100755 --- a/binary-db/note +++ b/binary-db/note @@ -61,7 +61,7 @@ sub import; use IO::Seekable; -$version = "0.4.1 (binary database)"; +$version = "0.4.2 (binary database)"; # process command line args @@ -374,8 +374,9 @@ sub new } # read it in ($note) $note = ""; - open E, "<$TEMP" or die "Could not open $TEMP\n"; - $c = 0; + #open E, "<$TEMP" or die "Could not open $TEMP\n"; + open E, "<$TEMP" or print "...edit process interupted! No note has been saved.\n"; return; + $c = 0; while() { $note = $note . $_; @@ -652,12 +653,18 @@ sub interactive . $B . "E" . $BB . " Edit " . $B . "?" . $BB . " Help " . $B . "Q" . $BB . " Quit ] command> "; + # Initially do a list command! + $maxlen += $timelen; + &list; # per default let's list all the stuff: for(;;) { #&list; + # reset time + $time = `date +%d\".\"%m\".\"%Y\" \"%T`; + chomp $time; + $ListType = ""; $maxlen = $maxlen_save; - print "\n\n\n"; print C $menu; # endless until user press "Q" or "q"! $char = ; diff --git a/mysql-db/note b/mysql-db/note index 0f62bc3..ed3857a 100755 --- a/mysql-db/note +++ b/mysql-db/note @@ -75,7 +75,7 @@ sub list; sub help; sub import; -$version = "0.4.1 (mysql database)"; +$version = "0.4.2 (mysql database)"; # process command line args if($ARGV[0] eq "") @@ -368,7 +368,8 @@ sub new } # read it in ($note) $note = ""; - open E, "<$TEMP" or die "Could not open $TEMP\n"; + #open E, "<$TEMP" or die "Could not open $TEMP\n"; + open E, "<$TEMP" or print "...edit process interupted! No note has been saved.\n"; return; $c = 0; while() { @@ -595,11 +596,16 @@ sub interactive . $B . "?" . $BB . " Help " . $B . "Q" . $BB . " Quit ] command> "; # per default let's list all the stuff: + # Initially do a list command! + $maxlen += $timelen; + &list; for(;;) { #&list; + $time = `date +%d\".\"%m\".\"%Y\" \"%T`; + chomp $time; + $ListType = ""; $maxlen = $maxlen_save; - print "\n\n\n"; print C $menu; # endless until user press "Q" or "q"! $char = ;