ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/util/convvar
Revision: 1.1
Committed: Sat Dec 30 10:18:51 2006 UTC (19 years, 4 months ago) by root
Branch: MAIN
Log Message:
conversion script added as reference, do not use

File Contents

# User Rev Content
1 root 1.1 #!/bin/bash
2    
3     # used to convert /var/crossfire from pre-2007 server versions to the 2007 version
4    
5     export PERL_UNICODE=IOEioA
6    
7     cd /var/crossfire || exit 55
8    
9     (
10     cd unique-items || exit 77
11    
12     echo -n "uq:"
13     for map in *.v00; do
14     if [ -e $map ]; then
15     #echo -n " $map"
16     dst=$(perl -Mutf8 -e 'for ($ARGV[0]) { s/\@/∕/g; s/\.v00$//; print }' "$map")
17     mv $map ∕$dst
18     [ -e $map.pst ] && mv $map.pst ∕$dst.pst
19     fi
20     done
21     echo
22     )
23    
24     (
25     cd players || exit 66
26    
27     echo -n "maps:"
28     for map in \
29     ∕azumauindo∕minatomachi∕ketsueki_itsuryuu∕bigchest \
30     ∕azumauindo∕ranbounagisatoshi∕apartments∕sapartment \
31     ∕azumauindo∕suno-yamatoshi∕apartments∕lapartment1 \
32     ∕azumauindo∕suno-yamatoshi∕nenshou_youso∕bigchest \
33     ∕azumauindo∕zaseki∕dzuki_ryoku∕bigchest \
34     ∕brest∕apartments∕brest_town_house \
35     ∕brest∕black_shield∕bigchest \
36     ∕city∕apartment∕apartments \
37     ∕darcap∕darcap∕apartment \
38     ∕darcap∕darcap∕guilds∕poisoned_dagger∕bigchest \
39     ∕darcap∕darcap∕guilds∕smoking_cauldron∕bigchest \
40     ∕mlab∕cdcapart1 \
41     ∕mlab∕citydecloudsvillab1 \
42     ∕mlab∕citydecloudsvillab2 \
43     ∕mlab∕mlabhellcityofdisad \
44     ∕mlab∕mlabhellcityofdispermapart \
45     ∕mlab∕mountpermapartment \
46     ∕mlab∕mountpermapartment2 \
47     ∕mlab∕prisondemadnessHLi12bigchest1 \
48     ∕navar∕city∕apartments∕apartment \
49     ∕navar∕city∕apartments∕apartment∕attic \
50     ∕navar∕city∕apartments∕apartment∕basement \
51     ∕navar∕city∕apartments∕apartment∕upstairs \
52     ∕navar∕city∕dreaming_sage∕bigchest \
53     ∕onefang∕suites \
54     ∕pup_land∕guilds∕laughing_skull∕bigchest \
55     ∕pup_land∕guilds∕purple_butterfly∕bigchest \
56     ∕pup_land∕lone∕town∕apartment∕basement \
57     ∕pup_land∕lone∕town∕apartment∕groundfloor \
58     ∕pup_land∕lone∕town∕apartment∕upper1 \
59     ∕pup_land∕nurnberg∕apartment∕cave \
60     ∕pup_land∕nurnberg∕apartment∕main \
61     ∕pup_land∕nurnberg∕apartment∕upstairs \
62     ∕santo∕dominion∕guilds∕drunken_barbarian∕bigchest \
63     ∕santo∕dominion∕sdomino_appartment \
64     ∕scorn∕apartment∕Apartments1 \
65     ∕scorn∕apartment∕Apartments2 \
66     ∕scorn∕apartment∕Apartments3 \
67     ∕scorn∕apartment∕Apartments4 \
68     ∕scorn∕apartment∕Apartments5 \
69     ∕scorn∕apartment∕apartments \
70     ∕scorn∕guilds∕mailed_fist∕bigchest
71     do
72     underscore=$(perl -Mutf8 -e '$ARGV[0] =~ s/∕/_/g; print $ARGV[0]' $map)
73     #echo -n " $map"
74     for dir in */; do
75     if [ -e $dir$underscore ]; then
76     mv $dir$underscore $dir$map
77     fi
78     if [ -e $dir$underscore.pst ]; then
79     mv $dir$underscore.pst $dir$map.pst
80     fi
81     done
82     done
83     echo
84    
85     echo -n "pl:"
86     for pl in */*.pl; do
87     #echo -n " $pl"
88     perl -Mutf8 -i -pe 's{^(savebed_map|map) (/var/crossfire/players/)}{$1 ~}g' $pl
89     done
90     echo
91     )
92    
93