| … | |
… | |
| 72 | print "preparing editor startup...\n"; |
72 | print "preparing editor startup...\n"; |
| 73 | |
73 | |
| 74 | my $server = $editsup->{gameserver} || "default"; |
74 | my $server = $editsup->{gameserver} || "default"; |
| 75 | $server =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge; |
75 | $server =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge; |
| 76 | |
76 | |
| 77 | local $ENV{CROSSFIRE_MAPDIR} = my $mapdir = "$Crossfire::VARDIR/map.$server"; mkdir $mapdir; |
77 | local $ENV{CROSSFIRE_MAPDIR} = my $mapdir = "$Deliantra::VARDIR/map.$server"; mkdir $mapdir; |
| 78 | local $ENV{CROSSFIRE_LIBDIR} = my $libdir = "$Crossfire::VARDIR/lib.$server"; mkdir $libdir; |
78 | local $ENV{CROSSFIRE_LIBDIR} = my $libdir = "$Deliantra::VARDIR/lib.$server"; mkdir $libdir; |
| 79 | |
79 | |
| 80 | print "map directory is $mapdir\n"; |
80 | print "map directory is $mapdir\n"; |
| 81 | print "lib directory is $libdir\n"; |
81 | print "lib directory is $libdir\n"; |
| 82 | |
82 | |
| 83 | my $ua = CFPlus::lwp_useragent; |
83 | my $ua = CFPlus::lwp_useragent; |
