Difference between revisions of "User:ThorstenStaerk"
From Linuxintro
imported>ThorstenStaerk |
imported>ThorstenStaerk |
||
| Line 7: | Line 7: | ||
== wiki2mindmap == | == wiki2mindmap == | ||
<pre> | <pre> | ||
| − | #!/bin/bash | + | #!/bin/bash |
| − | wget http://www.linuxintro.org/wiki/Special:Allpages | + | wget http://www.linuxintro.org/wiki/Special:Allpages |
| − | cat >spider<<EOF | + | cat >spider<<EOF |
| − | #!/usr/bin/perl | + | #!/usr/bin/perl |
| − | require HTML::LinkExtor; | + | require HTML::LinkExtor; |
| − | \$p = HTML::LinkExtor->new(\&parse, ""); | + | \$p = HTML::LinkExtor->new(\&parse, ""); |
| − | sub parse { | + | sub parse { |
| − | my(\$tag, %links) = @_; | + | my(\$tag, %links) = @_; |
| − | my (\$att, \$url) = @{[%links]}; | + | my (\$att, \$url) = @{[%links]}; |
print "\$url\ | print "\$url\ | ||
| − | "; | + | "; |
| − | } | + | } |
| − | \$p->parse_file(\$ARGV[0]); | + | \$p->parse_file(\$ARGV[0]); |
| − | EOF | + | EOF |
| − | chmod 777 spider | + | chmod 777 spider |
./spider Special\:Allpages | \ | ./spider Special\:Allpages | \ | ||
| − | grep "^/" | \ | + | grep "^/" | \ |
| − | grep -v ":" | \ | + | grep -v ":" | \ |
| − | grep -v "?" | \ | + | grep -v "?" | \ |
while read a | while read a | ||
do wget "http://www.linuxintro.org/$a" | do wget "http://www.linuxintro.org/$a" | ||
| Line 37: | Line 37: | ||
grep -v "?" | \ | grep -v "?" | \ | ||
grep -v "Main_Page" | \ | grep -v "Main_Page" | \ | ||
| − | grep -v " | + | grep -v "Feedback" | \ |
grep -v "/Contribute$" | \ | grep -v "/Contribute$" | \ | ||
grep -v "^/Projects$" | \ | grep -v "^/Projects$" | \ | ||
| Line 52: | Line 52: | ||
sed "s;^/.*/;;" | \ | sed "s;^/.*/;;" | \ | ||
while read file2 | while read file2 | ||
| − | do echo "\"$file\" -> \"$file2\"" | + | do if [ x"$file" != x"$file2" ]; then echo "\"$file\" -> \"$file2\"" ; fi |
done | done | ||
done >datei | done >datei | ||
| Line 62: | Line 62: | ||
dot -Tps -o graph.ps graph.dot | dot -Tps -o graph.ps graph.dot | ||
| + | convert graph.ps graph.jpg | ||
</pre> | </pre> | ||
Revision as of 10:19, 1 May 2009
This is the user page of Thorsten. Nothing here. Better go there.
hi
Ja, und ich hab noch eine Menge Sachen, die ich hier einpflegen könnte. Wie sieht es denn aus mit LDAP im allgemeinen und Kolab im speziellen? Soll ichs hier reinpacken, obwohl es eher nicht für Einsteiger ist?
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
