pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-14 19:51:29 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update repository-generator.pl

Browse Source
This commit is contained in:
Akkadius 2020-04-03 02:41:44 -05:00
parent cbd2336442
commit 494811c04b
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/scripts/generators/repository-generator.pl
View File

@ -1,13 +1,15 @@
#!/usr/bin/perl
use warnings FATAL => 'all';
no warnings 'experimental::smartmatch';
use experimental 'smartmatch';
# Author: Akkadius
# @file: repository-generator.pl
# @description: Script used to generate database repositories
# @example perl ~/code/utils/scripts/generators/repository-generator.pl ~/server/
#############################################
# modules
#############################################
use warnings FATAL => 'all';
no warnings 'experimental::smartmatch';
use experimental 'smartmatch';
use File::Find;
use Data::Dumper;
use DBI;
@ -49,6 +51,9 @@ if (!-e $config_path) {
exit;
}
#############################################
# fetch schema from world
#############################################
my $output = `cd $server_path && $found_world_path database:schema`;
my $database_schema = $json->decode($output);