diff options
Diffstat (limited to 'emi')
-rwxr-xr-x | emi | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -28,16 +28,12 @@ # PREFIX : sprintf "$year%02d%02d%02d%02d%02d.$user.$host.${$}_", $mon, $mday, $hour, $min, $sec; use strict; -use File::Path qw(make_path); -use Iurt::Config qw(config_usage config_init get_author_email get_mandatory_arch); +use Iurt::Config qw(config_usage config_init); use Iurt::Process qw(check_pid); -use Iurt::Mail qw(sendmail); use Iurt::Queue qw(get_upload_tree_state); use Iurt::Util qw(plog_init plog); use Iurt::Emi qw(find_prefixes_ready_to_upload upload_prefix_in_media); -use Data::Dumper; -use MDK::Common qw(cat_ if_ find touch); -use MDK::Common::DataStructure qw(difference2); +use MDK::Common qw(cat_ touch); my %run; my $program_name = 'emi'; |