Adding ledgersmb.conf.default

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@908 4979c152-3d1c-0410-bac9-87ea11338e46

2 files changed, 82 insertions, 8 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index a7a34db6..3a38fef3 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -12,6 +12,10 @@ in database objects (LedgerSMB::DBObject)
 =item new ()
 This method creates a new base request instance. 
 
+=item date_to_number (user => $LedgerSMB::User, date => $string);
+This function takes the date in the format provided and returns a numeric 
+string in YYMMDD format.  This may be moved to User in the future.
+
 =item debug (file => $path);
 
 This dumps the current object to the file if that is defined and otherwise to 
@@ -28,7 +32,12 @@ This function returns the $string encoded using %hexhex using ordinary notation.
 =item format_amount (user => $LedgerSMB::User::hash, amount => $string, precision => $integer, neg_format => (-|DRCR));
 
 The function takes a monetary amount and formats it according to the user 
-preferences, the negative format (- or DR/CR).
+preferences, the negative format (- or DR/CR).  Note that it may move to
+LedgerSMB::User at some point in the future.
+
+=item parse_amount (user => $LedgerSMB::User::hash, amount => $variable);
+If $amount is a Bigfloat, it is returned as is.  If it is a string, it is 
+parsed according to the user preferences stored in the LedgerSMB::User object.
 
 =item format_fields (fields => \@array);
 This function converts fields to their appropriate representation in 
@@ -368,10 +377,12 @@ sub format_amount {
 	$amount;
 }
 
-
+# This should probably go to the User object too.
 sub parse_amount {
-
-	my ($self, $myconfig, $amount) = @_;
+	my $self = shift @_;
+	my %args = @_;
+	my $myconfig = $args{user};
+	my $amount = $args{amount};
 
 	if ($amount eq '' or $amount == undef){
 		return 0;
@@ -447,9 +458,12 @@ sub call_procedure {
 	@results;
 }
 
-sub datetonum {
-
-	my ($self, $myconfig, $date, $picture) = @_;
+# This should probably be moved to User too...
+sub date_to_number {
+	my $self = shift @_;
+	my %args = @_;
+	my $myconfig = $args{user};
+	my $date = $args{date};
 
 	my ($yy, $mm, $dd);
 	if ($date && $date =~ /\D/) {
@@ -483,7 +497,10 @@ sub datetonum {
 # Database routines used throughout
 
 sub db_init {
-	my ($self, $myconfig) = @_;
+	my $self = shift @_;
+	my %args = @_;
+	my $myconfig = $args{user};
+
 	$self->{dbh} = $self->dbconnect_noauto($myconfig) || $self->dberror();
 
 	my $query = 
@@ -501,6 +518,8 @@ sub db_init {
 	}
 }
 
+# Will merge this into db_init in the future.  
+# Deprecated and hence undocumented.  Chris.
 sub dbconnect_noauto {
 
 	my ($self, $myconfig) = @_;
diff --git a/ledgersmb.conf.default b/ledgersmb.conf.default
new file mode 100644
index 00000000..04aa3386
--- /dev/null
+++ b/ledgersmb.conf.default
@@ -0,0 +1,55 @@
+session  : DB
+logging  : 0
+
+# Set language for login and admin pages
+language : 
+
+# If you have LaTeX installed, set to 1
+latex : 1
+
+# Maximum number of invoices that can be printed on a cheque
+check_max_invoices : 5
+
+[environment]
+# If the server can't find applications, append to the path
+PATH: /usr/local/pgsql/bin
+PATH: /usr/local/bin
+
+# If on Mac OS X using Fink's Perl libs, append to the path
+#PERL5LIB = /sw/lib/perl5
+
+[paths]
+# spool directory for batch printing
+spool      = spool
+# path to user configuration files
+userspath  = users
+# templates base directory
+templates  = templates
+# images base directory
+images  = images
+# member file
+memberfile = users/members
+localepath = locale/po
+
+[programs]
+# program to use for file compression
+gzip       = gzip -S .gz
+
+[mail]
+### How to send mail.  The sendmail command is used unless smtphost is set.
+sendmail   = /usr/bin/sendmail -t
+# smtphost = 127.0.0.1
+# smtptimeout = 60
+
+[printers]
+# Available printers
+Laser      = lpr -Plaser
+Epson      = lpr -PEpson
+
+[globaldb]
+# These paramaters *must* be set correctly
+# for LedgerSMB >= 1.2 to work
+DBUserName   = ledgersmb
+DBPassword   = set me to correct password
+DBport: 5432
+DBName:  Set me to your database name