Implement support for HTTP digest authentication (RFC2617).

[pr0n] / perl / Sesse / pr0n / NewEvent.pm

diff --git a/perl/Sesse/pr0n/NewEvent.pm b/perl/Sesse/pr0n/NewEvent.pm
index 61124536ef2b1c0ddd0f5672f3542c9929551394..2aac990d02fc7dee685249f17c8a3a9b0096b367 100644 (file)
--- a/perl/Sesse/pr0n/NewEvent.pm
+++ b/perl/Sesse/pr0n/NewEvent.pm
@@ -20,7 +20,7 @@ sub handler {
        my $date = $apr->param('date');
        my $desc = $apr->param('desc');
 
-       my @errors = Sesse::pr0n::Common::add_new_event($dbh, $id, $date, $desc, $r->get_server_name);
+       my @errors = Sesse::pr0n::Common::add_new_event($r, $dbh, $id, $date, $desc);
        
        if (scalar @errors > 0) {
                for my $err (@errors) {