log everything with warn

diff --git a/rsync-piper.pl b/rsync-piper.pl
index 04c3a8a..9979c23 100755 (executable)
--- a/rsync-piper.pl
+++ b/rsync-piper.pl
@@ -49,7 +49,7 @@ my @transfer_names =          map { ( split(/:/,$_,3) )[0] } @transfer;
 my $transfer_log   = join('|',map { ( split(/:/,$_,3) )[1] } @transfer );
 
 if ( $ENV{SQL} ) {
-       print "CREATE TABLE rsync_transfer (\n\t",
+       warn "CREATE TABLE rsync_transfer (\n\t",
        join(",\n\t", map { my @m = split(/:/,$_,3); "$m[0] $m[2]" } @transfer),
        "\n);\n";
        exit 1;
@@ -125,7 +125,7 @@ while(<$p>) {
 
 __RSYNC_MODULE__
 
-               print "INFO: added $login = $auth_users\n";
+               warn "INFO: added $login = $auth_users\n";
 
        } else {
                warn "skipped $login: $!";