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!
FIXED:          The mysql version did not display notes (i.e.: "note 3" did nothing)
CHANGED:        Again, the sql-format of the mysql database has been changed. Now
                there are only 3 fields, the number filed is the primary key, the id
                field in previous versions was a waste of diskspace...
CHANGED:        The format of the dump-output has been changed.
ADDED:          It is now possible to import previously dumped notes into the notedb
                (dumps from both versions are compatible with each other)
FIXED:          the function num_bereich() had a bug, which caused ot to ignore under
                some circumstances one number (i.e. "note -d 4-13" did nothing).

Changelog

@@ -1,3 +1,17 @@
+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!
+FIXED:		The mysql version did not display notes (i.e.: "note 3" did nothing)
+CHANGED:	Again, the sql-format of the mysql database has been changed. Now
+		there are only 3 fields, the number filed is the primary key, the id
+		field in previous versions was a waste of diskspace...
+CHANGED:	The format of the dump-output has been changed.
+ADDED:		It is now possible to import previously dumped notes into the notedb
+		(dumps from both versions are compatible with each other)
+FIXED:		the function num_bereich() had a bug, which caused ot to ignore under
+		some circumstances one number (i.e. "note -d 4-13" did nothing).
+
+
 0.4:
 CHANGED:	ok, mysql support is back again (upon requests). therefore there
 		are two different version of the script in the same time with
@@ -19,7 +33,6 @@ CHANGED:	it uses no more a mysql database, but a binary file instead.
 ADDED:		note can display the notes with colors, it is turned off by default
 
 
-
 0.2:
 FIXED:		now any occurence of ' will be masked with \' before storage
 		to the mysql database.
@@ -28,6 +41,5 @@ FIXED:		now numbers of notes will be recounted, if one delete one note,
 CHANGED:	the look of the list output has been changed, similar to a table
 
 
-
 0.1:
 INITIAL RELEASE.

README

@@ -1,4 +1,4 @@
-note 0.4 by Thomas Linden, 13/01/2000
+note 0.4.1 by Thomas Linden, 18/01/2000
 
 
 Introduction
@@ -41,6 +41,7 @@ Requirements
 		o Mysql.pm if you want to use the mysql version.
 
 
+
 Installation
 ============
 
@@ -104,11 +105,23 @@ Usage
 	an occurence of this string and tell you the number and first-
 	line it have.
 
+	Instead of using note from the commandline you can use the
+	interactive mode. Run note with "note -i". If you need assistance
+	type "?" or "h" at the "command>" prompt. The interactive mode
+	provides you the most functions of note.
+
+	You can also dump the contents of your note-database into a 
+	ASCII-textfile. You can use this file later to import it into
+	your note-database. This is usefull, if you want quickly trans-
+	fer your notes from one host to another (i.e. you could mail
+	your note-dump form your office to home and import it there
+	for further use).
+	The dumps from the two versions of note are in the same format.
 
 
 
 Format of the notedb (binary version)
-====================
+=====================================
 
 	The database where the notes are stored is a binary file of
 	the following format:
@@ -127,6 +140,45 @@ Format of the notedb (binary version)
 
 
 
+The note-database (mysql version)
+=================================
+	
+	The sql-database for the mysql version has the following design:
+	+--------+---------+------+-----+---------+----------------+
+	| Field  | Type    | Null | Key | Default | Extra          |
+	+--------+---------+------+-----+---------+----------------+
+	| number | int(10) |      | PRI | 0       | auto_increment |
+	| note   | text    | YES  |     | NULL    |                |
+	| date   | text    | YES  |     | NULL    |                |
+	+--------+---------+------+-----+---------+----------------+
+
+
+
+Format of the ASCII-dump file (note -D)
+=======================================
+
+	The dump of a note-database (if you use note -D) has the following
+	format:
+	
+	--- snip ---
+	Number: 1
+	Timestamp: 14.01.2000 00:25:01
+	This is a sample text
+	in a sample note.
+
+	Number: 2
+	Timestamp: 14.01.2000 02:37:40
+	And this is another sample
+	of a note.
+	--- snip ---
+	
+	You can reimport a dump into your note-database with "note -I <file>"
+	Existing notes will not overwritten, note will append the imported
+	data to your note-database.
+
+
+
+
 Security
 ========
 
@@ -181,15 +233,17 @@ Comments
 ========
 
 	You can send any comments to Thomas Linden <tom@daemon.de>.
-
+	If you find a bug or if you have a suggestion for improvement of the script
+	feel free to send me a patch ;-)
 
 
 
 License
 =======
 
-	This program is GPL. 
+	This script comes with absolutely NO WARRANTY. It is distributed under the
-
+	terms of the GNU General Public License. Use it at your own risk :-)
+	You can read the complete GPL at: http://www.gnu.org/copyleft/gpl.html
 
 
 
@@ -204,4 +258,4 @@ Author
 Last changed
 ============
 
-	13.01.2000	
+	18.01.2000	

VERSION

@@ -1 +1 @@
-0.3 (binary database)
+0.4.1

binary-db/note

@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# this is the small console program "note" version 0.4
+# this is the small console program "note" (BINARY version)
 # It works similar to some well known GUI note programs,
 # but instead of using X11 it uses the UN*X console.
 # You can edit existing notes, delete them, create new
@@ -57,11 +57,11 @@ sub del;
 sub display;
 sub list;
 sub help;
-
+sub import;
 
 use IO::Seekable;
 
-$version = "0.4 (binary database)";
+$version = "0.4.1 (binary database)";
 
 
 # process command line args
@@ -135,12 +135,28 @@ else
                         shift;
                 }
         }
-		elsif($ARGV[0] eq "-D" || $ARGV[0] eq "--Dump" || $ARGV[0] eq "--dump")
+	elsif($ARGV[0] eq "-D" || $ARGV[0] eq "--Dump" || $ARGV[0] eq "--dump")
-		{
+	{
-				$mode = "dump";
+			$mode = "dump";
-				$dump_file = $ARGV[1];
+			$dump_file = $ARGV[1];
-				$ARGV[0] = "";
+			$ARGV[0] = "";
-		}
+			if($dump_file eq "")
+                        {
+                               $dump_file = "note.dump.$$";
+                               print "not dumpfile specified, using $dump_file.\n";
+                        }
+	}
+	elsif($ARGV[0] eq "-I" || $ARGV[0] eq "--Import" || $ARGV[0] eq "--import")
+	{
+		$mode = "import";
+		$dump_file = $ARGV[1];
+                $ARGV[0] = "";
+                if($dump_file eq "")
+                {
+                        print "No dumpfile specified.\n";
+			exit(1);
+                }
+	}
         elsif($ARGV[0] eq "-v" || $ARGV[0] eq "--version")
         {
                 print "This is note $version from Thomas Linden <tom\@daemon.de>.\n";
@@ -240,6 +256,10 @@ elsif($mode eq "dump")
 {
 	&dump;
 }
+elsif($mode eq "import")
+{
+	&import;
+}
 elsif($mode eq "interactive")
 {
 	&interactive;
@@ -269,12 +289,15 @@ sub display
 		($num, $note, $time) = unpack($typedef, $buffer);
 		$n = ude($note);
 		$t = ude($time);	
-		output($num, $n, $t, "SINGLE");
+		if($num)
-		print "\n";
+		{
-		$match = "yes";
+			output($num, $n, $t, "SINGLE");
+			print "\n";
+			$match = 1;
+		}
 	}
 	close(NOTE);
-	if($match eq "")
+	if(!$match)
 	{
 		print "no note with that number found!\n";
 	}
@@ -526,14 +549,13 @@ sub dump
 	select DUMP;
 	open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
         seek(NOTE, 0, 0); # START FROM BEGINNING
-        print "complete dump of note database from $time.\n\n";
         while(read(NOTE, $buffer, $sizeof))
         {
                 ($num, $note, $time) = unpack($typedef, $buffer);
                 $n = ude($note);
                 $t = ude($time);
 		print STDOUT "dumping note number $num to $dump_file\n";
-                print "#$num\ttime: $t\nnote:\n$n\n---------\n\n";
+                print "Number: $num\nTimestamp: $t\n$n\n";
         }
         close(NOTE);
         print "\n";
@@ -541,6 +563,80 @@ sub dump
 	select STDOUT;
 }
 
+sub import
+{
+	open (N, "<$NOTEDB") or die "could not open .notedb\n";
+        # since we have not number, look for the next available:
+        seek(N, 0, 0); # START FROM BEGINNING   
+        while(read(N, $buff, $sizeof))
+        {
+                ($num, $te, $me) = unpack($typedef, $buff);
+        }
+        seek(N, 0, 0);
+        close (N);
+        $num++; # use the highest plus 1
+
+        # open $dump_file and import it into the notedb
+        open (DUMP, "<$dump_file") or die "could not open $dump_file\n";
+        local $complete=0;
+        local $start = 0;
+	open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
+        while(<DUMP>)
+        {
+                chomp $_;
+                if($_ =~ /^Number:\s\d+/)
+                {
+                        if($start == 0)
+                        {
+                                # we have no previous record
+                                ($dummi,$number) = split(/\s/,$_);
+                                $start = 1;
+                        }
+                        else
+                        {
+                                # we got a complete record, save it!
+
+				seek(NOTE, 0, SEEK_END); # APPEND
+				local $n = uen($note);
+				local $t = uen($date);
+				$buffer = pack($typedef, $num, $n, $t);
+				print NOTE $buffer;
+				$num++;
+
+                                print "note number $number from $dump_file inserted into notedb.\n";
+                                $complete = 0; # restet $complete 
+                                $note = "";    # reset $note
+                                $date = "";    # reset $date
+                                ($dummi,$number) = split(/\s/,$_);
+                        }       
+                }
+                elsif($_ =~ /^Timestamp:\s\d+/ && $complete == 0)
+                {
+                        ($dummi,$date,$time) = split(/\s/,$_);
+                        $date = "$date $time";
+                        $complete = 1;
+                }
+                else
+                {
+                        $note .= $_ . "\n";
+                }
+        }
+        if($note ne "" && $date ne "")
+        {
+                # the last record, if existent
+		seek(NOTE, 0, SEEK_END); # APPEND
+		local $n = uen($note);
+		local $t = uen($date);
+		$buffer = pack($typedef, $num, $n, $t);
+		print NOTE $buffer;
+                print "note number $number from $dump_file inserted into notedb.\n";
+        	close(NOTE);
+	}
+}
+
+
+
+
 
 
 sub interactive
@@ -669,8 +765,10 @@ sub interactive
 
 sub usage
 {
-print qq~
+print qq~This is the program note $version by Thomas Linden (c) 1999-2000.
-usage: 		note [-i | --interactive] | [ options ] [ number [,number...]]
+It comes with absolutely NO WARRANTY. It is distributed under the
+terms of the GNU General Public License. Use it at your own risk :-)
+Usage: 		note [-i | --interactive] | [ options ] [ number [,number...]]
 Options:
 	-h	--help			displays this help screen
 	-v	--version		displays the version number
@@ -679,7 +777,10 @@ Options:
 	-s	--search <string>	searches for <string> trough the notes database
 	-e	--edit <number>		edit note with <number>
 	-d	--delete <number>	delete note with <number>
-	-D	--Dump <file>		dumps the notes to the textfile <file>
+	-D	--Dump [<file>]		dumps the notes to the textfile <file>
+	-I	--Import <file>		imports a previously dumped textfile into the
+					note-database. Dumps from the mysql and the binary
+					version are in the same format.
 	-i	--interactive		interactive mode
 
  o if you specify only a number (i.e. "note 4"), then the note with that
@@ -692,9 +793,6 @@ Options:
    informations about the configuration.
  o In interactive mode you can get help at any time by typing "?" or "h" at
    the prompt.
-
-This is the program note $version by Thomas Linden (c) 1999-2000.       GPL.
-
 ~;
   exit 1;
 }
@@ -871,9 +969,9 @@ sub ude
 
 sub num_bereich
 {
-	# $number is the one we want to delete!
+        # $number is the one we want to delete!
     # But does it contain kommas?
-	local $m = 0;
+        local $m = 0;
     if($number =~ /\,/)
     {
         # accept -d 3,4,7
@@ -883,7 +981,22 @@ sub num_bereich
     {
         # accept -d 3-9
         local @LR = split(/\-/,$number);
-        local @Sorted_LR = sort @LR;
+        local @Sorted_LR = ();
+
+        if($LR[0] > $LR[1])
+        {
+                @Sorted_LR = ($LR[1], $LR[0]);
+        }
+        elsif($LR[0] == $LR[1])
+        {
+                # 0 and 1 are the same
+                @Sorted_LR = ($LR[0], $LR[1]);
+        }
+        else
+        {
+                @Sorted_LR = ($LR[0], $LR[1]);
+        }
+
         for($i=$Sorted_LR[0]; $i<=$Sorted_LR[1]; $i++)
         {
             # from 3-6 create @NumBlock (3,4,5,6)

mysql-db/note

@@ -0,0 +1,984 @@
+#!/usr/bin/perl
+# this is the small console program "note" (MYSQL version)
+# It works similar to some well known GUI note programs,
+# but instead of using X11 it uses the UN*X console.
+# You can edit existing notes, delete them, create new
+# ones and, of course display them.
+# The notes will be stored in a mysql database. Refer to
+# the README of the desitribution for details about 
+# installation.
+# It requires a configfile named .noterc in the users home.
+# If it does not exist, note will create one for you, which
+# you will have to edit.
+#
+# If you find it usefull or find a bug, please let me know:
+# Thomas Linden <tom@daemon.de>
+#
+# note is GPL software.
+
+use Mysql;
+
+##################################
+# define some default values.
+# don't change them, instead use the config file!
+
+$maxlen = 20;
+$timelen = 22;
+
+$date = `date +%e\".\"%m\".\"%Y\" \"%T`;
+chomp $date;
+
+$USER = getlogin || getpwuid($<);
+chomp $USER;
+
+$HOME = `echo \$HOME`;
+chomp $HOME;
+
+$CONF = $HOME . "/.noterc";
+
+$DEFAULTDBNAME = $USER . "_note";
+
+# database settings, override them within the config!
+$dbname = "$DEFAULTDBNAME";
+$dbhost = "localhost";
+$dbuser = $USER;
+$dbpasswd = "";
+$table  = "note";
+$fnum   = "number";
+$fnote  = "note";
+$fdate  = "date";
+
+
+$COLOR = "NO";
+# if $COLOR equals NO, then the following color-definitions
+# will be replaced by "".
+$BORDER_COLOR = "BLACK";
+$NUM_COLOR    = "blue";
+$NOTE_COLOR   = "magenta";
+$TIME_COLOR   = "black";
+###################################
+
+
+sub usage;
+sub find_editor;
+sub output;
+sub C;
+sub uen;
+sub ude;
+sub num_bereich;
+
+sub new;
+sub edit;
+sub del;
+sub display;
+sub list;
+sub help;
+sub import;
+
+$version = "0.4.1 (mysql database)";
+
+# process command line args
+if($ARGV[0] eq "")
+{
+        $mode = "new";
+}
+else
+{
+  while($ARGV[0] ne "" )
+  {
+        if($ARGV[0] =~ /^\d/)
+        {
+                # first arg is a digit!
+                $number = $ARGV[0];
+                if($mode eq "")
+                {
+                        # change mode only, if started with an option 
+                        # ($mode will be already set)
+                        $mode = "display";
+                }
+                $ARGV[0] = "";
+        }
+		elsif($ARGV[0] eq "-i" || $ARGV[0] eq "--interactive")
+		{
+				$mode = "interactive";
+				$ARGV[0] = "";
+		}
+        elsif($ARGV[0] eq "-l" || $ARGV[0] eq "--list")
+        {
+                $mode = "list";
+                $ARGV[0] = "";
+        }
+		elsif($ARGV[0] eq "-L" || $ARGV[0] eq "--longlist")
+		{
+				$mode = "list";
+				$ListType = "LONG";
+                $ARGV[0] = "";
+		}
+        elsif($ARGV[0] eq "-s" || $ARGV[0] eq "--search")
+        {
+                # searching
+                $mode = "search";
+                $searchstring = $ARGV[1];
+                $ARGV[0] = "";
+        }
+        elsif($ARGV[0] eq "-e" || $ARGV[0] eq "--edit")
+        {
+                if($mode eq "edit")
+                {
+                        # note -e -e !
+                        &usage;
+                        exit(1);
+                }
+                else
+                {
+                        $mode = "edit";
+                        shift;
+                }
+        }
+        elsif($ARGV[0] eq "-d" || $ARGV[0] eq "--delete")
+        {
+                if($mode eq "delete")
+                {
+                        &usage;
+                        exit(1);
+                }
+                else
+                {
+                        $mode = "delete";
+                        shift;
+                }
+        }
+	elsif($ARGV[0] eq "-D" || $ARGV[0] eq "--Dump" || $ARGV[0] eq "--dump")
+	{
+		$mode = "dump";
+		$dump_file = $ARGV[1];
+		$ARGV[0] = "";
+		if($dump_file eq "")
+		{
+			$dump_file = "note.dump.$$";
+			print "not dumpfile specified, using $dump_file.\n";
+		}
+	}
+	elsif($ARGV[0] eq "-I" || $ARGV[0] eq "--Import" || $ARGV[0] eq "--import")
+        {
+                $mode = "import";
+                $dump_file = $ARGV[1];
+                $ARGV[0] = "";
+                if($dump_file eq "")
+                {
+                        print "No dumpfile specified.\n";
+                        exit(1);
+                }
+        }
+        elsif($ARGV[0] eq "-v" || $ARGV[0] eq "--version")
+        {
+                print "This is note $version from Thomas Linden <tom\@daemon.de>.\n";
+                exit(0);
+        }
+        elsif($ARGV[0] eq "-h" || $ARGV[0] eq "--help")
+        {
+                &usage;
+                exit(0);
+        }
+        else
+        {
+                &usage;
+        		exit(0);
+        }
+  }
+}
+
+# open the configfile.
+
+
+
+if(-e $CONF)
+{
+	eval `cat $CONF`;
+}
+
+
+# Always interactive?
+if($ALWAYS_INT eq "YES")
+{
+	$mode = "interactive";
+}
+
+
+# calculate some constants...
+$BORDERC  = "<$BORDER_COLOR>";
+$_BORDERC = "</$BORDER_COLOR>";
+$NUMC     = "<$NUM_COLOR>";
+$_NUMC    = "</$NUM_COLOR>";
+$NOTEC    = "<$NOTE_COLOR>";
+$_NOTEC   = "</$NOTE_COLOR>";
+$TIMEC    = "<$TIME_COLOR>";
+$_TIMEC   = "</$TIME_COLOR>";
+
+$time = `date +%d\".\"%m\".\"%Y\" \"%T`;
+chomp $time;
+
+$typedef = "i a$MAX_NOTE a$MAX_TIME";
+$sizeof  = length pack($typedef, () );
+
+
+if($ListType ne "LONG")
+{
+     $maxlen += $timelen; # no time will be displayed!
+}
+
+
+# ok, if still here, we got it all, now let's connect to the database
+$db = Mysql->connect($dbhost,$dbname,$dbuser,$dbpasswd)
+	or die "ERROR: $Mysql::dberrstr\n";
+
+
+# main loop: ###############
+if($mode eq "display")
+{
+	&display;
+}
+elsif($mode eq "search")
+{
+	&search;
+}
+elsif($mode eq "list")
+{
+	&list;
+}
+elsif($mode eq "new")
+{
+	&new;
+}
+elsif($mode eq "delete")
+{
+	del;
+}
+elsif($mode eq "edit")
+{
+	&edit;
+}
+elsif($mode eq "dump")
+{
+	&dump;
+}
+elsif($mode eq "import")
+{
+	&import;
+}
+elsif($mode eq "interactive")
+{
+	&interactive;
+}
+else
+{
+        #undefined :-(
+}
+
+
+exit(0);
+################## EOP ################
+
+
+
+############################### DISPLAY ##################################
+sub display
+{
+	# display a certain note
+	print "\n";
+	&num_bereich; # get @NumBlock from $numer
+	foreach $N (@NumBlock)
+	{
+		$res = $db->query("SELECT $fnote,$fdate FROM $table WHERE $fnum = $N")
+			or die "ERROR: $Mysql::dberrstr\n";
+		while(@row = $res->fetchrow)
+		{
+			output($N, $row[0], $row[1], "SINGLE");
+			print "\n";		
+			$match = 1;
+		}
+	}
+	if(!$match)
+	{
+		print "no note with that number found!\n";
+	}
+}
+############################### SEARCH ##################################
+sub search
+{
+	$maxlen += $timelen;
+	if($searchstring eq "")
+	{
+		&usage;
+		exit(1);
+	}
+	print "searching the database $dbname for \"$searchstring\"...\n\n";
+	
+	$sqlstatement = "SELECT DISTINCT $fnum,$fnote,$fdate FROM $table WHERE "
+	. "$fnote LIKE '%$searchstring%'"
+	. " ORDER BY $fnum";
+
+	$res = $db->query($sqlstatement) or die "ERROR: $Mysql::dberrstr\n";
+    	while(@row = $res->fetchrow)
+    	{
+    		output($row[0], $row[1], $row[2]);
+    		$match = 1;
+    	}
+	
+	
+	if(!$match)
+    	{
+     	   print "no matching note found!\n";
+     	}	
+	print "\n";
+}
+
+
+############################### LIST ##################################
+sub list
+{
+	# list all available notes (number and firstline)
+	$res = $db->query("SELECT $fnum,$fnote,$fdate FROM $table ORDER BY $fnum") 
+		or die "ERROR: $Mysql::dberrstr\n";
+    	while(@row = $res->fetchrow)
+    	{
+    		output($row[0], $row[1], $row[2]);
+    	}
+	
+	
+	print "\n";
+}
+
+############################### NEW ##################################
+sub new
+{
+	if($ALWAYS_EDIT eq "YES")
+	{
+		$TEMP = "/tmp/note.$$";
+		# let the user edit it...
+	    	$editor = &find_editor;
+        	if($editor)
+        	{
+        	        system $editor, $TEMP;
+        	}
+        	else
+        	{
+        	        print "Could not find an editor to use!\n";
+        	        exit(0);
+        	}
+    		# read it in ($note)
+    		$note = "";
+    		open E, "<$TEMP" or die "Could not open $TEMP\n";
+    		$c = 0;
+    		while(<E>)
+    		{
+    			$_ =~ s/'/\\'/g;
+    		    	$note = $note . $_;
+    		}
+    		chomp $note;
+    		close E;
+   		# privacy!
+   	 	system "/bin/rm -f $TEMP";
+	}
+	else
+	{
+		$note = "";
+		local $line = "";
+		#local $num = 0;
+		# create a new note
+    		print "enter the text of the note, end with .\n";
+		do
+    		{
+    		      $line = <STDIN>;
+    		      $_ =~ s/'/\\'/g;
+    		      $note = $note . $line;
+    		} until $line eq ".\n";
+		# remove the . !
+    		chop $note;
+    		chop $note;
+	}
+	
+	# since we have not number, look for the next available:
+	$res = $db->query("SELECT max($fnum) FROM $table") or die "ERROR: $Mysql::dberrstr\n";
+	while(@row = $res->fetchrow)
+	{
+		$number = $row[0];
+	}
+	$number++;
+	$sqlstatement = "INSERT INTO $table VALUES ($number,'$note','$date')";
+
+	$db->query($sqlstatement) 
+		    or die "ERROR: $Mysql::dberrstr\n";
+
+	# everything ok until here!
+	print "note stored. it has been assigned the number $number.\n\n";
+}
+
+
+############################### DELETE ##################################
+sub del
+{
+	# delete a note
+	&num_bereich; # get @NumBlock from $number
+	
+	foreach $N (@NumBlock)
+	{
+		$sqlstatement = "DELETE FROM $table WHERE $fnum = $N";
+		$res = $db->query($sqlstatement) or $ERR = $Mysql::dberrstr;
+		# do not exit if an error occurs - good for int mode!
+		if($ERR)
+		{
+			print "no note with number $N found!\n";
+		}
+		else
+		{
+			print "note number $N has been deleted.\n";
+		}
+	}
+	# recount the notenumbers:
+	$i = 0;
+	$pos = 0;
+	$sqlstatement = "SELECT $fnum FROM $table ORDER BY $fnum";
+	$res = $db->query($sqlstatement) or die "ERROR: $Mysql::dberrstr\n";
+	while(@row = $res->fetchrow)
+	{
+		$count[$i] = $row[0];
+		$i++;
+	}
+	#have all real id's, now recount it:
+	for($pos=0;$pos<$i;$pos++)
+	{
+		$setnum = $pos +1;
+		$sqlstatement = "UPDATE $table SET $fnum = '$setnum' WHERE $fnum = $count[$pos]";
+		$db->query($sqlstatement) or die "ERROR: $Mysql::dberrstr\n";
+	}
+}
+
+############################### EDIT ##################################
+sub edit
+{
+	# edit a note
+	$sqlstatement = "SELECT $fnote FROM $table WHERE $fnum = $number";
+	$res = $db->query($sqlstatement) or die "ERROR: $Mysql::dberrstr\n";
+	while(@row = $res->fetchrow)
+	{
+		$note = $row[0];
+		$match = "yes";
+	}
+	if($match eq "")
+    	{
+		print "no note with that number found!\n\n";
+		exit(0);
+    	}	
+	$TEMP = "/tmp/note.$USER.$$";
+	open NOTE,">$TEMP" or die "Could not open $TEMP\n";
+	select NOTE;
+
+	print $note;
+	close NOTE;
+	select STDOUT;
+	$editor = &find_editor;
+	if($editor)
+	{
+		system $editor, $TEMP;
+	}
+	else
+	{
+		print "Could not find an editor to use!\n";
+		exit(0);
+	}
+	$note = "";
+	open NOTE,"<$TEMP" or die "Could not open $TEMP\n";
+	$c = 0;
+	while(<NOTE>)
+	{
+		$_ =~ s/'/\\'/g;
+		$note = $note . $_;
+	}
+	chomp $note;
+	close NOTE;
+
+	system "/bin/rm -f $TEMP";
+	
+	# we got it, now save to db
+	$sqlstatement = "UPDATE $table SET "
+	. "$fnote = '$note' "
+	. "WHERE $fnum = $number";
+	$db->query($sqlstatement) or die "ERROR: $Mysql::dberrstr\n";
+
+	print "note number $number has been changed.\n";
+}
+
+
+sub dump
+{
+	# $dump_file
+	open (DUMP, ">$dump_file") or die "could not open $dump_file\n";
+	select DUMP;
+	$res = $db->query("SELECT $fnum,$fnote,$fdate FROM $table ORDER BY $fnum") 
+		or die "ERROR: $Mysql::dberrstr\n";
+    	
+    	while(@row = $res->fetchrow)
+    	{
+		print STDOUT "dumping note number $row[0] to $dump_file\n";
+                print "Number: $row[0]\nTimestamp: $row[2]\n$row[1]\n";
+    	}
+	
+	
+        print "\n";
+	close(DUMP);
+	select STDOUT;
+}
+
+sub import
+{
+	# open $dump_file and import it into the notedb
+	open (DUMP, "<$dump_file") or die "could not open $dump_file\n";
+	local $complete=0;
+	local $start = 0;
+	while(<DUMP>)
+	{
+		chomp $_;
+		if($_ =~ /^Number:\s\d+/)
+		{
+			if($start == 0)
+			{
+				# we have no previous record
+				($dummi,$number) = split(/\s/,$_);
+				$start = 1;
+			}
+			else
+			{
+				# we got a complete record, save it!
+				$db->query("INSERT INTO $table VALUES (0,'$note','$date')")
+					or die "ERROR: $Mysql::dberrstr\n";
+				print "note number $number from $dump_file inserted into notedb.\n";
+				$complete = 0; # restet $complete 
+				$note = "";    # reset $note
+				$date = "";    # reset $date
+				($dummi,$number) = split(/\s/,$_);
+			}	
+		}
+		elsif($_ =~ /^Timestamp:\s\d+/ && $complete == 0)
+		{
+			($dummi,$date,$time) = split(/\s/,$_);
+			$date = "$date $time";
+			$complete = 1;
+		}
+		else
+		{
+			$note .= $_ . "\n";
+		}
+	}
+	if($note ne "" && $date ne "")
+        {
+		# the last record, if existent
+                $db->query("INSERT INTO $table VALUES (0,'$note','$date')")
+                        or die "ERROR: $Mysql::dberrstr\n";
+                print "note number $number from $dump_file inserted into notedb.\n";
+        }
+}
+
+
+
+sub interactive
+{
+	$maxlen_save = $maxlen;
+	# create menu:
+	local $B = "<blackI>";
+	local $BB = "</blackI>";
+	local $menu = 	"[ " .  $B . "L" . $BB . " List "
+			. $B . "N" . $BB . " New "
+			. $B . "D" . $BB . " Delete "
+			. $B . "S" . $BB . " Search "
+			. $B . "E" . $BB . " Edit "
+			. $B . "?" . $BB . " Help "
+			. $B . "Q" . $BB . " Quit ] command> ";
+	# per default let's list all the stuff:
+	for(;;)
+	{
+		#&list;
+		$maxlen = $maxlen_save;
+		print "\n\n\n";
+		print C $menu;
+		# endless until user press "Q" or "q"!
+		$char = <STDIN>;
+		chomp $char;
+		if($char =~ /^\d+/)
+		{
+			# display notes
+			$maxlen += $timelen;
+			$number = $char;
+			&display;
+		}
+		elsif($char =~ /^n/i)
+		{
+			# create a new one
+			$time = `date +%d\".\"%m\".\"%Y\" \"%T`;
+			chomp $time;
+			&new;
+		}
+		elsif($char =~ /^l/ || $char =~ /^$/)
+		{
+			# list
+			print "\n";
+			$ListType = "";
+			$maxlen += $timelen;
+			&list;
+			undef $SetTitle;
+		}
+		elsif($char =~ /^L/)
+		{
+			$ListType = "LONG";
+			&list;
+			undef $SetTitle;
+		}
+		elsif($char =~ /^h/i || $char =~ /^\?/)
+		{
+			# zu dumm der Mensch ;-)
+			&help;
+		}
+		elsif($char =~ /^d\s+(\d+\-*\,*\d*)/i)
+		{
+			# delete one!
+			$number = $1;
+			&del;
+		}
+		elsif($char =~ /^d$/i)
+		{
+			# we have to ask her:
+			print "enter number(s) of note(s) you want to delete: ";
+			$char = <STDIN>;
+			chomp $char;
+			$number = $char;
+			&del;
+		}
+		elsif($char =~ /^e\s+(\d+\-*\,*\d*)/i)
+		{
+			# edit one!
+			$time = `date +%d\".\"%m\".\"%Y\" \"%T`;
+			chomp $time;
+			$number = $1;
+			&edit;
+		}
+		elsif($char =~ /^e$/i)
+		{
+			# we have to ask her:
+			print "enter number of the note you want to edit: ";
+			$char = <STDIN>;
+			chomp $char;
+			$number = $char;
+			&edit;
+		}
+		elsif($char =~ /^s\s+/i)
+		{
+			# she want's to search
+			#$maxlen += $timelen;
+			$searchstring = $';
+			chomp $searchstring;
+			&search;
+		}
+		elsif($char =~ /^s$/i)
+		{
+			# we have to ask her:
+			#$maxlen += $timelen;
+			print "enter the string you want to search for: ";
+			$char = <STDIN>;
+			chomp $char;
+			$char =~ s/^\n//;
+			$searchstring = $char;
+			&search;
+		}
+		elsif($char =~ /^q/i)
+		{
+			# schade!!!
+			print "\n\ngood bye\n";
+			exit(0);
+		}
+		else
+		{
+			# unknown
+			print "\nunknown command!\n";
+		}
+	}
+}
+
+
+
+sub usage
+{
+print qq~This is the program note $version by Thomas Linden (c) 1999-2000.
+It comes with absolutely NO WARRANTY. It is distributed under the
+terms of the GNU General Public License. Use it at your own risk :-)
+Usage: 		note [-i | --interactive] | [ options ] [ number [,number...]]
+Options:
+	-h	--help			displays this help screen
+	-v	--version		displays the version number
+	-l	--list			lists all existing notes
+	-L	--longlist		the same as -l but prints also the timestamp
+	-s	--search <string>	searches for <string> trough the notes database
+	-e	--edit <number>		edit note with <number>
+	-d	--delete <number>	delete note with <number>
+	-D	--Dump [<file>]		dumps the notes to the textfile <file>
+	-I	--Import <file>		imports a previously dumped textfile into the
+					note-database. Dumps from the mysql and the binary
+					version are in the same format.
+	-i	--interactive		interactive mode
+
+ o if you specify only a number (i.e. "note 4"), then the note with that
+   number will be displayed.
+ o you can specify more then one number for delete and display, for example:
+   "note -d 3,4" deletes #3 and #4. "note 5-7" displays #5, #6 and #7.
+ o if you run note without any parameter and if \$ALWAYS_INT in the config is
+   not set, then note will create a new note and prompt you for new text.
+ o If it finds \~/.noterc, it will process it. Refer to the manpage for more
+   informations about the configuration.
+ o In interactive mode you can get help at any time by typing "?" or "h" at
+   the prompt.
+~;
+  exit 1;
+}
+sub find_editor {
+   return $ENV{"VISUAL"} || $ENV{"EDITOR"} || "vim" || "vi" || "pico";
+}
+
+sub output
+{
+	# 0 = Num, 1 = Note, 2 = Time
+	if($ListType ne "LONG")
+	{
+		$SSS = "-" x ($maxlen + 31 - $timelen);
+	}
+	else
+	{
+		$SSS = "-" x ($maxlen + 31);
+	}
+	local $LINE = "$BORDERC $SSS $_BORDERC\n";
+	local $num   = $_[0];
+	local $note  = $_[1];
+	local $time  = $_[2];
+	local $TYPE  = $_[3];
+	local $L = $BORDERC . "[" . $_BORDERC;
+	local $LONGSPC = " " x (22 + 3);
+        local $R = $BORDERC . "]" . $_BORDERC;
+	if($TYPE ne "SINGLE")
+	{
+		if(!$SetTitle) 
+		{
+			local $SP = "";
+			# print only if it is the first line!
+			if($ListType ne "LONG")
+			{
+				$SP = " " x ($maxlen-2 - $timelen);
+                	}
+			else
+			{
+				$SP = " " x ($maxlen-2);
+			}
+			print C $LINE;
+		
+			print C "$L $NUMC#$_NUMC  ";
+			if($ListType eq "LONG")
+			{
+				print C " $TIMEC" . "creation date$_TIMEC           ";
+			}
+			else
+			{
+				print $LONGSPC;
+			}
+			print C $NOTEC . "note$_NOTEC$SP$R\n";
+
+
+                	print C $LINE;
+			$SetTitle = 1;
+		}
+		local $title = "";
+		$CUTSPACE = " " x $maxlen;
+		$note =~ s/\n/$CUTSPACE/g;
+        	local $len   = length($note);
+        	if($len < $maxlen-3)
+        	{
+        	    local $diff = $maxlen - $len;
+		    local $Space = " " x $diff;	
+        	    $title = $BORDERC . $NOTEC . "\"" . $note . "\"" . $_NOTEC . $Space . "$_BORDERC";
+        	}
+		else
+        	{
+        	        $title = substr($note,0,$maxlen - 3);
+        	        $title = $BORDERC . $NOTEC . "\"" . $title . "...\"$_NOTEC$_BORDERC";
+        	}
+		# $title should now look as: "A sample note                       "
+       		print C "$L $NUMC$num$_NUMC $R";
+		if($ListType eq "LONG")
+		{
+			print C "$L$TIMEC" . $time . " $_TIMEC$R"; 
+		}
+		print C "$L $NOTEC" . $title . "$_NOTEC $R\n";
+
+
+		print C $LINE;
+	}
+	else
+	{
+		chomp $note;
+		local $Space = " " x ($maxlen - 16);
+		local $SP = " " x ($maxlen + 13);
+		#print C $LINE;
+		#print C "$L $NUMC#$_NUMC   " . $TIMEC . "creation date$_TIMEC$SP$R\n";
+		print C $LINE;
+		print C "$L $NUMC$num$_NUMC $R$L$TIMEC$time$_TIMEC $Space$R\n";
+		print C $LINE;
+		print C $NOTEC . $note . $_NOTEC . "\n";
+		print C $LINE;
+	}
+	
+}
+
+
+
+sub C
+{
+        # \033[1m%30s\033[0m    
+        local %Color = (        'black'         => '0;30',
+                                'red'           => '0;31',
+                                'green'         => '0;32',
+                                'yellow'        => '0;33',
+                                'blue'          => '0;34',
+                                'magenta'       => '0;35',
+                                'cyan'          => '0;36',
+                                'white'         => '0;37',
+				'B'		=> '1;30',
+                                'BLACK'         => '1;30',
+                                'RED'           => '1;31',
+                                'GREEN'         => '1;32',
+                                'YELLOW'        => '1;33',
+                                'BLUE'          => '1;34',
+                                'MAGENTA'       => '1;35',
+                                'CYAN'          => '1;36',
+                                'WHITE'         => '1;37',
+                                'black_'        => '4;30',
+                                'red_'          => '4;31',
+                                'green_'        => '4;32',
+                                'yellow_'       => '4;33',
+                                'blue_'         => '4;34',
+                                'magenta_'      => '4;35',
+                                'cyan_'         => '4;36',
+                                'white_'        => '4;37',
+                                'blackI'        => '7;30',
+                                'redI'          => '7;31',
+                                'greenI'        => '7;32',
+                                'yellowI'       => '7;33',
+                                'blueI'         => '7;34',
+                                'magentaI'      => '7;35',
+                                'cyanI'         => '7;36',
+                                'whiteI'        => '7;37'
+                        ); 
+        $default = "\033[0m";
+        $S = $_[0];
+        foreach $Col (%Color)
+        {
+                if ($S =~ /<$Col>/g)
+                {
+			if($COLOR ne "NO")
+			{
+                        	$NC = "\033[" . $Color{$Col} . "m";     
+                        	$S =~ s/<$Col>/$NC/g;
+                        	$S =~ s/<\/$Col>/$default/g;
+                	}
+			else
+			{
+				$S =~ s/<$Col>//g;
+                                $S =~ s/<\/$Col>//g;
+			}
+		}
+        }
+        return $S;
+}
+
+
+sub uen
+{
+	local $T = pack("u", $_[0]);
+	chomp $T;
+	return $T;
+}
+
+sub ude
+{
+        local $T = unpack("u", $_[0]);
+        return $T;
+}
+
+sub num_bereich
+{
+	# $number is the one we want to delete!
+    # But does it contain kommas?
+	local $m = 0;
+    if($number =~ /\,/)
+    {
+        # accept -d 3,4,7
+        @NumBlock = split(/\,/,$number);
+    }
+    elsif($number =~ /^\d+\-\d+$/)
+    {
+        # accept -d 3-9
+        local @LR = split(/\-/,$number);
+        local @Sorted_LR = ();
+
+	if($LR[0] > $LR[1])
+	{
+		@Sorted_LR = ($LR[1], $LR[0]);
+	}
+	elsif($LR[0] == $LR[1])
+	{	
+		# 0 and 1 are the same
+		@Sorted_LR = ($LR[0], $LR[1]);
+	}
+	else
+	{
+		@Sorted_LR = ($LR[0], $LR[1]);
+	}
+
+        for($i=$Sorted_LR[0]; $i<=$Sorted_LR[1]; $i++)
+        {
+            # from 3-6 create @NumBlock (3,4,5,6)
+            $NumBlock[$m] = $i;
+            $m++;
+        }
+    }
+    else
+    {
+        @NumBlock = ($number);
+    }
+
+}
+
+
+sub help
+{
+print qq~
+--------------------------------------------------------------
+HELP for interactive note       $version
+
+The following commands are available:
+L/l	List notes. L=long, with timestamp and l=short without
+	timestamp. You can also just hit <enter> for short list.
+N	Create a new note.
+D	Delete a note. You can either hit "d 1" or "d 1-4"
+	or just hit "d". If you don't specify a number, you
+	will be asked for.
+S	Search trough the notes database. Usage is similar to
+	Delete, use a string instead of a number to search for.
+E	Edit a note. Usage is similar to Delete but you can 
+	only edit one note a time.
+?/H	This help screen.
+Q	Exit the program.
+
+All commands except the List command are case insensitive.
+---------------------------------------------------------------
+~;
+}
+
+
+
+

mysql-db/sql

@@ -1,7 +1,6 @@
 CREATE TABLE note (
-  id int(10) DEFAULT '0' NOT NULL auto_increment,
+  number int(10) DEFAULT '0' NOT NULL auto_increment,
-  number int(10),
   note text,
   date text,
-  PRIMARY KEY (id)
+  PRIMARY KEY (number)
 );