mirror of
https://codeberg.org/scip/note.git
synced 2025-12-17 12:41:10 +01:00
9cf564ffe4
file, use perls open() instead.
CHANGED: excluded some of the help texts from the usage message and the
interactive help command to a manpage.
ADDED: new commandline flag "--encrypt" which one can use to encrypt
the mysql database password. This will be decrypted before
connecting to the db. There is also a new config file option
"encrypt_passwd" which indicates an encrypted db-password.
ADDED: another new config option "ShortCd", which can be set to "yes"
or 1 and if set, then a command like "cd 13" would jump
directly to the topic of the note with the number 13.
ADDED: now you can at any time cd back to the "root" of the
topic-structure using the command "cd /".
CHANGED: mysql.pm does now only do a table-lock on single write
accesses, no more on the whole session. This allows one to
access the same db twice or more.
FIXED: Changed README and Changelog for readability on 80 by 25
displays. And changed indentation of the note script itself.
ADDED: NOTEDB.pm - a generic module, which holds some methods, which
are used by binary.pm, mysql.pm and dbm.pm.
ADDED: NOTEDB.pm generate_search(), which allows one to
use AND, OR and various combinations of them using ( and ).
ADDED: a search does now return the 2nd line of a note if a matching
note's first line is a topic.
CHANGED: use "unshift" instead of push to add $libpath to @INC.
ADDED: a new feature, Caching of notes. supported by binary.pm and
mysql.pm. To turn it on, one need to set "Cache" in the config
to a true value.
87 lines
2.0 KiB
HTML
87 lines
2.0 KiB
HTML
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<?
|
|
# ePerl
|
|
my $me = $0;
|
|
$me =~ s(^.*/)();
|
|
my $src = $me;
|
|
$src =~ s/\.html$//;
|
|
?>
|
|
<html>
|
|
<head>
|
|
<meta name="description" content="www.0x49.org - the home of the console note program">
|
|
<meta name="keywords" content="note, notes, notizen, console, perl, textmode, opensource, free">
|
|
<meta name="author" content="Thomas Linden">
|
|
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<title>www.0x49.org - the note homepage (<? print $src ?>)</title>
|
|
<!--
|
|
THE CONTENTS OF THESE WEBPAGES ARE PROTECTED BY COPYRIGHT LAW!
|
|
|
|
COPYRIGHT (C) 2000 THOMAS LINDEN, MUNICH.
|
|
ALL RIGHTS RESERVED.
|
|
-->
|
|
</head>
|
|
<body link="#000099" vlink="#000099">
|
|
<br>
|
|
<TABLE cellspacing="0" cellpadding="0" width="100%" border="0" bgcolor="cornflowerblue">
|
|
<TR>
|
|
<TD>
|
|
<TABLE cellspacing="2" cellpadding="2" width="100%" border="0" bgcolor="#FFFFFF">
|
|
<TR BGCOLOR="cornflowerblue" align="center">
|
|
<TD colspan=2 align=right>
|
|
<SPAN class=titlebar><font face="helvetica" color="#fffff"><b>note
|
|
<?
|
|
# ePerl
|
|
open VERSION, "contents/version" || die $!;
|
|
my $version = <VERSION>;
|
|
close VERSION;
|
|
chomp $version;
|
|
print $version;
|
|
?>
|
|
homepage</b></font></SPAN>
|
|
</TD>
|
|
</TR>
|
|
<TR align=left>
|
|
<TD width=15% bgcolor="beige" valign="top">
|
|
<font face="helvetica" >
|
|
<?
|
|
# ePerl
|
|
open MENU, "contents/menu" || die $!;
|
|
my @menu = <MENU>;
|
|
close MENU;
|
|
foreach (@menu) {
|
|
if(/\Q$me\E/) {
|
|
print "<b>$_</b>";
|
|
}
|
|
else {
|
|
print;
|
|
}
|
|
}
|
|
?>
|
|
</font>
|
|
<p> </p>
|
|
</TD>
|
|
<TD valign="top">
|
|
<TABLE WIDTH="90%" ALIGN="CENTER" VALIGN="TOP">
|
|
<TR>
|
|
<TD>
|
|
<?
|
|
# ePerl
|
|
$src = "contents/$src";
|
|
open SRC, "$src" || die $!;
|
|
my @lines = <SRC>;
|
|
print @lines;
|
|
close SRC;
|
|
?>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
<P>
|
|
</body>
|
|
</html>
|