htdocs/portal/index.bml

   1 <?_code
   2 {
   3     use strict;
   4     use vars qw($title $body $bodyopts $head %GET %POST);
   5     use LJ::Portal::Config;
   6
   7     my $disabled =  $LJ::DISABLED{'portal'};
   8
   9     my $remote = LJ::get_remote();
  10
  11     if (ref $disabled eq "CODE") {
  12         $disabled = $disabled->($remote);
  13     }
  14
  15     if ($disabled) {
  16         $title = 'Disabled';
  17         $body = 'Sorry, the portal is disabled at this time.';
  18         return;
  19     }
  20
  21     my $remote = LJ::get_remote;
  22
  23     $title = BML::ml('.pagetitle', { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
  24     $body = '';
  25     $bodyopts = '';
  26
  27     # browser caching causes lots of issues
  28     $head = '<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">';
  29
  30
  31     if (!$remote) {
  32         $body = "<?needlogin?>";
  33         return;
  34     }
  35
  36     my $returnjs = sub {
  37         my $response = shift;
  38         BML::set_content_type('text/javascript; charset=utf-8');
  39         BML::finish();
  40         BML::noparse();
  41         return $response;
  42     };
  43
  44     # include the default style:
  45     LJ::need_res('stc/portal/MainStyle.css');
  46     # lj base css
  47     LJ::need_res('stc/lj_base.css');
  48     # javascript crap
  49     LJ::need_res('js/core.js');
  50     LJ::need_res('js/dom.js');
  51     LJ::need_res('js/hourglass.js');
  52     LJ::need_res('js/x/x_core.js');
  53     LJ::need_res('js/x/x_dom.js');
  54     LJ::need_res('js/portal.js');
  55     LJ::need_res('js/x/x_event.js');
  56     LJ::need_res('js/commentmanage.js');
  57
  58     # get the current scheme and load the correct style
  59     my $scheme = BML::get_scheme();
  60     if ($scheme eq 'dystopia' && -e "$LJ::HOME/htdocs/stc/portal/Dystopia.css") {
  61         LJ::need_res('stc/portal/Dystopia.css');
  62     } elsif (-e "$LJ::HOME/htdocs/stc/portal/XColibur.css") {
  63         LJ::need_res('stc/portal/XColibur.css');
  64     }
  65
  66     #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  67
  68     # this is the url to do XML HTTP posts to
  69     my $selflink = $LJ::SITEROOT . BML::get_uri();
  70     $selflink =~ s/\?.*//;
  71
  72     # fading special effects?
  73    my $doFadeDefault = 1;
  74     my $doFade = $LJ::DISABLED{'portal_fade'} ? 0 : $doFadeDefault;
  75
  76     # parameters for portal.js
  77     $head .= qq{
  78         <script language="JavaScript">
  79             var Site;
  80         if (!Site)
  81             Site = new Object();
  82         Site.postUrl = "$selflink";
  83         Site.doFade = $doFade;
  84         Site.doAnimate = 1;
  85         </script>
  86         };
  87
  88     # reset debug output
  89     $LJ::PORTAL_DEBUG_CONTENT = '';
  90
  91     # do profiling? requires siteadmin portal priv
  92     my $profile = $GET{'profile'} + 0 && LJ::check_priv($remote, 'siteadmin', 'portal') ;
  93     $profile = $profile > 9999999 ? 9999999 : $profile;
  94
  95     my $portalconfig = LJ::Portal::Config->new($remote, $profile);
  96     return unless $portalconfig; # should never happen!
  97
  98     # if profiling, add debug box
  99     $portalconfig->add_box('Debug', 'R') if $profile;
 100
 101     # see if there was a request to be handled by a module:
 102     my $portalboxaction = ($POST{'portalboxaction'} || $GET{'portalboxaction'}) + 0;
 103     my $actionbox = $portalconfig->get_box_by_id($portalboxaction);
 104
 105     # verify it's a action for a valid module
 106     if ($portalboxaction && $actionbox && LJ::check_referer('/portal')) {
 107         if ($actionbox->can('handle_request')) {
 108             my $returncode = $actionbox->handle_request(\%GET, \%POST);
 109             return $returnjs->($returncode) if $returncode;
 110
 111             # if it was a post then return update
 112             my $updatescript = LJ::Portal->get_portal_box_update_script($portalconfig, $actionbox);
 113             return $returnjs->($updatescript) if $POST{'portalboxaction'};
 114         }
 115     }
 116
 117     # super-secret add hidden module URL option:
 118     if ($GET{'addmodule'}) {
 119         my $module = $GET{'addmodule'};
 120         $module =~ s/\W+//g;
 121         LJ::Portal->addbox($portalconfig, $module, 'R');
 122       }
 123
 124     # firstly process any box changes:
 125     my @actions = ('addbox', 'configbox', 'delbox', 'getmenu', 'movebox',
 126                    'resetbox', 'saveconfig', 'updatebox', 'resetalldo');
 127
 128     for(@actions) {
 129
 130         # if a POST request then it was an XML HTTP request. Do processing and return
 131         # to the client info.
 132         # if it was a GET, then the client cannot do XML HTTP requests. Do processing
 133         # and display the new page.
 134
 135         # did they do a POST or GET?
 136         my $didpost = $POST{$_} ? 1 : undef;
 137         my $didget  = $GET{$_}  ? 1 : undef;
 138         my $action  = $_;
 139
 140         if (($didget || $didpost) && LJ::check_referer('/portal')) {
 141             # request to create a new box
 142             if ($action eq 'addbox') {
 143                 my $boxtype = $POST{'boxtype'} || $GET{'boxtype'};
 144                 my $boxcol  = $POST{'boxcol'}  || $GET{'boxcol'};
 145
 146                 my $returncode = LJ::Portal->addbox($portalconfig, $boxtype, $boxcol);
 147                 return $returnjs->($returncode) if $returncode && $didpost;
 148             }
 149
 150             # request to get a dialog box for configuring box props
 151             if ($action eq 'configbox') {
 152                 my $pboxid = ($POST{'pboxid'} || $GET{'pboxid'}) + 0;
 153                 my $jsmode = $POST{'jsmode'};
 154
 155                 my ($returncode, $configboxhtml) = LJ::Portal->configbox($pboxid, $portalconfig, $jsmode);
 156
 157                 if ($didget && $configboxhtml) {
 158                     # just print out the config box for non-JS people
 159                     my $box = $portalconfig->get_box_by_id($pboxid);
 160                     if ($box) {
 161                         $title = "Configure " . $box->box_name;
 162                         $body = $configboxhtml;
 163                         my $returnlinktext = BML::ml('.returnlink',
 164                                      { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 165                         $body .= "<div class='PortalReturn'><b><a href=\"$LJ::SITEROOT/portal\">$returnlinktext</a></b></div>";
 166                     } else {
 167                         $title = "Error.";
 168                         $body = "Could not load box.";
 169                     }
 170                     return;
 171                 }
 172
 173                 return $returnjs->($returncode);
 174             }
 175             # request to move a box
 176             if ($action eq 'movebox') {
 177                 my $pboxid    = ($POST{'pboxid'}        || $GET{'pboxid'})+ 0;
 178                 my $boxcol    =  $POST{'boxcol'}        || $GET{'boxcol'};
 179                 my $boxcolpos = ($POST{'boxcolpos'}     || $GET{'boxcolpos'}) + 0;
 180                 my $moveUp    =  $POST{'up'}            || $GET{'up'};
 181                 my $moveDown  =  $POST{'down'}          || $GET{'down'};
 182
 183                 my $returncode = LJ::Portal->movebox($pboxid, $portalconfig, $boxcol,
 184                                                      $boxcolpos, $moveUp, $moveDown);
 185
 186                 return $returnjs->($returncode) if $returncode && $didpost;
 187             }
 188             # request to retreive a config menu
 189             if ($action eq 'getmenu') {
 190                 my $menu = $POST{'menu'} || $GET{'menu'};
 191
 192                 my $returncode = LJ::Portal->getmenu($portalconfig, $menu);
 193
 194                 if ($didpost) {
 195                     return $returnjs->($returncode);
 196                 } else {
 197                     if ($menu eq 'addbox') {
 198                         $title = 'Add Module';
 199                     }
 200
 201                     $body = $returncode;
 202                     my $returnlinktext = BML::ml('.returnlink',
 203                                      { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 204                     $body .= "<div class='PortalReturn'><b><a href=\"$LJ::SITEROOT/portal\">$returnlinktext</a></b></div>";
 205                     return;
 206                 }
 207             }
 208             # reset default box settings
 209             if ($action eq 'resetbox') {
 210                 my $pboxid = ($POST{'pboxid'} || $GET{'pboxid'}) + 0;
 211                 my $returncode = LJ::Portal->resetbox($pboxid, $portalconfig);
 212                 return $returnjs->($returncode) if $returncode && $didpost;
 213             }
 214             # request to save box props
 215             # only POST
 216             if ($action eq 'saveconfig' && $didpost) {
 217                 my $pboxid = $POST{'pboxid'} + 0;
 218
 219                 # was this submitted by an actual form instead of a XML
 220                 # HTTP request? if so then don't return XML.
 221                 my $realform = $POST{'realform'} + 0;
 222
 223                 # there has got to be a better way to do this instead of passing POST
 224                 my $returncode = LJ::Portal->saveconfig($portalconfig, $pboxid, $realform, \%POST);
 225                 return $returnjs->($returncode) if !$realform;
 226             }
 227             # request to delete a box
 228             if ($action eq 'delbox') {
 229                 my $pboxid = ($POST{'pboxid'} || $GET{'pboxid'}) + 0;
 230                 my $returncode;
 231
 232                 $returncode = LJ::Portal->delbox($portalconfig, $pboxid);
 233                 return $returnjs->($returncode) if $didpost && $returncode;
 234             }
 235             # request to get code to update the contents of a box
 236             # only POST
 237             if ($action eq 'updatebox' && $didpost) {
 238                 my $pboxid =  $POST{'pboxid'} + 0;
 239                 my $box = $portalconfig->get_box_by_id($pboxid);
 240                 if ($box) {
 241                     return $returnjs->(LJ::Portal->get_portal_box_update_script($portalconfig, $box));
 242                 } else {
 243                     return $returnjs->('alert("Box not found.");');
 244                 }
 245             }
 246             # reset entire portal?
 247             # only POST
 248             if ($action eq 'resetalldo' && $didpost && $POST{'resetyes'}) {
 249                 $portalconfig->reset_all;
 250
 251                 # tell browser to reload now that everything's finished resetting
 252                 # (if we're using JS)
 253                 if ($POST{'jsmode'}) {
 254                     return $returnjs->( qq {
 255                         // reload the page
 256                             window.location.href = Site.postUrl;
 257                     } );
 258                 }
 259             }
 260
 261             # make sure we're at /portal/ because of referral checking
 262             BML::redirect($selflink);
 263         }
 264     }
 265
 266     # create the hidden menu at the top
 267     my $configmenu = qq {
 268         <span id="PortalConfigMenuBar">
 269             <div id="AddPortalMenuButton" class="midalign PortalMenuItem" onclick="return showAddPortalBoxMenu();">
 270             <a href="$selflink?getmenu=1&menu=addbox" class="PortalMenuItem">Add Content Module</a></div>
 271             </span>
 272         };
 273
 274     # user pressed "reset all"
 275     # are they sure?
 276     if ($POST{'resetall'}) {
 277         my $returnlinktext = BML::ml('.returnlink',
 278                                      { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 279         $title = BML::ml('.resetalltitle', { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 280         $body .= qq {
 281             <p><?_ml .resetall _ml?></p>
 282                 <div class="standout">
 283             <form action="$selflink" method="POST">
 284                 <input type="hidden" name="resetalldo" value="1" />
 285                 <input type="Submit" name="resetyes" value="Yes" />
 286                 <input type="Submit" name="resetno" value="No" />
 287             </form>
 288             </div>
 289             <b><a href=\"$LJ::SITEROOT/portal\">$returnlinktext</a></b>
 290         };
 291
 292     } elsif ($GET{'mode'} eq 'config') {
 293
 294         # the config page for non-JS users
 295         my $returnlinktext = BML::ml('.returnlink',
 296                                      { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 297         $title = BML::ml('.configtitle', { 'sitenameabbrev' => $LJ::SITENAMEABBREV });
 298         $body .= "<ul><li><a href=\"$selflink?getmenu=1&menu=addbox\"><?_ml .addbox _ml?></a></li></ul>";
 299         $body .= "<b><a href=\"$LJ::SITEROOT/portal\">$returnlinktext</a></b>";
 300     } else {
 301         $body .= $configmenu;
 302
 303         $body .= '<div id="PortalContentContainer">';
 304
 305         # print out each column with boxes
 306         my $cols = {};
 307         map { $cols->{$_} = 1 if $_ } $portalconfig->get_cols;
 308         my $debugbox;
 309         foreach my $col (keys %$cols) {
 310             next unless $col;
 311
 312             my @colboxes = $portalconfig->get_col_boxes($col);
 313             $body .= "<div id='PortalCol$col'>";
 314             foreach my $box (@colboxes) {
 315                 next unless $box;
 316                 if ($box) {
 317                     # if it's the debug module, generate it last
 318                     if ($box->box_class eq 'Debug') {
 319                         $debugbox = $box;
 320                         next;
 321                     }
 322
 323                     # get the contents of the box
 324                     $body .= $portalconfig->generate_box_with_container($box->pboxid);
 325                 }
 326             }
 327             $body .= '</div>';
 328         }
 329
 330         # print out columns that didn't have boxes so you can move boxes around
 331         for (('L', 'R')) {
 332             if (!$cols->{$_}) {
 333                 $body .= "<div id='PortalCol$_'></div>";
 334             }
 335         }
 336
 337         $body .= '<div class="clearing" />&nbsp;</div></div>';
 338
 339         if ($debugbox) {
 340             $body .= "<div style=\"z-index: 5; position: absolute; width: 80%; height: 300; overflow-Y: auto;\"> ";
 341             my $debug = $portalconfig->generate_box_with_container($debugbox->pboxid);
 342             $body .= $debug;
 343             $body .= "</div>";
 344         }
 345
 346         %LJ::PORTAL_PROFILED_BOX = ();
 347     }
 348 }
 349
 350 #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
 351
 352 return;
 353
 354 _code?><?page
 355     title=><?_code return $title; _code?>
 356     head<=
 357     <?_c TODO: configurable meta tags could go here? _c?>
 358     <?_code return $head; _code?>
 359     <?_code return (! LJ::get_remote() &&
 360                     ! $LJ::IS_SSL &&
 361                     ! $LJ::REQ_HEAD_HAS{'chalresp_js'}++) ?
 362     $LJ::COMMON_CODE{'chalresp_js'} : "";
 363 _code?>
 364     <=head
 365     bodyopts=><?_code return $bodyopts; _code?>
 366     body=><?_code return $body; _code?>
 367     page?><?_c <LJDEP>
 368     </LJDEP> _c?>