From Wikitravel

Niels Elgaard Larsen, Østerbro, Copenhagen, Denmark

[edit] Use of Pictures

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

[edit] About Me

agol homepage

Plan to visit:

• Tunisia for WSIS Nov 2005.

Advice/request?

[edit] Italy on PDA

I am travelling in Italy. I am writing Wikitravel material on my Yopy PDA and adding it to Wikitravel at internet cafes using a CF card from my fiancees camera and a CF-USB adaptor. The pictures will come later because I have no phototeditor on my Yopy

[edit] 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 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 ");

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

[edit] Sandbox