Want to help improve the guide? Create an account now to get started!

Difference between revisions of "User:Elgaard"

From Wikitravel
Jump to: navigation, search
(About Me)
(Clean)
Line 1: Line 1:
Niels Elgaard Larsen, [[Copenhagen/Østerbro|Østerbro]], [[Copenhagen]], [[Denmark]]
 
==PGP==
 
<pre>
 
C588 057B 3397 4205 BB9E  1675 DAC4 BF6D 8F94 3E34
 
</pre>
 
  
==Use of Pictures==
 
 
[[Image:TunisNielsWTs.jpg|right|thumb|400px|Me, in Tunis]]
 
 
 
All pictures on Wikitravel copyrighted by me are cc-sa/GFDL dual licensed.
 
 
== About Me ==
 
 
[http://www.agol.dk/elgaard agol homepage]
 
 
My Username is also Elgaard on Wikipedia [http://en.wikipedia.org/wiki/User:Elgaard],[http://da.wikipedia.org/wiki/User:Elgaard] and Wikimedia Commons [http://commons.wikimedia.org/wiki/User:Elgaard]
 
 
==Docent==
 
 
If you want to contact me, email:
 
  elgaard <at> agol.dk
 
 
 
==Places I have been and contributed to Wikitravel==
 
 
 
* [[Denmark]] where I live
 
* [[Italy]] from [[Rome]] to [[Napoli]], [[Stia]], [[Montepulciano]], [[Pienza]], [[Casentino]], [[Castiglion Fiorentino]]
 
* [[Egypt]]: [[Cairo]]
 
* [[Brazil]]: [[Rio de Janeiro]], [[Sao Paulo]], [[Santos]], [[Paraty]]
 
* [[Croatia]]: [[Split]], [[Dubrovnik]], [[Hvar]], [[Trogir]]
 
* [[Ireland]]: [[Dublin]], [[Killarney]], [[Galway]], [[Cork]], [[Doolin]]
 
* [[Montenegro]]: [[Kotor]] and [[Budva]]
 
* [[Jordan]]: [[Amman]], [[Petra]], [[Wadi Rum]]
 
* [[Netherlands]]: [[Assen]], [[Delft]], [[Amsterdam]], [[Utrecht]], [[Friesland]]
 
* [[Canada]]: [[Brampton]], [[Toronto]], [[Montreal]], [[Nova Scotia]]
 
* [[Austria]]: [[Vienna]]
 
* [[Turkey]]: [[Pamukkale]], [[Ephesus]], [[Konya]], [[Cappadocia]]
 
* [[Svalbard]]
 
* [[Germany]]: [[Berlin]], [[Flensburg]], [[Oldenburg]]
 
* [[France]]: [[Paris]]
 
* [[England]]: [[London]], [[Liverpool]], [[Manchester]]
 
* [[Greece]]: [[Athens]]
 
* [[Russia]]: [[Moscow]], [[St Petersburg (Russia)]]
 
* [[Sweden]]: [[Malmø]],[[Uppsala]], [[Lund]], [[Stockholm]], [[Linkøbing]]
 
* [[Tunisia]]: [[Tunis]], [[Sidi Bou Said‎]]
 
* [[United States of America]]: [[Chicago]], [[Lafayette (Indiana)‎]], [[Detroit]], [[New York (city)]], [[Buffalo]]
 
* [[Poland]]: [[Warsaw]], [[Szczecin]]
 
* [[Belgium]]: [[Brussels]], [[Bruges]]
 
* [[Australia]]: [[Eden]]
 
* [[Switzerland]]: [[Geneva]]
 
* [[Portugal]]: [[Lissabon]], [[Porto]], [[Sintra]], [[Coimbra]]
 
* [[Spain]]: [[Barcelona]], [[Salamanca]]
 
* [[Norway]]: [[Oslo]]
 
* [[Chile]]:
 
* [[Argentina]]: [[Buenos Aires]], [[Salta]]
 
* [[Gambia]] : [[Banjul]]
 
* [[Thailand]]: [[Chiang Mai]],[[Chiang Rai]]
 
* [[China]]: [[Shanghai]], [[Hong Kong]], [[Macao]]
 
* [[Greenland]]: [[Nuuk]], [[Kangerlussuaq]]
 
 
==Wikitravel as book==
 
 
I managed to make an automatic [http://www.agol.dk/elgaard/Italy_Wikitravel.pdf Wikitravel book for all of Italy]. There is still a lot on the TODO list, but my plane leaves in 9 hours, so I better stop now :-)
 
 
It is based on [[User:Mark]]'s mvs and html2ps.
 
 
The script is (I changed it to do only Rome by default):
 
<pre>
 
#!/usr/bin/perl
 
 
# wtbook
 
 
#(c) 2005, Niels Elgaard Larsen
 
# Licence: GPL
 
 
#TODO:
 
#  Handle dead links
 
# Unicode
 
# info box
 
# make html2ps xrefs work.
 
 
$initDest="Rome";
 
#$initDest="Italy";
 
my @newdests = ($initDest);
 
my @donedests = ( );
 
 
#my @sorted    = sort @animals;
 
 
sub destin {
 
  my $ldst = shift(@_);
 
  $ldst =~ s/ /_/ge;
 
  $ldst =~ s/\'/%27/ge;
 
##  print "ins $ldst EE args=@_ \n";
 
  foreach $de (@donedests) {
 
    if ($de eq $ldst) {
 
      return;
 
    }
 
  }
 
 
  foreach $de (@newdests) {
 
    if ($de eq $ldst) {
 
      return;
 
    }
 
  }
 
    push @newdests, $ldst;
 
}
 
 
 
while ($dst=pop(@newdests)) {
 
  print "Doing $dst.wiki\n";
 
  $getwiki = system("mvs update $dst.wiki");
 
  $er=open(WF, "$dst.wiki");
 
  #print "GW = $getwiki er= $er \n";
 
 
 
  ## TODO Other Destinations
 
  #for Districs Regions
 
  while (<WF>) {
 
    if (/== *(|Regions|Cities|Districts) *==/i ) {
 
      print DIST;
 
      last;
 
    }
 
    print x1 $_;
 
  }
 
 
 
  while (<WF>) {
 
    if (/\*\[\[([^\]\|]*)/i) {
 
      #    print "stjYY $1 d2 $2 XX $_\n";
 
      print "$1\n";
 
      destin($1);
 
      next;
 
    }
 
    if ( /^==/ ) {
 
      last;
 
    }
 
  }
 
  close(WF);
 
  push @donedests, $dst;
 
}
 
print "\ndonedests= @donedests\n";
 
print "newdests= @newdests\n";
 
#### Print it
 
 
 
# wt2ps is a modified html2ps, hacked to do extra CSS2 tags (like the printing SS) and a few unicodes (euro), fixed /table bug
 
$dno = 0;
 
 
$dlist = "";
 
 
foreach $de (@donedests) {
 
  $dno = $dno +1;
 
  $dnos = sprintf ("%03d",$dno);
 
  $of =  "P$dnos$de.ps";
 
  $of =~ s/\//D/ge;
 
  if (system("ls $de.wiki")) {
 
    print "Err $de dead\n";
 
  } else {
 
    print "converting to PS http://wikitravel.org/en/$de to P$dnos$de.ps\n";
 
    $dlist = $dlist . " http://wikitravel.org/en/$de "
 
  }
 
}
 
print "Destination list is $dlist";
 
system("wt2ps -D --number  --output $initDest.ps --duplex 1 -H $dlist ");
 
</pre>
 
 
My modified html2ps i call [[User:Elgaard/wt2ps]]
 
[[User:Elgaard//mvfoo]]
 
==Sandbox==
 
 
{{isIn|Copenhagen}}
 
{{geo|55.7065|12.5809}}
 

Revision as of 22:14, 3 January 2013

Variants

Actions

Destination Docents

In other languages