X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=352017509dfe6d9a01119b1cd8490f8392fb34a2;hb=29103470e4470c002d5e523c29c1407efd033801;hp=97b0aa25ff7d7645aa98854f569a7f0e7ff77add;hpb=0431a779a59576cabedb9a048e659561a73cf333;p=pgp-tools.git

diff --git a/caff/caff b/caff/caff
index 97b0aa2..3520175 100755
--- a/caff/caff
+++ b/caff/caff
@@ -283,6 +283,30 @@ my $REVISION = '$Rev$';
 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 @@ Regards,
 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(),