dump SQL schema for rsync_transfer

diff --git a/rsync-piper.pl b/rsync-piper.pl
index 27d2f22..7e74e12 100755 (executable)
--- a/rsync-piper.pl
+++ b/rsync-piper.pl
@@ -33,6 +33,13 @@ file:%f:text
 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",
+       join(",\n\t", map { my @m = split(/:/,$_,3); "$m[0] $m[2]" } @transfer),
+       "\n);\n";
+       exit 1;
+}
+
 mkdir $dir if ! -e $dir;
 
 mkfifo $log_fifo, 0700 unless -p $log_fifo;