User:ThorstenStaerk
From Linuxintro
This is the user page of Thorsten. Nothing here. Better go there.
new entry into Cake of the Week last week. Amy joined us from Cooking,Cakes and Children with this fabuolus lego cake. I'm desperate to do a funky lego cake but try as I might my girls seem to want other
wiki2mindmap
#!/bin/bash
wget http://www.linuxintro.org/wiki/Special:Allpages
cat >spider<<EOF
#!/usr/bin/perl
require HTML::LinkExtor;
\$p = HTML::LinkExtor->new(\&parse, "");
sub parse {
my(\$tag, %links) = @_;
my (\$att, \$url) = @{[%links]};
print "\$url\
";
}
\$p->parse_file(\$ARGV[0]);
EOF
chmod 777 spider
./spider Special\:Allpages | \
grep "^/" | \
grep -v ":" | \
grep -v "?" | \
while read a
do wget "http://www.linuxintro.org/$a"
done
for file in $(ls --ignore="*:*")
do ./spider $file | \
grep "^/" | \
grep -v ":" | \
grep -v "?" | \
grep -v "Main_Page" | \
grep -v "Feedback" | \
grep -v "/Contribute$" | \
grep -v "^/Projects$" | \
grep -v "^/Development$" | \
grep -v "^/Policies$" | \
grep -v "^/Projects$" | \
grep -v "^/Projects/NamingTheWiki$" | \
grep -v "^/Schedules$" | \
grep -v "^/favicon.ico$" | \
grep -v "/opensearch_desc.php$" | \
grep -v "^/$" | \
grep -v ".png$" | \
grep -v "^/Development/Tutorials$" | \
sed "s;^/.*/;;" | \
while read file2
do if [ x"$file" != x"$file2" ]; then echo "\"$file\" -> \"$file2\"" ; fi
done
done >datei
echo "# to create a ps file use 'dot -Tps -o graph.ps graph.dot' (dot it part of the graphviz package)" > graph.dot
echo "digraph \"Wikimap\" { " >> graph.dot
cat datei >>graph.dot
echo "}" >> graph.dot
dot -Tps -o graph.ps graph.dot
convert graph.ps graph.jpg
