# HG changeset patch
# User igor@book.xt.vpn
# Date 1229374023 -7200
# Node ID 1cbdfdde1274ae5420cb36b16bfaf8d2d5294885
# Parent  51a232faeb27b01ce4c0a3c0c8a6131bb6efaee7
mass upload

diff -r 51a232faeb27 -r 1cbdfdde1274 l3bashrc
--- a/l3bashrc	Wed Jul 23 00:41:26 2008 +0300
+++ b/l3bashrc	Mon Dec 15 22:47:03 2008 +0200
@@ -211,13 +211,15 @@
     then
         echo Usage:
         echo 
-        echo    l3upload "<filename>"
+        echo    l3upload "<filename> [<time>]"
         echo
         echo "<filename>" - name of the file to upload
         return 1
     else
         source=$1 
-        target="${L3_SESSION_ID}_`date +%s`"_"$(echo $source|sed s@.*/@@)"
+        time=`date +%s`
+        [ -n "$2" ] && time="$2"
+        target="${L3_SESSION_ID}_$time"_"$(echo $source|sed s@.*/@@)"
         if echo $source | grep -q http://
         then
             curl -s "$source" > /tmp/$target 
@@ -230,6 +232,14 @@
     fi
 }
 
+l3mass_upload()
+{
+    for i in "$@"
+    do
+      l3upload $i `perl -e 'print (((stat("$i"))[9])."\n")'`
+    done
+}
+
 # Append lines from "$@" files to the end of the shell history
 hist_append ()
 {