%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# %#---------------------------------------------------------------------------- <%perl> my $app = $ePortal->Application('Diskoteka'); my $result; try { $app->UploadMedium(diskname => $diskname, append => !$first_req, source => $source, file => \@file ); } catch ePortal::Exception with { my $E = shift; $result = 'Error: ' . ref($E) . ': '. $E; } finally { $result = 'OK' if ! $result; }; $m->print($result); %#=== @METAGS attr ========================================================= <%attr> Layout => 'Nothing' %#=== @METAGS args ========================================================= <%args> $first_req => 1 $diskname => undef $source => undef @file => ()