User:ThorstenStaerk

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