scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-17 12:41:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

ADDED: If run in interactive mode, note will at first do a list command.

Browse Source 
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.
This commit is contained in:
TLINDEN
2012-02-10 20:07:35 +01:00
parent 9a30ffc37a
commit a9ee40e5c2
5 changed files with 32 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Changelog
View File

@@ -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: 0.4.1:
ADDED: The install.sh script for the mysql version is no able to install the 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! required Mysql module directly from CPAN, thanks to David A. Bandel!

4
README
View File

@@ -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 Introduction
@@ -258,4 +258,4 @@ Author
Last changed Last changed
============ ============
18.01.2000 23.01.2000

2
VERSION
View File

@@ -1 +1 @@
0.4.1 0.4.2

13
binary-db/note
View File

@@ -61,7 +61,7 @@ sub import;
use IO::Seekable; use IO::Seekable;
$version = "0.4.1 (binary database)"; $version = "0.4.2 (binary database)";
# process command line args # process command line args
@@ -374,7 +374,8 @@ sub new
} }
# read it in ($note) # read it in ($note)
$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; $c = 0;
while(<E>) while(<E>)
{ {
@@ -652,12 +653,18 @@ sub interactive
. $B . "E" . $BB . " Edit " . $B . "E" . $BB . " Edit "
. $B . "?" . $BB . " Help " . $B . "?" . $BB . " Help "
. $B . "Q" . $BB . " Quit ] command> "; . $B . "Q" . $BB . " Quit ] command> ";
# Initially do a list command!
$maxlen += $timelen;
&list;
# per default let's list all the stuff: # per default let's list all the stuff:
for(;;) for(;;)
{ {
#&list; #&list;
# reset time
$time = `date +%d\".\"%m\".\"%Y\" \"%T`;
chomp $time;
$ListType = "";
$maxlen = $maxlen_save; $maxlen = $maxlen_save;
print "\n\n\n";
print C $menu; print C $menu;
# endless until user press "Q" or "q"! # endless until user press "Q" or "q"!
$char = <STDIN>; $char = <STDIN>;

12
mysql-db/note
View File

@@ -75,7 +75,7 @@ sub list;
sub help; sub help;
sub import; sub import;
$version = "0.4.1 (mysql database)"; $version = "0.4.2 (mysql database)";
# process command line args # process command line args
if($ARGV[0] eq "") if($ARGV[0] eq "")
@@ -368,7 +368,8 @@ sub new
} }
# read it in ($note) # read it in ($note)
$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; $c = 0;
while(<E>) while(<E>)
{ {
@@ -595,11 +596,16 @@ sub interactive
. $B . "?" . $BB . " Help " . $B . "?" . $BB . " Help "
. $B . "Q" . $BB . " Quit ] command> "; . $B . "Q" . $BB . " Quit ] command> ";
# per default let's list all the stuff: # per default let's list all the stuff:
# Initially do a list command!
$maxlen += $timelen;
&list;
for(;;) for(;;)
{ {
#&list; #&list;
$time = `date +%d\".\"%m\".\"%Y\" \"%T`;
chomp $time;
$ListType = "";
$maxlen = $maxlen_save; $maxlen = $maxlen_save;
print "\n\n\n";
print C $menu; print C $menu;
# endless until user press "Q" or "q"! # endless until user press "Q" or "q"!
$char = <STDIN>; $char = <STDIN>;