#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); foreach (qw( user-modify bootstrap-console-save user-create e-smith-quota-update )) { event_link("user-modify-quota", $_, "50"); } panel_link("quota", "manager");