User:ThorstenStaerk

This is the user page of Thorsten. Nothing here. Better go there.

Lego mindstorm

Here are my notes for writing an article on Lego Mindstorm: http://linux.softpedia.com/progDownload/LEGO-RCX-Download-46173.html http://tldp.org/HOWTO/Lego/index.html

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