Pàgines: 1 [2] 3 4 5 
|
 |
|
Autor
|
Tema: Problema amb els arxius NOAA (Llegit 1259 vegades)
|
|
|
|
|
casacota
Cumulus Congestus
 Desconnectat
Missatges: 1345
|
Et puc explicar com ho faig jo:
En el programa que fa les pàgines, que funciona amb perl, hi he afegit un codi BBC que es diu noaa amb aquest format:
[noaa=nomdelarxiuquevullquesurti]
el codi per a convertir-lo és aquest
if( $message =~ m~\[noaa=\s*(\S+?)\]~is ) {
$noaa = $1;
require "$sourcedir/noaa.pl"; &noaa;
}
while( $message =~ m~\[noaa=\s*(\S+?)\]~is ) {
$noaa = $1;
&noaa;
}
i el script que fa la feina, que es diu noaa.pl, és aquest:
sub noaa{ my ($arxiuoorigen, $webpage); $arxiuorigen = "C\:\/vws\/jpeg\/arxiu\/$noaa"; #lloc de l'arxiu al servidor if (!$arxiuorigen or !-e $arxiuorigen) { } else { open(TAULA,$arxiuorigen); @lines = <TAULA>; close(TAULA); foreach $line(@lines) { $webpage .= $line; }} if($webpage !~ /&\S*;/) { $webpage =~ s/;/;/g; } $webpage =~ s~\&\#91\;highlight\&\#93\;(.*?)\&\#91\;\&\#47\;highlight\&\#93\;~<span class="highlight">$1</span>~isg; $linecount = () = $webpage =~ /\n/g; $webpage =~ s~ \ \ \ ~\t~ig; $webpage =~ s~\ ~ ~ig; $webpage =~ s~ ?\n ?~\n~ig; # we need to keep normal linebreaks inside <pre> tag $webpage = qq~<pre class="code" style="margin: 0px; width: 100%; $height overflow: auto;">$webpage\n\n</pre>~; $message =~ s~\[noaa=$noaa\]~$webpage~ig; } 1;
Sembla complicat, però si fas aquestes modificacions al teu CMS és molt fàcil. Una altra cosa seria passar-ho a php, però segur que per aquí córre gent especialista en això!
|
|
|
|
|
En línia
|
|
|
|
|
|
casacota
Cumulus Congestus
Desconnectat
Missatges: 1345
|
Res de complicat - t'he posat l'arxiu que necessites al meu servidor, de manera que pot funcionar des d'aquí amb els teus arxius.
Per això necessites només posar que els teus arxius noaa puguin ser directament visibles en algun servidor, només has de fer una carpeta accessible (no cal que sigui necessàriament allí on tens el joomla) i tenir l'URL necessària per a accedir-hi.
En el lloc on pots posar l'URL a incloure en la teva pàgina, hi poses una crida al script que tinc al meu servidor amb, com a paràmetre, l'URL on és l'arxiu noaa que tens, així:
http://www.casacota.cat/2x2/noaaconvert.pl?loque=i aquí l'url del noaa sense el http://
Exemple, amb el meu propi arxiu:
http://www.casacota.cat/2x2/noaaconvert.pl?loque=www.casacota.cat/meteo/arxiu/2006.txt
A veure si et funciona!
PS: com veus és perl "pallarès" 
|
|
|
|
|
En línia
|
|
|
|
casacota
Cumulus Congestus
Desconnectat
Missatges: 1345
|
Tothom qui vulgui el pot fer servir, evidentment.
I si t'el vols posar al teu servidor, simplement poses un arxiu a la carpeta dels scripts amb el nom que vulguis, i el crides amb l'url que li vulguis posar. El codi és aquest:
#!/usr/local/bin/perl use CGI ':standard'; use LWP::Simple; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); warningsToBrowser(1); $loque = param('loque'); $tempsrss = qq~Content-type: text/html\n\n~; $pagina = get("http\:\/\/$loque"); if($pagina !~ /&\S*;/) { $pagina =~ s/;/;/g; } $pagina =~ s~\&\#91\;highlight\&\#93\;(.*?)\&\#91\;\&\#47\;highlight\&\#93\;~<span class="highlight">$1</span>~isg; $linecount = () = $pagina =~ /\n/g; $pagina =~ s~ \ \ \ ~\t~ig; $pagina =~ s~\ ~ ~ig; $pagina =~ s~ ?\n ?~\n~ig; # we need to keep normal linebreaks inside <pre> tag $pagina = qq~<pre class="code" style="margin: 0px; width: 100%; $height overflow: auto;">$pagina\n\n</pre>~; $tempsrss .= qq~$pagina~; print $tempsrss; 1; |
|
|
|
|
En línia
|
|
|
|
|
|
|
|
|
|
|
|
Pàgines: 1 [2] 3 4 5 
|
|
|
|
|
