#!/bin/bash

# used to convert /var/crossfire from pre-2007 server versions to the 2007 version

export PERL_UNICODE=IOEioA

cd /var/crossfire || exit 55

(
   cd unique-items || exit 77

   echo -n "uq:"
   for map in *.v00; do
      if [ -e $map ]; then
         #echo -n " $map"
         dst=$(perl -Mutf8 -e 'for ($ARGV[0]) { s/\@/∕/g; s/\.v00$//; print }' "$map")
         mv $map ∕$dst
         [ -e $map.pst ] && mv $map.pst ∕$dst.pst
      fi
   done
   echo
)

(
   cd players || exit 66

   echo -n "maps:"
   for map in \
      ∕azumauindo∕minatomachi∕ketsueki_itsuryuu∕bigchest \
      ∕azumauindo∕ranbounagisatoshi∕apartments∕sapartment \
      ∕azumauindo∕suno-yamatoshi∕apartments∕lapartment1 \
      ∕azumauindo∕suno-yamatoshi∕nenshou_youso∕bigchest \
      ∕azumauindo∕zaseki∕dzuki_ryoku∕bigchest \
      ∕brest∕apartments∕brest_town_house \
      ∕brest∕black_shield∕bigchest \
      ∕city∕apartment∕apartments \
      ∕darcap∕darcap∕apartment \
      ∕darcap∕darcap∕guilds∕poisoned_dagger∕bigchest \
      ∕darcap∕darcap∕guilds∕smoking_cauldron∕bigchest \
      ∕mlab∕cdcapart1 \
      ∕mlab∕citydecloudsvillab1 \
      ∕mlab∕citydecloudsvillab2 \
      ∕mlab∕mlabhellcityofdisad \
      ∕mlab∕mlabhellcityofdispermapart \
      ∕mlab∕mountpermapartment \
      ∕mlab∕mountpermapartment2 \
      ∕mlab∕prisondemadnessHLi12bigchest1 \
      ∕navar∕city∕apartments∕apartment \
      ∕navar∕city∕apartments∕apartment∕attic \
      ∕navar∕city∕apartments∕apartment∕basement \
      ∕navar∕city∕apartments∕apartment∕upstairs \
      ∕navar∕city∕dreaming_sage∕bigchest \
      ∕onefang∕suites \
      ∕pup_land∕guilds∕laughing_skull∕bigchest \
      ∕pup_land∕guilds∕purple_butterfly∕bigchest \
      ∕pup_land∕lone∕town∕apartment∕basement \
      ∕pup_land∕lone∕town∕apartment∕groundfloor \
      ∕pup_land∕lone∕town∕apartment∕upper1 \
      ∕pup_land∕nurnberg∕apartment∕cave \
      ∕pup_land∕nurnberg∕apartment∕main \
      ∕pup_land∕nurnberg∕apartment∕upstairs \
      ∕santo∕dominion∕guilds∕drunken_barbarian∕bigchest \
      ∕santo∕dominion∕sdomino_appartment \
      ∕scorn∕apartment∕Apartments1 \
      ∕scorn∕apartment∕Apartments2 \
      ∕scorn∕apartment∕Apartments3 \
      ∕scorn∕apartment∕Apartments4 \
      ∕scorn∕apartment∕Apartments5 \
      ∕scorn∕apartment∕apartments \
      ∕scorn∕guilds∕mailed_fist∕bigchest
   do
      underscore=$(perl -Mutf8 -e '$ARGV[0] =~ s/∕/_/g; print $ARGV[0]' $map)
      #echo -n " $map"
      for dir in */; do
         if [ -e $dir$underscore ]; then
            mv $dir$underscore $dir$map
         fi
         if [ -e $dir$underscore.pst ]; then
            mv $dir$underscore.pst $dir$map.pst
         fi
      done
   done
   echo

   echo -n "pl:"
   for pl in */*.pl; do
      #echo -n " $pl"
      perl -Mutf8 -i -pe 's{^(savebed_map|map) (/var/crossfire/players/)}{$1 ~}g' $pl
   done
   echo
)