Revision 37a9413b
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| scripts/migrate_icons.pl | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
my %icons = (
|
||
|
'AP--Add Purchase Order.png' => 'purchase_order_add.png',
|
||
|
'AP--Add RFQ.png' => 'rfq_add.png',
|
||
|
'AP.png' => 'ap.png',
|
||
|
'AP--Reports.png' => 'ap_report.png',
|
||
|
'AP--Reports--Purchase Orders.png' => 'purchase_order_report.png',
|
||
|
'AP--Reports--RFQs.png' => 'rfq_report.png',
|
||
|
'AR--Add Credit Note.png' => 'credit_note_add.png',
|
||
|
'AR--Add Delivery Order.png' => 'delivery_oder_add.png', # symlink to MDI-Txt_editor
|
||
|
'AR--Add Dunning.png' => 'dunning_add.png',
|
||
|
'AR--Add Quotation.png' => 'quotation_add.png',
|
||
|
'AR--Add Sales Invoice.png' => 'sales_invoice_add.png',
|
||
|
'AR--Add Sales Order.png' => 'sales_order_add.png',
|
||
|
'AR.png' => 'ar.png',
|
||
|
'AR--Reports--Delivery Orders.png' => 'delivery_order_report.png', # symlink to MDI-Text_editor
|
||
|
'AR--Reports--Dunnings.png' => 'dunnings_report.png',
|
||
|
'AR--Reports--Invoices, Credit Notes & AR Transactions.png' => 'invoices_report.png',
|
||
|
'AR--Reports.png' => 'ar_report.png',
|
||
|
'AR--Reports--Quotations.png' => 'report_quotations.png',
|
||
|
'AR--Reports--Sales Orders.png' => 'report_sales_orders.png',
|
||
|
'Batch Printing--Packing Lists.png' => 'package_lists.png',
|
||
|
'Batch Printing.png' => 'printing.png',
|
||
|
'Batch Printing--Purchase Orders.png' => 'purchase_order_printing.png',
|
||
|
'Batch Printing--Quotations.png' => 'quotation_printing.png',
|
||
|
'Batch Printing--Receipts.png' => 'receipt_printing.png',
|
||
|
'Batch Printing--RFQs.png' => 'rfq_printing.png',
|
||
|
'Batch Printing--Sales Invoices.png' => 'sales_invoice_printing.png',
|
||
|
'Batch Printing--Sales Orders.png' => 'sales_order_printing.png',
|
||
|
'Cash--Payment.png' => 'payment.png',
|
||
|
'Cash.png' => 'cash.png',
|
||
|
'Cash--Receipt.png' => 'receipt.png',
|
||
|
'Cash--Reconciliation.png' => 'reconcilliation.png',
|
||
|
'Cash--Reports--Payments.png' => 'payment_report.png',
|
||
|
'Cash--Reports.png' => 'cash_report.png',
|
||
|
'Cash--Reports--Receipts.png' => 'receipt_report.png',
|
||
|
'CRM--Add--Customer.png' => 'customer.png',
|
||
|
'CRM--Add--Person.png' => 'contact.png',
|
||
|
'CRM--Add--Vendor.png' => 'vendor.png',
|
||
|
'CRM--Admin--Document Template.png' => 'document_template.png',
|
||
|
'CRM--Admin--Label.png' => 'label.png',
|
||
|
'CRM--Admin--Message.png' => 'message.png',
|
||
|
'CRM--Admin.png' => 'admin.png',
|
||
|
'CRM--Admin--Status.png' => 'status.png',
|
||
|
'CRM--Admin--User Groups.png' => 'user_group.png',
|
||
|
'CRM--Admin--User.png' => 'user.png',
|
||
|
'CRM--Appointments.png' => 'appointment.png',
|
||
|
'CRM--E-mail.png' => 'email.png',
|
||
|
'CRM--Follow-Up.png' => 'follow_up.png',
|
||
|
'CRM--Help.png' => 'help.png',
|
||
|
'CRM--Knowledge.png' => 'knowledge.png',
|
||
|
'CRM--Memo.png' => 'memo.png',
|
||
|
'CRM--Opportunity.png' => 'opportunity.png',
|
||
|
'CRM.png' => 'crm.png',
|
||
|
'CRM--Search.png' => 'search.png',
|
||
|
'CRM--Service.png' => 'service.png',
|
||
|
'General Ledger--Add AP Transaction.png' => 'ap_transaction_add.png',
|
||
|
'General Ledger--Add AR Transaction.png' => 'ar_transaction_add.png',
|
||
|
'General Ledger--Add Transaction.png' => 'transaction_add.png',
|
||
|
'General Ledger--DATEV - Export Assistent.png' => 'datev.png',
|
||
|
'General Ledger.png' => 'gl.png',
|
||
|
'General Ledger--Reports--AP Aging.png' => 'ap_aging.png',
|
||
|
'General Ledger--Reports--AR Aging.png' => 'ar_aging.png',
|
||
|
'General Ledger--Reports--Journal.png' => 'journal.png',
|
||
|
'General Ledger--Reports.png' => 'gl_report.png',
|
||
|
'Master Data--Add Assembly.png' => 'assembly_add.png',
|
||
|
'Master Data--Add Customer.png' => 'customer_add.png',
|
||
|
'Master Data--Add License.png' => 'license_add.png',
|
||
|
'Master Data--Add Part.png' => 'part_add.png',
|
||
|
'Master Data--Add Project.png' => 'project_add.png',
|
||
|
'Master Data--Add Service.png' => 'service_add.png',
|
||
|
'Master Data--Add Vendor.png' => 'vendor_add.png',
|
||
|
'Master Data.png' => 'master_data.png',
|
||
|
'Master Data--Reports--Assemblies.png' => 'assembly_report.png',
|
||
|
'Master Data--Reports--Customers.png' => 'customer_report.png',
|
||
|
'Master Data--Reports--Licenses.png' => 'license_report.png',
|
||
|
'Master Data--Reports--Parts.png' => 'part_report.png',
|
||
|
'Master Data--Reports.png' => 'master_data_report.png',
|
||
|
'Master Data--Reports--Projects.png' => 'project_report.png',
|
||
|
'Master Data--Reports--Projecttransactions.png' => 'project_transaction_report.png',
|
||
|
'Master Data--Reports--Services.png' => 'service_report.png',
|
||
|
'Master Data--Reports--Vendors.png' => 'vendor_report.png',
|
||
|
'Master Data--Update Prices.png' => 'prices_update.png',
|
||
|
'Neues Fenster.png' => 'window_new.png',
|
||
|
'phone.png' => 'phone.png',
|
||
|
'Program--Logout.png' => 'logout.png',
|
||
|
'Program.png' => 'program.png',
|
||
|
'Program--Preferences.png' => 'preferences.png',
|
||
|
'Program--Version.png' => 'version.png',
|
||
|
'Reports--Balance Sheet.png' => 'balance_sheet.png',
|
||
|
'Reports--Chart of Accounts.png' => 'chart_of_accounts.png',
|
||
|
'Reports--Income Statement.png' => 'income_statement.png',
|
||
|
'Reports.png' => 'report.png',
|
||
|
'Reports--UStVa.png' => 'ustva.png',
|
||
|
'System.png' => 'system.png',
|
||
|
'Warehouse.png' => 'warehouse.png',
|
||
|
'Warehouse--Produce Assembly.png' => 'assembly_produce.png',
|
||
|
'MDI-Text-Editor-16x16.png' => 'mdi_text_editor.png',
|
||
|
'Productivity' => 'productivity.png',
|
||
|
);
|
||
|
|
||
|
my %symlinks = (
|
||
|
'mdi_text_editor.png' => 'delivery_order_add.png', # symlink to MDI-Txt_editor
|
||
|
'mdi_text_editor.png' => 'delivery_order_report.png', # symlink to MDI-Txt_editor
|
||
|
);
|
||
|
|
||
|
sub checks {
|
||
|
# check 1: no duplicate targets
|
||
|
my %seen;
|
||
|
for (values %icons) {
|
||
|
next unless defined $_;
|
||
|
die "duplicate target: $_" if $seen{$_}++;
|
||
|
}
|
||
|
|
||
|
# check2: all targets should end in .png, otherwise there's a typo
|
||
|
for (values %icons) {
|
||
|
next unless defined $_;
|
||
|
die "target does not end in .png: $_" unless /\.png$/;
|
||
|
}
|
||
|
|
||
|
# check 3: all sources need to be real files in this dir
|
||
|
for (keys %icons) {
|
||
|
next unless defined $_;
|
||
|
die "key $_ is not a file!" unless -f $_;
|
||
|
}
|
||
|
|
||
|
# check 4: all keys in symlinks need to be a target in icons
|
||
|
for (keys %symlinks) {
|
||
|
no warnings 'uninitialized';
|
||
|
die "can't symlink this, because it's not a target of renaming: $_" unless { reverse %icons }->{$_};
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub make_icons {
|
||
|
# now do the actual renaming
|
||
|
while (my ($from, $to) = each(%icons)) {
|
||
|
if (defined $to) {
|
||
|
# rename
|
||
|
system("git mv '$from' '$to'");
|
||
|
} else {
|
||
|
# delete
|
||
|
system("git rm '$from'");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
# and do some symlinking
|
||
|
while (my ($from, $to) = each(%symlinks)) {
|
||
|
system("ln -s '$from' '$to'");
|
||
|
system("git add '$to'");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub translate_menu {
|
||
|
my ($menu_file) = @_;
|
||
|
|
||
|
my $new_file = $menu_file;
|
||
|
$new_file =~ s/\./_new\./;
|
||
|
|
||
|
open my $in, "<", $menu_file or die "error opening $menu_file: $!";
|
||
|
open my $out, ">", $new_file or die "error opening $new_file: $!";
|
||
|
|
||
|
while (<$in>) {
|
||
|
print $out $_;
|
||
|
if (/^\[(.*)\]$/) {
|
||
|
my $name = $1;
|
||
|
# look if we got this in %icons
|
||
|
if ($icons{ $name . '.png' }) {
|
||
|
my $new_name = $icons{ $name . '.png' };
|
||
|
$new_name =~ s/\.png$//;
|
||
|
print $out "ICON=$new_name\n";
|
||
|
} else {
|
||
|
warn "don't know what '$name' is in $menu_file";
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
system("mv $new_file $menu_file");
|
||
|
}
|
||
|
|
||
|
# checks();
|
||
|
# make_icons();
|
||
|
|
||
|
translate_menu('menus/erp.ini');
|
||
|
translate_menu('menus/admin.ini');
|
||
|
translate_menu('menus/crm.ini');
|
||
| scripts/migrate_menu.pl | ||
|---|---|---|
|
#!/usr/bin/perl
|
||
|
|
||
|
use strict;
|
||
|
use SL::Dispatcher;
|
||
|
use SL::Inifile;
|
||
|
use SL::LXDebug;
|
||
|
use Data::Dumper;
|
||
|
use JSON;
|
||
|
use YAML;
|
||
|
use Cwd;
|
||
|
|
||
|
$::lxdebug = LXDebug->new;
|
||
|
|
||
|
my %menu_files = (
|
||
|
'menus/erp.ini' => 'menus/user/00-erp.yaml',
|
||
|
'menus/crm.ini' => 'menus/user/10-crm.yaml',
|
||
|
'menus/admin.ini' => 'menus/admin/00-admin.yaml',
|
||
|
);
|
||
|
|
||
|
my %known_arguments = (
|
||
|
ICON => 'icon',
|
||
|
ACCESS => 'access',
|
||
|
INSTANCE_CONF => 'INSTANCE_CONF',
|
||
|
module => 'module',
|
||
|
submenu => 'submenu',
|
||
|
target => 'target',
|
||
|
href => 'href',
|
||
|
);
|
||
|
|
||
|
sub translate_to_yaml {
|
||
|
my ($menu_file, $new_file) = @_;
|
||
|
|
||
|
my %counter;
|
||
|
|
||
|
my $menu = Inifile->new($menu_file);
|
||
|
my @menu_items = map { +{ %{ $menu->{$_} }, ID => $_ } } @{ delete $menu->{ORDER} };
|
||
|
|
||
|
for my $item (@menu_items) {
|
||
|
# parse id
|
||
|
my @tokens = split /--/, delete $item->{ID};
|
||
|
my $name = pop @tokens;
|
||
|
my $parent = join '_', map { lc $_ } @tokens;
|
||
|
my $id = join '_', grep $_, $parent, lc $name;
|
||
|
|
||
|
# move unknown arguments to param subhash
|
||
|
my @keys = keys %$item;
|
||
|
my %params;
|
||
|
for (@keys) {
|
||
|
next if $known_arguments{$_};
|
||
|
$params{$_} = delete $item->{$_};
|
||
|
}
|
||
|
|
||
|
$item->{params} = \%params if keys %params;
|
||
|
|
||
|
# sanitize keys
|
||
|
for (keys %known_arguments) {
|
||
|
next unless exists $item->{$_};
|
||
|
my $val = delete $item->{$_};
|
||
|
$item->{ $known_arguments{$_} } = $val;
|
||
|
}
|
||
|
|
||
|
# sanitize submenu
|
||
|
if ($item->{submenu}) {
|
||
|
delete $item->{submenu};
|
||
|
}
|
||
|
|
||
|
#sanitize those stupid menu inlinks
|
||
|
if ($item->{module} eq 'menu.pl') {
|
||
|
delete $item->{module};
|
||
|
delete $item->{action};
|
||
|
delete $item->{target};
|
||
|
}
|
||
|
|
||
|
# sanitize INSTANCE_CONF
|
||
|
if ($item->{INSTANCE_CONF}) {
|
||
|
my $instance_conf = delete $item->{INSTANCE_CONF};
|
||
|
if ($item->{access}) {
|
||
|
if ($item->{access} =~ /\W/) {
|
||
|
$item->{access} = "client/$instance_conf & ( $item->{access} )";
|
||
|
} else {
|
||
|
$item->{access} = "client/$instance_conf & $item->{access}";
|
||
|
}
|
||
|
} else {
|
||
|
$item->{access} = "client/$instance_conf";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
# make controller.pl implicit
|
||
|
if ($item->{module} && $item->{module} eq 'controller.pl') {
|
||
|
delete $item->{module};
|
||
|
}
|
||
|
|
||
|
# add id
|
||
|
$item->{id} = $id;
|
||
|
$item->{id} =~ s/[^\w]+/_/g;
|
||
|
|
||
|
# add to name
|
||
|
$item->{name} = $name;
|
||
|
|
||
|
# add parent
|
||
|
if ($parent) {
|
||
|
$item->{parent} = $parent;
|
||
|
$item->{parent} =~ s/[^\w]+/_/g if $item->{parent};
|
||
|
}
|
||
|
|
||
|
# add order
|
||
|
$item->{order} = 100 * ++$counter{ $item->{parent} };
|
||
|
}
|
||
|
|
||
|
if ($menu_file =~ /crm/) {
|
||
|
$menu_items[0]{order} = 50; # crm first
|
||
|
}
|
||
|
|
||
|
open my $out_file, '>:utf8', $new_file or die $!;
|
||
|
print $out_file yaml_dump(\@menu_items);
|
||
|
}
|
||
|
|
||
|
sub yaml_dump {
|
||
|
my ($ary_ref) = @_;
|
||
|
# YAML dumps keys lexically sorted, which isn't what we want.
|
||
|
# we want this order:
|
||
|
my @order = qw(
|
||
|
parent
|
||
|
id
|
||
|
name
|
||
|
icon
|
||
|
order
|
||
|
access
|
||
|
href
|
||
|
module
|
||
|
target
|
||
|
params
|
||
|
);
|
||
|
|
||
|
# ...oh and we want action in params first
|
||
|
#
|
||
|
# why this? because:
|
||
|
# 1. parent is what is used to anchor. one could argue that id should be
|
||
|
# first, but parent is easier for understanding structure.
|
||
|
# 2. after parent the logical structure is
|
||
|
# 1. id
|
||
|
# 2. stuff related to vidual presentation (name/icon)
|
||
|
# 3. stuff needed for logical presentaion (order/access)
|
||
|
# 4. stuff related to the action after clicking it
|
||
|
# 3. without parent and href (the second is pretty rare) the keys are nicely
|
||
|
# ascending in length, which is very easy to parse visually.
|
||
|
|
||
|
my $yaml = "---\n";
|
||
|
for my $node (@$ary_ref) {
|
||
|
my $first = 0;
|
||
|
for my $key (@order) {
|
||
|
next unless exists $node->{$key};
|
||
|
$yaml .= ($first++ ? ' ' : '- ') . $key . ":";
|
||
|
if (!ref $node->{$key}) {
|
||
|
$yaml .= ' ' . $node->{$key} . "\n";
|
||
|
} else {
|
||
|
$yaml .= "\n";
|
||
|
for ('action', grep !/^action$/, keys %{ $node->{$key} }) {
|
||
|
next unless exists $node->{$key}{$_};
|
||
|
$yaml .= " $_: $node->{$key}{$_}\n";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$yaml;
|
||
|
}
|
||
|
|
||
|
while (my ($in, $out) = each(%menu_files)) {
|
||
|
translate_to_yaml($in, $out);
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Migrationsscripte löschen