equal
deleted
inserted
replaced
91 print redirect(-uri => url(-path_info => 1)); |
91 print redirect(-uri => url(-path_info => 1)); |
92 exit 0; |
92 exit 0; |
93 } |
93 } |
94 |
94 |
95 print header(-charset => "UTF-8"), |
95 print header(-charset => "UTF-8"), |
96 start_html(-title => "Up&Down"), |
96 start_html(-title => "once"), |
97 h1 "Ansicht: $ENV{REMOTE_USER}"; |
97 h1 "Ansicht: $ENV{REMOTE_USER}"; |
98 |
98 |
99 # print Dump; |
99 # print Dump; |
100 |
100 |
101 if (length(my $file = param("upload"))) { |
101 if (length(my $file = param("upload"))) { |