root/lang/javascript/nohada/index.cgi @ 19985

#!C:/Perl/bin/perl.exe
#!/usr/bin/perl


use strict;
use CGI::Carp qw(fatalsToBrowser);

### Configuration Section
my $conf={
# Database
  db=>{
     type=>'mysql',  
     host=>'localhost', 
     name=>'nohada',
     user=>'root',
     pass=>'root',
  },
# Server side apps
  serverApps => [qw(view jsonScript todo backup)]
};
### End of Configuration Section

#Application calling sequence
# GET  http://path/to/system/?<APPNAME>/<ARGS>
# GET  http://path/to/system/?/<ARGS> 
#   equiv. to GET  http://path/to/system/?view/<ARGS> 
# POST http://path/to/system/
#   with cmd=<ENCODED_JSON_SCRIPT>
# ./index.cgi <APPNAME> <CMD_ARGS>
#   * CMD_ARGS are in effect only if the application supports command-line-based invocation.

BEGIN {
  push @INC,"perl";
}
use NConfig;
use Arguments;
&NConfig::add($conf);
my ($appName,$args)=&Arguments::getURLAppArgs;

if ($appName eq '') {
  if($ENV{REQUEST_METHOD} eq 'POST') {$appName="jsonScript";}
  else {$appName="view";}  
} 
my @apps=@{&NConfig::get("serverApps")};
for (@apps) {
  if ($appName eq $_) {
    $appName =~ s/[^\w\d]//g;
        print STDERR "EXEC: $appName\n";
    eval ("use $appName;");
        if ($@) {die($@);}
        exit;
  }
}
die ("$appName: Command not found : [$ENV{QUERY_STRING}]");