Primera

1 files changed, 41 insertions, 0 deletions

diff --git a/coment.ar b/coment.ar
new file mode 100755
index 0000000..4cc4487
--- /dev/null
+++ b/coment.ar
@@ -0,0 +1,41 @@
+#!/bin/sh
+
+if [ "1" != "$#" ]; then
+    echo 'Número incorrecto de parámetros!!'
+    echo 'USO:'
+    echo "$0 usuario_destino"
+    return 2
+fi
+echo Ingrese el nombre del archivo
+echo en el que quiere comentar
+read z
+destino="$1"
+autor="$USER"
+
+if [ "$EDITOR" == "" ]; then
+    EDITOR="nano"
+fi
+
+tmpfile=$(mktemp)
+
+$EDITOR "$tmpfile"
+
+if [ ! -s "$tmpfile" ]; then
+    echo "El archivo esta vació, abortando."
+    rm "$tmpfile"
+    return 1
+fi
+
+date=$(date +"%Y-%m-%d")
+
+{
+    printf '<hr/>\n<p>%s - <strong>%s</strong>:</p>\n' "$date" "$autor"
+    printf '<pre>'
+    cat "$tmpfile" |
+        sed 's|&|\&amp;|g;s|<|\&lt;|g;s|>|\&gt;|g'
+    printf '</pre>\n'
+} >> /home/$destino/public_html/com/${z}.html
+
+rm "$tmpfile"
+
+return 0