/[safari]/get_book.sh
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /get_book.sh

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Thu Jan 15 12:39:37 2004 UTC (20 years, 2 months ago) by dpavlin
Branch: MAIN
Changes since 1.4: +57 -7 lines
File MIME type: application/x-sh
lot of improvements

1 dpavlin 1.1 #!/bin/sh
2    
3 dpavlin 1.5 # proxy settings (same as in firebird)
4 dpavlin 1.4 export http_proxy=http://proxy:8080
5 dpavlin 1.5 # user agent (same as in firebird)
6     ua="Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031225 Firebird/0.7"
7    
8     # wait between pages
9     export wait=120
10    
11 dpavlin 1.1
12 dpavlin 1.2 if [ -z "$1" ] ; then
13     echo "Usage: $0 ISBN"
14     exit 1
15     fi
16    
17 dpavlin 1.5 if [ -e orig ] ; then
18     echo "orig directory found. Resume download? [Y/n]"
19     read ans
20     if [ "$ans" = "n" ] ; then
21     exit 1;
22     fi
23     mv orig/* .
24     rm -Rf orig
25    
26     grep -l 'promo.asp' * | xargs -i rm -v {}
27     fi
28    
29 dpavlin 1.2 isbn=$1;
30 dpavlin 1.1
31     isbn2=`echo $isbn | sed 's/-//g'`
32    
33     function mirror() {
34 dpavlin 1.5
35     url="$1"
36    
37     file=`echo $url | sed -e s,http://[^?]*?,index.html?, -e s,#.*$,, -e s,/,%2F,g`
38     if [ -e "$file" ] ; then
39     # echo "skip $url"
40     return
41     fi
42    
43     if echo $url | grep '/index' >/dev/null ; then
44     cookies=""
45     echo -n "no login (index) "
46     elif echo $url | grep 'mode=toc' >/dev/null ; then
47     cookies=""
48     echo -n "no login (toc) "
49     else
50     cookies="--load-cookies=/home/dpavlin/.phoenix/default/g6b45nt6.slt/cookies.txt"
51     echo -n "with login "
52     fi
53     echo $url
54    
55 dpavlin 1.1 wget -p -nH -nc -k \
56 dpavlin 1.5 -t 1 -U "$ua" \
57     $cookies $url
58 dpavlin 1.1
59     # -D safari.oreilly.com \
60     # -A 0-201-41975-0 \
61 dpavlin 1.5
62     perl -e '$t=rand($ENV{wait} || 30);print "sleep for $t sec.\n"; sleep($t);'
63 dpavlin 1.1 }
64    
65     function geturl() {
66 dpavlin 1.2 hindent -s $1 | grep -i href | grep mode=[st][eo]c | \
67 dpavlin 1.1 sed -e 's/^.*<a.*href="//i' \
68     -e 's/".*//' -e 's/amp;//g' \
69     -e 's,^[^\?]*\?,http://safari.oreilly.com/,' \
70     -e 's/#$//' \
71 dpavlin 1.2 -e 's/\&srchText=//' \
72     -e 's/open=false/open=true/' | \
73 dpavlin 1.1 grep '&s=1&b=1&f=1&t=1&c=1&u=1&r=&o=1' | \
74 dpavlin 1.2 grep $2 | \
75 dpavlin 1.5 grep -v "$2/[0-9][0-9][0-9][0-9][0-9][0-9][0-9]" | \
76 dpavlin 1.1 sort -u >> in
77     }
78    
79 dpavlin 1.2 function uniqurl() {
80     mv in in.tmp
81     grep -v 'view=[A-Z]' in.tmp | sort -u > in
82     grep 'view=[A-Z].*/index' in.tmp | sort -u >> in
83     }
84    
85 dpavlin 1.4 function mirror_in() {
86     cat in | while read url ; do
87     mirror "$url"
88 dpavlin 1.5 #sleep $wait
89 dpavlin 1.4
90     if grep 'promo.asp' `ls -t index.html* | head -3` >/dev/null ; then
91 dpavlin 1.5 echo "WARNING: safari seems to logout you as user. Aborting."
92     exit 1
93     fi
94    
95     if grep -i '>Account locked<' `ls -t index.html* | head -3` >/dev/null ; then
96     echo "WARNING: your safari account is locked. Aborting."
97     exit 1
98     fi
99    
100     if grep -i 'session disabled' `ls -t index.html* | head -3` >/dev/null ; then
101     echo "WARNING: your safari session is disabled. Aborting."
102 dpavlin 1.4 exit 1
103     fi
104     done
105 dpavlin 1.3 }
106    
107 dpavlin 1.4 echo -n > in
108 dpavlin 1.2 mirror "http://safari.oreilly.com/?XmlId=$isbn"
109 dpavlin 1.1
110     echo "extract URLs from first page..."
111     geturl "index.html?XmlId=$isbn" $isbn
112 dpavlin 1.2 uniqurl
113 dpavlin 1.1
114 dpavlin 1.4 mirror_in
115 dpavlin 1.1
116     echo -n "extracting URLs [1]"
117     ls index.html* | while read file ; do
118     echo -n "."
119     geturl $file $isbn
120     done
121     echo
122    
123 dpavlin 1.2 uniqurl
124 dpavlin 1.1
125 dpavlin 1.4 mirror_in
126 dpavlin 1.1
127 dpavlin 1.4 echo -n > in
128 dpavlin 1.1 echo -n "extracting URLs [2]"
129     ls index.html* | while read file ; do
130     echo -n "."
131     geturl $file $isbn
132     done
133    
134 dpavlin 1.2 uniqurl
135    
136 dpavlin 1.4 mirror_in
137 dpavlin 1.2
138     # convert links in html
139     bn=`basename $0`
140     dir=`echo $0 | sed "s/$bn$//"`
141     ls index.html* | xargs -i $dir/filter.pl {}
142     mkdir orig
143     mv index.html* orig/
144 dpavlin 1.1

  ViewVC Help
Powered by ViewVC 1.1.26