Help for this page

Select Code to Download

Select or download this


my $key = '';
...
    my $p_hash = $$p_upload_files{$key};
    next unless (($p_hash) and (defined($$p_hash{'server file name'}))
+);
    $FORM{$key . "_filename"} = $$p_hash{'server file name'};

Select or download this

my %replace = ();

...
    $datafile =~ s!/!.!g;
    $err = &WriteFile( $datafile, $text);
    next Err if ($err);