mirror of
https://codeberg.org/scip/note.git
synced 2025-12-17 12:41:10 +01:00
CHANGED: ok, mysql support is back again (upon requests). therefore there
are two different version of the script in the same time with
the same features, one for mysql and the other one for the binary
database.
ADDED: Dump to textfile capability. Later on I want to dump it into a
palm readable format, any help is welcome!
ADDED: interactive mode.
CHANGED: Better modularity, better code.
CHANGED: note can now run without the need of a config file. If does not
exist, it will try to work with default values.
ADDED: sub num_bereich(), which allows one to specify more then one
number for deletion or displaying (i.e.: "-d 1,4,7" or "-d 4-9")
This commit is contained in:
TLINDEN
4
binary-db/README
Normal file
4
binary-db/README
Normal file
@@ -0,0 +1,4 @@
|
||||
This is the binary version of note.
|
||||
|
||||
all informations are available in the
|
||||
main README file!
|
||||
925
binary-db/note
Executable file
925
binary-db/note
Executable file
@@ -0,0 +1,925 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# this is the small console program "note" version 0.4
|
||||
# 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 binary data file (~/.notedb)
|
||||
#
|
||||
# Previous versions needed a mysql database. This is no more
|
||||
# the case.
|
||||
# If there exists a configfile called ~/.noterc then it will
|
||||
# be processed. You can overwrite some default values of note.
|
||||
#
|
||||
# If you find it usefull or find a bug, please let me know:
|
||||
# Thomas Linden <tom@daemon.de>
|
||||
|
||||
|
||||
#################################################
|
||||
# define some default values.
|
||||
# You can change them, but be carefull!
|
||||
# Instead you can define each of them in a configfile
|
||||
# called ~/.noterc.
|
||||
$MAX_NOTE = 1024;
|
||||
$MAX_TIME = 64;
|
||||
|
||||
$maxlen = 20;
|
||||
$timelen = 22;
|
||||
$HOME = `echo \$HOME`;
|
||||
chomp $HOME;
|
||||
|
||||
$CONF = $HOME . "/.noterc";
|
||||
|
||||
$NOTEDB = $HOME . "/.notedb";
|
||||
|
||||
$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;
|
||||
|
||||
|
||||
use IO::Seekable;
|
||||
|
||||
$version = "0.4 (binary 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] = "";
|
||||
}
|
||||
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);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
###################### CONFIG ~/.noterc exists? #########################
|
||||
# If not, use the predefined Values!
|
||||
if(-e $CONF)
|
||||
{
|
||||
eval `cat $CONF`;
|
||||
}
|
||||
|
||||
# Always interactive?
|
||||
if($ALWAYS_INT eq "YES")
|
||||
{
|
||||
$mode = "interactive";
|
||||
}
|
||||
|
||||
|
||||
###################### db exists? #######################################
|
||||
# if not, create it!
|
||||
if(! -e $NOTEDB)
|
||||
{
|
||||
open(TT,">$NOTEDB") or die "Could not create $NOTEDB: $!\n";
|
||||
close (TT);
|
||||
}
|
||||
elsif(! -w $NOTEDB)
|
||||
{
|
||||
print "$NOTEDB is not writable!\n";
|
||||
exit(1);
|
||||
}
|
||||
|
||||
|
||||
# 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!
|
||||
}
|
||||
|
||||
|
||||
|
||||
# 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 "interactive")
|
||||
{
|
||||
&interactive;
|
||||
}
|
||||
else
|
||||
{
|
||||
#undefined :-(
|
||||
}
|
||||
|
||||
|
||||
exit(0);
|
||||
################## EOP ################
|
||||
|
||||
|
||||
|
||||
############################### DISPLAY ##################################
|
||||
sub display
|
||||
{
|
||||
print "\n";
|
||||
open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
|
||||
&num_bereich; # get @NumBlock from $numer
|
||||
foreach $N (@NumBlock)
|
||||
{
|
||||
$address = ($N -1 ) * $sizeof;
|
||||
seek(NOTE, $address, SEEK_SET);
|
||||
read(NOTE, $buffer, $sizeof);
|
||||
($num, $note, $time) = unpack($typedef, $buffer);
|
||||
$n = ude($note);
|
||||
$t = ude($time);
|
||||
output($num, $n, $t, "SINGLE");
|
||||
print "\n";
|
||||
$match = "yes";
|
||||
}
|
||||
close(NOTE);
|
||||
if($match eq "")
|
||||
{
|
||||
print "no note with that number found!\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
############################### SEARCH ##################################
|
||||
sub search
|
||||
{
|
||||
$maxlen += $timelen;
|
||||
if($searchstring eq "")
|
||||
{
|
||||
&usage;
|
||||
exit(1);
|
||||
}
|
||||
print "searching the database $NOTEDB for \"$searchstring\"...\n";
|
||||
open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
|
||||
seek(NOTE, 0, 0); # START FROM BEGINNING
|
||||
while(read(NOTE, $buffer, $sizeof))
|
||||
{
|
||||
($num, $note, $time) = unpack($typedef, $buffer);
|
||||
$n = ude($note);
|
||||
$t = ude($time);
|
||||
if($n =~ /$searchstring/i)
|
||||
{
|
||||
output($num, $n, $t);
|
||||
$match = 1;
|
||||
}
|
||||
}
|
||||
if(!$match)
|
||||
{
|
||||
print "no matching note found!\n";
|
||||
}
|
||||
close(NOTE);
|
||||
print "\n";
|
||||
}
|
||||
|
||||
|
||||
############################### LIST ##################################
|
||||
sub list
|
||||
{
|
||||
open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
|
||||
seek(NOTE, 0, 0); # START FROM BEGINNING
|
||||
#print "listing all existing notes:\n\n";
|
||||
while(read(NOTE, $buffer, $sizeof))
|
||||
{
|
||||
($num, $note, $time) = unpack($typedef, $buffer);
|
||||
$n = ude($note);
|
||||
$t = ude($time);
|
||||
#print "#$num:\t$t\n---\n$n\n\n";
|
||||
output($num, $n, $t);
|
||||
}
|
||||
close(NOTE);
|
||||
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>)
|
||||
{
|
||||
$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>;
|
||||
$note = $note . $line;
|
||||
} until $line eq ".\n";
|
||||
# remove the . !
|
||||
chop $note;
|
||||
chop $note;
|
||||
}
|
||||
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 (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
|
||||
seek(NOTE, 0, SEEK_END); # APPEND
|
||||
local $n = uen($note);
|
||||
local $t = uen($time);
|
||||
$buffer = pack($typedef, $num, $n, $t);
|
||||
|
||||
print NOTE $buffer;
|
||||
close(NOTE);
|
||||
print "note stored. it has been assigned the number $num.\n\n";
|
||||
}
|
||||
|
||||
|
||||
############################### DELETE ##################################
|
||||
sub del
|
||||
{
|
||||
&num_bereich; # get @NumBlock from $number
|
||||
$TEMP = "/tmp/note.$$"; # save temporarily in $TEMP
|
||||
system("/bin/touch", $TEMP);
|
||||
open TEMP, "+<$TEMP" or die "Could not open $TEMP($!)\n";
|
||||
open (NOTE, "<$NOTEDB") or die "could not open .notedb\n";
|
||||
|
||||
seek(TEMP, 0, SEEK_END); # APPEND
|
||||
|
||||
$count = 1;
|
||||
|
||||
# read from notedb and write to temp (without number to
|
||||
# be deleted, and with recounted numbers)
|
||||
|
||||
foreach $N (@NumBlock)
|
||||
{
|
||||
# define $Merk's for the exists() test later on...
|
||||
$Merk{$N} = "got";
|
||||
}
|
||||
|
||||
while(read(NOTE, $buff, $sizeof))
|
||||
{
|
||||
($num, $note, $time) = unpack($typedef, $buff);
|
||||
if(exists $Merk{$num})
|
||||
{
|
||||
# drop it, just ignore the contents.
|
||||
$droped = 1;
|
||||
print "note number $num has been deleted.\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
# no keep it
|
||||
$buffer = pack($typedef, $count, $note, $time);
|
||||
seek(TEMP, 0, SEEK_END); # APPEND
|
||||
print TEMP $buffer;
|
||||
$count++;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
close(TEMP);
|
||||
close(NOTE);
|
||||
|
||||
# done, inform the user
|
||||
if($droped eq 1)
|
||||
{
|
||||
# copy the new one over the old one
|
||||
system("/bin/cp",$TEMP, $NOTEDB);
|
||||
}
|
||||
else
|
||||
{
|
||||
print "no note with that number found!\n";
|
||||
}
|
||||
system "/bin/rm -f $TEMP";
|
||||
}
|
||||
|
||||
|
||||
############################### EDIT ##################################
|
||||
sub edit
|
||||
{
|
||||
$address = ($number -1 ) * $sizeof;
|
||||
open (NOTE, "+<$NOTEDB") or die "could not open .notedb\n";
|
||||
seek(NOTE, $address, SEEK_SET);
|
||||
read(NOTE, $buff, $sizeof) or die "no note with that number found!\n";
|
||||
($num, $note, $t) = unpack($typedef, $buff);
|
||||
$n = ude($note);
|
||||
# got current enties...
|
||||
|
||||
# now edit them
|
||||
$TEMP = "/tmp/note.$$";
|
||||
open N, ">$TEMP" or die "Could not open $TEMP\n";
|
||||
select N;
|
||||
print $n; # save decoded to $TEMP
|
||||
close N;
|
||||
select STDOUT;
|
||||
|
||||
# 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 N, "<$TEMP" or die "Could not open $TEMP\n";
|
||||
$c = 0;
|
||||
while(<N>)
|
||||
{
|
||||
$note = $note . $_;
|
||||
}
|
||||
chomp $note;
|
||||
close N;
|
||||
|
||||
# privacy!
|
||||
system "/bin/rm -f $TEMP";
|
||||
|
||||
# we got it, now save to db
|
||||
seek(NOTE, $address, SEEK_SET);
|
||||
$n = "";
|
||||
$n = uen($note);
|
||||
local $t = uen($time);
|
||||
$buffer = pack($typedef, $number, $n, $t);
|
||||
print NOTE $buffer;
|
||||
close(NOTE);
|
||||
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;
|
||||
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";
|
||||
}
|
||||
close(NOTE);
|
||||
print "\n";
|
||||
close(DUMP);
|
||||
select STDOUT;
|
||||
}
|
||||
|
||||
|
||||
|
||||
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:
|
||||
$maxlen += $timelen;
|
||||
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:
|
||||
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~
|
||||
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 --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.
|
||||
|
||||
This is the program note $version by Thomas Linden (c) 1999-2000. GPL.
|
||||
|
||||
~;
|
||||
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 = sort @LR;
|
||||
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.
|
||||
---------------------------------------------------------------
|
||||
~;
|
||||
}
|
||||
Reference in New Issue
Block a user