y este es mi código, algo muy simple
Using perl Syntax Highlighting
#!/usr/bin/perl
use CGI qw(:all);
use HTML::Calendar::Simple;
print header;
my $cal = HTML::Calendar::Simple->new; # This month, this year
$cal = HTML::Calendar::Simple->new({ 'month' => 9,
'year' => 2008});
$cal->pin_up("http://zephiroclub.net/varios/cinesu.gif");
$cal->daily_info({ 'day' => 1,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle' alt='feoajja'>"],
});
$cal->daily_info({ 'day' => 2,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle'>"],
});
$cal->daily_info({ 'day' => 3,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle'>"],
});
my $html = $cal->calendar_month;
print $html;
use CGI qw(:all);
use HTML::Calendar::Simple;
print header;
my $cal = HTML::Calendar::Simple->new; # This month, this year
$cal = HTML::Calendar::Simple->new({ 'month' => 9,
'year' => 2008});
$cal->pin_up("http://zephiroclub.net/varios/cinesu.gif");
$cal->daily_info({ 'day' => 1,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle' alt='feoajja'>"],
});
$cal->daily_info({ 'day' => 2,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle'>"],
});
$cal->daily_info({ 'day' => 3,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => [$link, "<img src='http://www.zephiroclub.net/WebAPP/images/topics/reviews.gif' align='absmiddle'>"],
});
my $html = $cal->calendar_month;
print $html;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Cuando lo ejecuto localmente en mi IIS en Windows, funciona normal...
Pero cuando lo subo a Internet a mi hosting obtengo un error 500 y miro el log y me dice nada más y nada menos que:
- Código: Seleccionar todo
[Wed Jun 25 07:18:12 2008] [error] [client 200.29.127.95] File does not exist: /home/bitacor4/public_html/500.shtml
[Wed Jun 25 07:18:12 2008] [error] [client 200.29.127.95] Premature end of script headers: /home/bitacor4/public_html/lista.pl
Ahora, para poder instalar módulos en mi hosting hay una opción y me dice esto:
Ubicación de Su Perl Module(s)
Ruta: /home/bitacor4/perl
Usando Su Perl Module(s)
necesitará añadir /home/bitacor4/perl al path de exclusión.
Puede hacer esto añadiendo el siguiente código a su script:
Using perl Syntax Highlighting
my $homedir = (getpwuid($>))[7];
my $n_inc = scalar @INC;
for (my $i = 0; $i < $n_inc; $i++ ) {
if (-d $homedir . '/perl' . $INC[$i]) {
unshift(@INC,$homedir . '/perl' . $INC[$i]);
$n_inc++;
$i++;
}
}
my $n_inc = scalar @INC;
for (my $i = 0; $i < $n_inc; $i++ ) {
if (-d $homedir . '/perl' . $INC[$i]) {
unshift(@INC,$homedir . '/perl' . $INC[$i]);
$n_inc++;
$i++;
}
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
No sé qué pueda estar pasando, ya que estoy acostumbrado al IIS donde todo me funciona bonito, en cambio, Linux, no me quiere
