YOU CAN EDIT THIS PAGE! Just click any blue "Edit" link and start writing!

Difference between revisions of "User:Elgaard"

From Wikitravel
Jump to: navigation, search
(About Me)
(About Me)
Line 16: Line 16:
 
[http://www.agol.dk/elgaard agol homepage]
 
[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}
+
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==
 
==Docent==

Revision as of 21:41, 12 September 2012

Niels Elgaard Larsen, Østerbro, Copenhagen, Denmark

PGP

C588 057B 3397 4205 BB9E  1675 DAC4 BF6D 8F94 3E34

Use of Pictures

Me, in Tunis


All pictures on Wikitravel copyrighted by me are cc-sa/GFDL dual licensed.

About Me

agol homepage

My Username is also Elgaard on Wikipedia [1],[2] and Wikimedia Commons [3]

Docent

If you want to contact me, email:

 elgaard <at> agol.dk


Places I have been and contributed to Wikitravel

Wikitravel as book

I managed to make an automatic 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):

#!/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 [email protected]_ \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 ");

My modified html2ps i call User:Elgaard/wt2ps User:Elgaard//mvfoo

Sandbox