[Pgp-tools-commit] r237 - trunk/caff

[Peter Palfrader]

Author: weasel
Date: 2005-08-26 22:32:40 +0000 (Fri, 26 Aug 2005)
New Revision: 237

Modified:
   trunk/caff/caff
Log:
Move logging functions further up

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2005-08-22 23:55:27 UTC (rev 236)
+++ trunk/caff/caff	2005-08-26 22:32:40 UTC (rev 237)
@@ -283,6 +283,30 @@
 my ($REVISION_NUMER) = $REVISION =~ /(\d+)/;
 my $VERSION = "0.0.0.$REVISION_NUMER";
 
+
+
+sub notice($) {
+	my ($line) = @_;
+	print "[NOTICE] $line\n";
+};
+sub info($) {
+	my ($line) = @_;
+	print "[INFO] $line\n";
+};
+sub debug($) {
+	my ($line) = @_;
+	#print "[DEBUG] $line\n";
+};
+sub trace($) {
+	my ($line) = @_;
+	#print "[trace] $line\n";
+};
+sub trace2($) {
+	my ($line) = @_;
+	#print "[trace2] $line\n";
+};
+
+
 sub generate_config() {
 	die "Error: \$LOGNAME is not set.\n" unless $ENV{LOGNAME};
 	my $gecos = (getpwnam($ENV{LOGNAME}))[6];
@@ -385,27 +409,6 @@
 EOM
 };
 
-sub notice($) {
-	my ($line) = @_;
-	print "[NOTICE] $line\n";
-};
-sub info($) {
-	my ($line) = @_;
-	print "[INFO] $line\n";
-};
-sub debug($) {
-	my ($line) = @_;
-	#print "[DEBUG] $line\n";
-};
-sub trace($) {
-	my ($line) = @_;
-	#print "[trace] $line\n";
-};
-sub trace2($) {
-	my ($line) = @_;
-	#print "[trace2] $line\n";
-};
-
 sub make_gpg_fds() {
 	my %fds = (
 		stdin => IO::Handle->new(),