#!/usr/local/bin/perl
require 'ippbx-lib.pl';
ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1);

print qq(
        <form action="upload_server.cgi" method="post" enctype="multipart/form-data">
        <p>File to Upload: <input type="file" name="file"/></p>
        <p><input type="hidden" name="ipaddr" value="##IP"/></p>
        <p><input type="submit" name="Submit" value="Submit" /></p>
        </form>
        );

