Mercurial > ec-dotfiles
annotate moefetch.sh @ 157:ffca564daefa
fix: I suck at comm
| author | edhoprima |
|---|---|
| date | Sat, 25 Apr 2009 16:26:00 +0000 |
| parents | d3b002fd944e |
| children | cba73f6a96bb |
| rev | line source |
|---|---|
| 148 | 1 #!/bin/sh |
| 2 | |
| 3 # Copyright (c) 2009, edogawaconan <me@myconan.net> | |
| 4 # | |
| 5 # Permission to use, copy, modify, and/or distribute this software for any | |
| 6 # purpose with or without fee is hereby granted, provided that the above | |
| 7 # copyright notice and this permission notice appear in all copies. | |
| 8 # | |
| 9 # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
| 10 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
| 11 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
| 12 # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
| 13 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
| 14 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
| 15 # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
| 16 | |
| 17 # Version 0.1-alpha1. Lots of bugs here. Use with care | |
| 18 # USE WITH CARE | |
| 19 | |
| 20 # what it does: fetch every picture that has the specified tags. | |
| 21 | |
| 22 # requirement: wget, libxslt, md5sum (or md5) | |
| 23 | |
| 24 # configs | |
| 25 # program additional paths for: cut, sed, wc, md5(sum), wget, xsltproc | |
| 26 extrapath= | |
| 27 | |
| 28 # md5 calculation, expected output: <32digit md5><space(s)><filename> | |
| 29 # gnu: "md5sum", bsd: "md5 -r" | |
| 30 md5="md5 -r" | |
| 31 | |
| 32 # server address. Danbooru only! I do not take responsibility of stupidity. | |
| 33 site="moe.imouto.org" | |
| 34 | |
| 35 # base directory. make sure it's writeable. I do not take responsibility if you don't own the folder and files as no check is done for this one. | |
| 36 # Structure is $basedir/<tags> | |
| 37 basedir="/home/ifail/test" | |
| 38 | |
| 39 # not user modifiable from here | |
| 40 | |
| 41 GENERATE() | |
| 42 { | |
| 43 echo | |
| 44 echo "Fetching xml file" | |
| 45 wget "http://$site/post/index.xml?tags=$tags&offset=0&limit=100000" -O "$outdir-xml" -e continue=off | |
| 46 echo "Processing XML file..." | |
| 47 # xslt evilry | |
| 48 xsltproc - "$outdir-xml" <<EOF | sed 's/.*\(http.*\)\(\/[a-f0-9]\{32\}\).*\.\([jp][pn]g\)/\1\2.\3/g' | grep ^http > "$outdir-list" | |
| 49 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> | |
| 50 <xsl:output method="xml" indent="yes"/> | |
| 51 <xsl:template match="post"> | |
| 52 <xsl:value-of select="@file_url" /> | |
| 53 </xsl:template> | |
| 54 </xsl:stylesheet> | |
| 55 EOF | |
| 56 echo "`echo \`wc -l < \"$outdir-list\" \`` file(s) available on server" | |
| 57 #output file: $outdir-list | |
| 58 } | |
| 59 | |
| 60 CHECK() | |
| 61 { | |
| 62 if [ "$ISNEW" -ne 1 ];then | |
| 63 echo "Checking for errors..." | |
| 64 # THE FILES | |
| 154 | 65 printf "" > "$outdir-error" |
| 148 | 66 cd "../$outdir" |
| 67 for file in `ls` | |
| 68 do | |
| 69 if [ `$md5 "$file" | cut -d ' ' -f1 -` != `echo "$file" | cut -d '.' -f1` ] | |
| 70 then | |
| 71 echo "$file" >> "../temp/$outdir-error" | |
| 72 echo "Error: $file" | |
| 73 fi | |
| 74 printf "." | |
| 75 done | |
| 76 echo | |
| 77 cd ../temp | |
| 153 | 78 totalerr=`echo \`wc -l < "$outdir-error"\`` |
| 148 | 79 echo "$totalerr file(s) error" |
| 80 | |
| 81 echo "Generating list of new files..." | |
| 82 # THE FILES | |
| 83 #ls "../$outdir" | grep -vf "$outdir-error" > "$outdir-ok" | |
|
156
d3b002fd944e
fix: my attempt at speeding up things failed. reverting back to trusty grep -vf
edhoprima
parents:
155
diff
changeset
|
84 # |
| 157 | 85 ls "../$outdir" | comm -1 -3 "$outdir-error" - > "$outdir-ok" |
|
156
d3b002fd944e
fix: my attempt at speeding up things failed. reverting back to trusty grep -vf
edhoprima
parents:
155
diff
changeset
|
86 cat "$outdir-list" | grep -vf "$outdir-ok" > "$outdir-newlist" |
| 148 | 87 echo "`echo \`wc -l < \"$outdir-newlist\"\`` file(s) to be downloaded" |
| 88 cd "../$outdir" | |
| 89 | |
| 90 echo "Removing error files" | |
| 153 | 91 if [ $totalerr -eq 0 ]; then |
| 92 echo "No error file. 0 file removed" | |
|
156
d3b002fd944e
fix: my attempt at speeding up things failed. reverting back to trusty grep -vf
edhoprima
parents:
155
diff
changeset
|
93 else |
| 148 | 94 cat "../temp/$outdir-error" | xargs rm |
|
156
d3b002fd944e
fix: my attempt at speeding up things failed. reverting back to trusty grep -vf
edhoprima
parents:
155
diff
changeset
|
95 echo "$totalerr file(s) removed" |
| 148 | 96 fi |
| 97 echo "`echo \`ls | wc -l\`` file(s) available locally" | |
|
155
78ef726d3845
fix: whoops. Forgot to move back to workdir after
edhoprima
parents:
154
diff
changeset
|
98 cd ../temp |
| 148 | 99 else |
| 152 | 100 if [ $ISQUICK -eq 1 ]; then |
| 101 echo "quick mode selected. Skipping check" | |
| 102 else | |
| 103 echo "Empty local repository" | |
| 104 fi | |
| 148 | 105 cat "$outdir-list" > "$outdir-newlist" |
| 106 fi | |
| 107 } | |
| 108 | |
| 109 FETCH() | |
| 110 { | |
|
155
78ef726d3845
fix: whoops. Forgot to move back to workdir after
edhoprima
parents:
154
diff
changeset
|
111 if [ `echo \`wc -l < "$outdir-newlist"\`` -eq 0 ]; then |
| 148 | 112 echo "No new file" |
| 113 else | |
| 114 echo "Starting wget" | |
| 115 cd "../$outdir" | |
| 157 | 116 wget -e continue=on -bi "../temp/$outdir-newlist" -o "../temp/$outdir.log" |
| 148 | 117 fi |
| 118 } | |
| 119 | |
| 120 | |
| 121 # path initialization | |
| 122 export PATH=${PATH}:$extrapath | |
| 123 | |
| 124 # verify all programs required do indeed exist | |
| 125 # basic tools | |
| 126 commands="cut sed wc wget xsltproc xargs rm mkdir chown comm" | |
| 127 cmderr=" " | |
| 128 for cmd in $commands | |
| 129 do | |
| 130 command -v "$cmd" >/dev/null || cmderr="$cmderr $cmd" | |
| 131 done | |
| 132 if [ x"$cmderr" != x" " ]; then | |
| 133 echo "$cmderr doesn't exist in $PATH" | |
| 134 exit 1 | |
| 135 fi | |
| 136 #md5 | |
| 137 md5base=`echo $md5 | cut -d ' ' -f 1 -` | |
| 138 if [ x`command -v "$md5base" >/dev/null || echo x` != "x" ]; then | |
| 139 echo "$md5base doesn't exist in $PATH" | |
| 140 exit 1 | |
| 141 fi | |
| 150 | 142 mdtest= |
| 151 | 143 if [ `echo test | $md5 | cut -d ' ' -f 1 -` != "d8e8fca2dc0f896fd7cb4cb0031ba249" ]; then |
| 148 | 144 echo "$md5 doesn't produce wanted output" |
| 145 exit 1 | |
| 146 fi | |
| 147 | |
| 148 | |
| 149 # all green (part 1)! let's go (until we check the tag) | |
| 150 | |
| 151 # initialization | |
| 152 # are we really doing it? | |
| 152 | 153 HELP="Usage: moefetch (quick)fetch|status <tags>" |
| 154 | |
| 148 | 155 if [ $# -lt 2 ]; then |
| 152 | 156 echo "$HELP" |
| 148 | 157 exit 1 |
| 158 fi | |
| 159 | |
| 160 case "$1" in | |
| 152 | 161 status|fetch|quickfetch) |
| 148 | 162 echo "Starting..." |
| 163 ;; | |
| 164 *) | |
| 152 | 165 echo "$HELP" |
| 148 | 166 exit 1 |
| 167 ;; | |
| 168 esac | |
| 169 | |
| 170 # we did it indeed | |
| 171 # get started | |
| 172 | |
| 173 # do we own the files | |
| 174 tags=`echo "$@" | cut -d ' ' -f 2- -` | |
| 175 echo "Tags: $tags" | |
| 176 # slash do not want | |
| 177 outdir=`echo "$tags" | sed -e 's/\//_/g'` | |
| 152 | 178 ISNEW=0 |
| 148 | 179 if [ -O "$basedir" ]; then |
| 180 if [ ! -d "$basedir/$outdir" ]; then | |
| 181 ISNEW=1 | |
| 182 mkdir "$basedir/$outdir" | |
| 183 fi | |
| 184 if [ ! -O "$basedir/$outdir" ]; then | |
| 185 echo "You don't own the $basedir/$outdir, applying globally writeable permission on it" | |
| 186 chmod -R u=rwX,g=rwX,o=rwX "$basedir/$outdir" | |
| 187 fi | |
| 188 if [ `echo \`ls "$basedir/$outdir" | wc -l\`` -eq 0 ]; then | |
| 189 ISNEW=1 | |
| 190 fi | |
| 191 if [ ! -d "$basedir/temp" ]; then | |
| 192 mkdir "$basedir/temp" | |
| 193 fi | |
| 194 if [ ! -O "$basedir/temp" ]; then | |
| 195 echo "You don't own the $basedir/temp, applying globally writeable permission on it" | |
| 196 chmod -R u=rwX,g=rwX,o=rwX "$basedir/temp" | |
| 197 fi | |
| 198 else | |
| 199 echo "Fatal error: you don't own ${basedir}. Please fix ${basedir}. Stopping" | |
| 200 exit 1 | |
| 201 fi | |
| 202 # let's move to workdir | |
| 203 cd "$basedir/temp" | |
| 204 touch "$outdir-error" | |
| 205 touch "$outdir-ok" | |
| 206 touch "$outdir-list" | |
| 207 touch "$outdir-newlist" | |
| 208 # | |
| 209 | |
| 210 # let's do the job! | |
| 152 | 211 ISQUICK=0 |
| 148 | 212 case "$1" in |
| 213 status) | |
| 214 GENERATE | |
| 215 CHECK | |
| 216 ;; | |
| 152 | 217 fetch) |
| 148 | 218 GENERATE |
| 219 CHECK | |
| 220 FETCH | |
| 221 ;; | |
| 152 | 222 quickfetch) |
| 223 GENERATE | |
| 224 ISNEW=1 | |
| 225 ISQUICK=1 | |
| 226 CHECK | |
| 148 | 227 FETCH |
| 228 esac |