PciIds/Html/Changes.pm

   1 package PciIds::Html::Changes;
   2 use strict;
   3 use PciIds::Html::Users;
   4 use PciIds::Html::List;
   5 use PciIds::Html::Util;
   6 use PciIds::Html::Forms;
   7 use PciIds::Notifications;
   8 use PciIds::Log;
   9 use PciIds::Address;
  10 use Apache2::Const qw(:common :http);
  11
  12 sub genNewItemForm( $$$$$$ ) {
  13         my( $req, $args, $auth, $tables, $error, $values ) = @_;
  14         my( $ok, $parent, $name, $note, $address ) = loadItem( $tables, $req->uri() );
  15         return NOT_FOUND unless( $ok );
  16         my $prettyAddr = encode( $address->pretty() );
  17         genHtmlHead( $req, "$prettyAddr - add new item", undef );
  18         print "<h1>$prettyAddr - add new item</h1>\n";
  19         genLocMenu( $req, $args, [ logItem( $auth ), $address->canDiscuss() ? [ 'Discuss', 'newhistory' ] : (), [ 'Notifications', 'notifications' ], [ 'Help', 'help', 'newitem' ], [ 'ID syntax', 'help', $address->helpName() ] ] );
  20         print "<div class='error'>$error</div>\n" if( defined $error );
  21         print "<form name='newitem' id='newitem' method='POST' action=''>\n<table>";
  22         genFormEx( [ [ 'input', 'Id:', 'text', 'id', 'maxlength="50"' ],
  23                 [ 'input', 'Name:', 'text', 'name', 'maxlength="200"' ],
  24                 [ 'input', 'Note*:', 'text', 'note', 'maxlength="1024"' ],
  25                 [ 'textarea', 'Discussion*:', undef, 'discussion', 'rows="5" cols="50"' ],
  26                 [ 'input', '', 'submit', 'submit', 'value="Submit"' ] ], $values );
  27         print '</table></form>';
  28         print '<p>Items marked with * are optional.';
  29         genHtmlTail();
  30         return OK;
  31 }
  32
  33 sub newItemForm( $$$$ ) {
  34         my( $req, $args, $tables, $auth ) = @_;
  35         if( defined $auth->{'authid'} ) {#Logged in alright
  36                 return genNewItemForm( $req, $args, $auth, $tables, undef, {} );
  37         } else {
  38                 return notLoggedComplaint( $req, $args, $auth );
  39         }
  40 }
  41
  42 sub newItemSubmit( $$$$ ) {
  43         my( $req, $args, $tables, $auth ) = @_;
  44         if( defined $auth->{'authid'} ) {
  45                 my( $pok, $parent, $pname, $pnote, $paddress ) = loadItem( $tables, $req->uri() );
  46                 return NOT_FOUND unless( $pok );
  47                 my( $data, $error ) = getForm( {
  48                         'id' => sub{ return ( length shift ) ? undef : 'Please, provide the ID'; }, #Checked at the bottom and added as address
  49                         'name' => sub {
  50                                 my( $name ) = @_;
  51                                 return 'Too short for a name' if( length $name < 3 );
  52                                 return 'Lenght limit of the name is 200 characters' if( length $name > 200 );
  53                                 return undef;
  54                         },
  55                         'note' => sub { return ( length shift > 1024 ) ? 'Note can not be longer than 1024 characters' : undef; },
  56                         'discussion' => sub { return ( length shift > 1024 ) ? 'Discussion can not be longer than 1024 characters' : undef; }
  57                 }, [ sub { my( $data ) = @_;
  58                         my $errstr;
  59                         return undef unless( length $data->{'id'} );#No address, so let it for the first check
  60                         ( $data->{'address'}, $errstr ) = $paddress->append( $data->{'id'} );
  61                         return $errstr;
  62                 }, sub { return $paddress->canAddItem() ? undef : 'Can not add items here'; } ] );
  63                 return genNewItemForm( $req, $args, $auth, $tables, $error, $data ) if( defined $error );
  64                 my( $result, $comName ) = $tables->submitItem( $data, $auth );
  65                 if( $result eq 'exists' ) {
  66                         genHtmlHead( $req, 'ID collision', undef );
  67                         print '<h1>ID collision</h1>';
  68                         my $addr = PciIds::Address::new( $req->uri() );
  69                         genCustomMenu( $req, $addr, $args, [ logItem( $auth ), [ 'Add other item', 'newitem' ], $addr->canDiscuss() ? [ 'Discuss', 'newhistory' ] : () ] );
  70                         genPath( $req, $data->{'address'}, 1 );
  71                         print '<p>Sorry, this ID already exists.';
  72                         genHtmlTail();
  73                         return OK;
  74                 } elsif( $result ) {
  75                         return genNewItemForm( $req, $args, $auth, $tables, $result, $data );
  76                 }
  77                 notify( $tables, $data->{'address'}->get(), $comName, 2, 0 );
  78                 tulog( $auth->{'authid'}, "Item created ".$data->{'address'}->get()." ".logEscape( $data->{'name'} )." ".logEscape( $data->{'note'} )." ".logEscape( $data->{'discussion'} )." $comName" );
  79                 return HTTPRedirect( $req, '/read/'.$data->{'address'}->get().'?action=list' );
  80         } else {
  81                 return notLoggedComplaint( $req, $args, $auth );
  82         }
  83 }
  84
  85 sub genNewHistoryForm( $$$$$$ ) {
  86         my( $req, $args, $tables, $auth, $error, $values ) = @_;
  87         my( $ok, $parent, $name, $note, $address ) = loadItem( $tables, $req->uri() );
  88         return NOT_FOUND unless( $ok );
  89         my $prettyAddr = encode( $address->pretty() );
  90         genHtmlHead( $req, "$prettyAddr - discuss", undef );
  91         print "<h1>$prettyAddr - discuss</h1>\n";
  92         genLocMenu( $req, $args, [ logItem( $auth ), $address->canAddItem() ? [ 'Add item', 'newitem' ] : (), [ 'Notifications', 'notifications' ], [ 'Help', 'help', 'newhistory' ] ] );
  93         print "<div class='error'>$error</div>\n" if( defined $error );
  94         print "<form name='newhistory' id='newhistory' method='POST' action=''>\n<table>";
  95         genFormEx( [ [ 'textarea', 'Text:', undef, 'text', 'rows="5" cols="50"' ],
  96                 [ 'input', 'Request deletion', 'checkbox', 'delete', 'value="delete"' ],
  97                 [ 'input', 'Name:', 'text', 'name', 'maxlength="200"' ],
  98                 [ 'input', 'Note:', 'text', 'note', 'maxlength="1024"' ],
  99                 [ 'input', '', 'submit', 'submit', 'value="Submit"' ] ], $values );
 100         print '</table></form>';
 101         genHtmlTail();
 102         return OK;
 103 }
 104
 105 sub newHistoryForm( $$$$ ) {
 106         my( $req, $args, $tables, $auth ) = @_;
 107         if( defined $auth->{'authid'} ) {
 108                 return genNewHistoryForm( $req, $args, $tables, $auth, undef, {} );
 109         } else {
 110                 return notLoggedComplaint( $req, $args, $auth );
 111         }
 112 }
 113
 114 sub newHistorySubmit( $$$$ ) {
 115         my( $req, $args, $tables, $auth ) = @_;
 116         if( defined $auth->{'authid'} ) {
 117                 my( $ok, $parent, $name, $note, $address ) = loadItem( $tables, $req->uri() );
 118                 return NOT_FOUND unless( $ok );
 119                 my( $data, $error ) = getForm( {
 120                         'name' => sub { return ( length shift > 200 ) ? 'Lenght limit of the name is 200 characters' : undef; },
 121                         'note' => sub { return ( length shift > 1024 ) ? 'Note can not be longer than 1024 characters' : undef; },
 122                         'text' => sub {
 123                                 my( $expl ) = @_;
 124                                 return 'Text can not be longer than 1024 characters' if ( length $expl > 1024 );
 125                                 return undef;
 126                         },
 127                         'delete' => sub {
 128                                 my( $delete ) = @_;
 129                                 return ( undef, '0' ) unless defined $delete;
 130                                 return undef if $delete eq 'delete';
 131                                 return 'Invalid form value';
 132                                 return undef;
 133                         }
 134                 }, [ sub { my( $data ) = @_;
 135                         return 'You must provide either name, text or request a deletion' if( ! length $data->{'name'} && ! length $data->{'text'} && ! $data->{'delete'} );
 136                         return undef;
 137                 }, sub { my( $data ) = @_;
 138                         return 'You can not set name and request deletion at the same time' if( length $data->{'name'} && $data->{'delete'} );
 139                         return undef;
 140                 }, sub { my( $data ) = @_;
 141                         return 'You must provide name too' if( ( length $data->{'note'} ) && ( ! length $data->{'name'} ) );
 142                         return undef;
 143                 }, sub { return $address->canDiscuss() ? undef : 'You can not discuss this item'; } ] );
 144                 return genNewHistoryForm( $req, $args, $tables, $auth, $error, $data ) if( defined $error );
 145                 my $hid = $tables->submitHistory( $data, $auth, $address );
 146                 tulog( $auth->{'authid'}, "Discussion created $hid ".$address->get()." ".logEscape( $data->{'name'} )." ".logEscape( $data->{'description'} )." ".logEscape( $data->{'text'} ) );
 147                 notify( $tables, $address->get(), $hid, ( defined $name && ( $name ne '' ) ) ? 1 : 0, 1 );
 148                 return HTTPRedirect( $req, '/read/'.$address->get().'?action=list' );
 149         } else {
 150                 return notLoggedComplaint( $req, $args, $auth );
 151         }
 152 }
 153
 154 1;