Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

print $q->header();
$t->process('index.tt', {}) || die $t->error;
  2. or download this
    #!/usr/bin/perl

...
    if ($loc != $self->root ) { $self->{ERROR} = "Bad root URL"; retur
+n 0; }
    return 1;
}
  3. or download this
    <html><head>A title</head>
<body>A body</body></html>
  4. or download this
    ] q is defined
] $VAR1 = undef;
...
]  at SBL_Config.pm line 42
] \tSBL_Config::check('SBL_Config=HASH(0x24bd2e8)', 'CGI=HASH(0x1dcdf4
+0)') called at /var/www/html/streetcar/index.pl line 12
] Premature end of script headers: index.pl