########################################################################### # # talkback.pm -- # A component of the Greenstone digital library software # from the New Zealand Digital Library Project at the # University of Waikato, New Zealand. # # Copyright (C) 1999 New Zealand Digital Library Project # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # ########################################################################### package talkback; use strict; sub generate_upload_form { my ($uniq_file) = @_; my $upload_html_form = <

EOF ; return $upload_html_form; } sub generate_upload_form_progressbar { my ($uniq_file) = @_; my $upload_html_form = <

status bar:

EOF ; return $upload_html_form; } sub generate_done_html { my ($full_filename) = @_; my $done_html = <

File uploaded.

Server file: $full_filename

EOF ; return $done_html; } sub generate_malformed_args_html { my ($full_filename) = @_; my $done_html = <

Oops!

Malformed CGI arguments.

EOF ; return $done_html; } 1;