1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
#!/bin/sh
# vim:ts=8:et:fdm=marker
#
# dwww-refresh-cache -- refreshes dwww cache directory
#
# Part of the dwww package. Written by Robert Luberda.
#
# "@(#)dwww:$Id: dwww-refresh-cache 542 2010-01-06 22:10:35Z robert $"
set -e
. /usr/share/dwww/functions.sh && dwww_initialize || exit 1
export PATH=.:$PATH
echo -n "checking cache directory: $dwww_cache_dir..."
dwww_setup_cache_dir
echo done
# always remove temporary files, generated mostly by index++
echo -n "removing temporary files in cache dir..."
find "$dwww_cache_dir/" -maxdepth 1 \
-atime +2 \( -name '*.tmp.*' \
-o -name '[0-9]*.[0-9]*' \) \
-type f -print0 | xargs -0 rm -f
echo done
# remove temporary files, generated by dwww-build and dwww-build-menu
echo -n "removing temporary files in temp dir..."
find "$DWWW_TMPDIR/" -maxdepth 1 \
-ctime +1 \( -name 'dwww-build.*' \
-o -name 'dwww-build-menu.*' \) \
-type d -print0 | xargs -0 rm -rf
echo done
# remove accessed documents cache
if [ -n "$DWWW_KEEPDAYS" ] ; then
echo -n "removing stale cache entries..."
find "$dwww_cache_dir/" -maxdepth 3 \
-atime +"$DWWW_KEEPDAYS" -name '[^.]*' \
! -name 'dwww.swish++.index' \
! -name '*.dat' \
-type f -print0 | xargs -0 rm -f
echo done
su -s /bin/sh "$DWWW_CGIUSER" -c '/usr/sbin/dwww-cache --clean' < /dev/null || true
fi
pkglist="$dwww_cache_dir/pkglist.tmp.$$"
if [ -n "$DWWW_QUICKFIND_DB" ] || [ -n "$DWWW_DOCBASE2PKG_DB" ] ; then
echo -n "generating installed packages and programs list..."
LC_ALL=C dpkg-query --search '*bin/*' '/usr/games/*' '/usr/share/doc-base/*' > "$pkglist" 2>/dev/null || true
echo "done"
fi
if [ -n "$DWWW_QUICKFIND_DB" ] || [ -n "$DWWW_DOCBASE2PKG_DB" ] ; then
echo -n "generating source and virtual package list..."
LC_ALL=C dpkg-query --show --showformat='${status}, ${package}, ${source}, ${provides}\n' |
perl -ne '
chomp();
my ($status, $package, $source, @provides) = split(/, /);
next unless $status =~ /(installed|half-configured)$/;
next unless $package;
$source =~ s/ \(.*\).*// if $source;
print "$package: PKG-$package\n" unless $source;
print "$source: PKG-$package\n" if $source;
grep { print "$package: VRT-$_\n" } @provides if @provides;
' >> "$pkglist"
echo "done"
fi
if [ -n "$DWWW_DOCBASE2PKG_DB" ] ; then
echo -n "creating doc-base files to packages mapping file..."
grep '/usr/share/doc-base/' "$pkglist" | perl -ne '
chomp();
my ($pkg, $file) = split(/\s*:\s*/, $_, 2);
open (F, "<", $file) or next;
$_ = <F>;
chomp();
close (F);
s/^Document\s*:\s*(\S+).*/$1/;
next unless -f "/var/lib/doc-base/documents/$_";
print "$_\01$pkg\n";
' > "$DWWW_DOCBASE2PKG_DB.tmp.$$"
mv -f "$DWWW_DOCBASE2PKG_DB.tmp.$$" "$DWWW_DOCBASE2PKG_DB"
chmod 644 "$DWWW_DOCBASE2PKG_DB"
echo done
fi
if [ -n "$DWWW_QUICKFIND_DB" ] ; then
echo -n "creating installed packages & programs cache..."
dwww-quickfind --build "$DWWW_QUICKFIND_DB.tmp.$$" < "$pkglist"
mv -f "$DWWW_QUICKFIND_DB.tmp.$$" "$DWWW_QUICKFIND_DB"
chmod 644 "$DWWW_QUICKFIND_DB"
echo done
fi
if [ -e "$pkglist" ] ; then
rm -f "$pkglist"
fi
|
