Volver al Programación / Codificación foro

Headline grabber ayuda!

  • WBO
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 14, 2003
  • Mensajes: 2
  • Status: Offline

Nota Septiembre 14th, 2003, 8:06 am

Han estado tratando de obtener la siguiente secuencia de comandos para volver a trabajar. La función principal es que se agarra a los titulares de Yahoo y los muestra en su sitio.

Cualquier ayuda sería muy apreciada.

WB0
Código: [ Select ]
#!/usr/bin/perl

$end = $ENV{'QUERY_STRING'};
use LWP::Simple;

$top = qq~
<head>
<meta http-equiv=Cache-Control content=no-cache>
<meta http-equiv=Pragma content=no-cache>
<META http-equiv=PICS-Label content='(PICS-1.1 "http://www.rsac.org/ratingsv01.html" l gen true comment "RSACi North America Server" on "1999.07.26T09:49-0800" for "http://dailynews.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://rd.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://fullcoverage.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://news.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://vision.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://search.news.yahoo.com" r (n 0 s 0 v 0 l 0))'>
<base href=http://dailynews.yahoo.com/>
<script language=javascript>
var remote = null;
function rs(n,u,w,h){
remote = window.open(u, n, 'width=' + w + ',height=' + h +',resizable=yes,scrollbars=yes');
if (remote != null) {
if (remote.opener == null)
remote.opener = self;
window.name = 'yahooNewsRoot';
remote.location.href = u;
}
}
</script>
</head>
~;

print "Content-type: text/html\n\n";


#Yahoo Top Stories
if ($end eq "top") {

$html = get("http://dailynews.yahoo.com/");
main();
print "$top$html[0]";
}

#Yahoo Business
elsif ($end eq "bus") {

$html = get("http://dailynews.yahoo.com/h/bs/nm/?u");
business_snapshot();
main2();
print "$top$snap";
print "$html[0]";
}

#Yahoo Entertainment News
elsif ($end eq "ent") {

$html = get("http://dailynews.yahoo.com/h/en/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Technology News
elsif ($end eq "tec") {

$html = get("http://dailynews.yahoo.com/h/tc/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Political News
elsif ($end eq "pol") {

$html = get("http://dailynews.yahoo.com/h/pl/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Sports News
elsif ($end eq "spo") {

$html = get("http://dailynews.yahoo.com/h/sp/ap/?u");
main2();
print "$top$html[0]";
}

#Yahoo World News
elsif ($end eq "wor") {

$html = get("http://dailynews.yahoo.com/h/wl/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Science News
elsif ($end eq "sci") {

$html = get("http://dailynews.yahoo.com/h/sc/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Health News
elsif ($end eq "hea") {

$html = get("http://dailynews.yahoo.com/h/hl/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Oddly Enough
elsif ($end eq "odd") {

$html = get("http://dailynews.yahoo.com/h/od/nm/?u");
main2();
print "$top$html[0]";
}

#Yahoo Crime and Trials
elsif ($end eq "cri") {

$html = get("http://dailynews.yahoo.com/h/cr/ct/?u");
main2();
print "$top$html[0]";
}

#Yahoo Lifestyles
elsif ($end eq "lif") {

$html = get("http://dailynews.yahoo.com/h/lf/nm/?u");
main2();
print "$top$html[0]";
}

else {
print "<font color=red><center><b><h2>Please Check Your SSI Path.<h2></b></center></font>";
}

sub main{
@html = split(/<!-- _JC_ MIDDLE COLUMN -->/,$html);
@html = split(/<!-- _JC_ END MIDDLE COLUMN -->/,$html[1]);
$html[0] =~ s/\">/\" target=\_blank\">/ig;
$html[0] =~ s/bgcolor=dcdcdc/bgcolor=$table_bg/ig;
$html[0] =~ s/window\.location\.replace\(window\.location\)\;//ig;

return $html[0]
}

sub business_snapshot{
@html = split(/<!-- _JC_ MARKET SNAPSHOT -->/,$html);
@html = split(/<!-- _JC_ END MARKET SNAPSHOT -->/,$html[2]);
$html[0] =~ s/bgcolor=\"#ccccff\"/bgcolor=$table_bg/ig;
$snap = $html[0];
return $snap
}

sub main2{
@html = split(/<!-- _JC_ STORIES -->/,$html);
@html = split(/<!-- _JC_ END STORIES -->/,$html[1]);
$html[0] =~ s/.html>/.html target=\_blank>/ig;
$html[0] =~ s/<img src=..*>//ig;
return $html[0]
}
  1. #!/usr/bin/perl
  3. $end = $ENV{'QUERY_STRING'};
  4. use LWP::Simple;
  6. $top = qq~
  7. <head>
  8. <meta http-equiv=Cache-Control content=no-cache>
  9. <meta http-equiv=Pragma content=no-cache>
  10. <META http-equiv=PICS-Label content='(PICS-1.1 "http://www.rsac.org/ratingsv01.html" l gen true comment "RSACi North America Server" on "1999.07.26T09:49-0800" for "http://dailynews.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://rd.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://fullcoverage.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://news.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://vision.yahoo.com" r (n 0 s 0 v 0 l 0) "http://www.rsac.org/ratingsv01.html" l gen true for "http://search.news.yahoo.com" r (n 0 s 0 v 0 l 0))'>
  11. <base href=http://dailynews.yahoo.com/>
  12. <script language=javascript>
  13. var remote = null;
  14. function rs(n,u,w,h){
  15. remote = window.open(u, n, 'width=' + w + ',height=' + h +',resizable=yes,scrollbars=yes');
  16. if (remote != null) {
  17. if (remote.opener == null)
  18. remote.opener = self;
  19. window.name = 'yahooNewsRoot';
  20. remote.location.href = u;
  21. }
  22. }
  23. </script>
  24. </head>
  25. ~;
  27. print "Content-type: text/html\n\n";
  30. #Yahoo Top Stories
  31. if ($end eq "top") {
  33. $html = get("http://dailynews.yahoo.com/");
  34. main();
  35. print "$top$html[0]";
  36. }
  38. #Yahoo Business
  39. elsif ($end eq "bus") {
  41. $html = get("http://dailynews.yahoo.com/h/bs/nm/?u");
  42. business_snapshot();
  43. main2();
  44. print "$top$snap";
  45. print "$html[0]";
  46. }
  48. #Yahoo Entertainment News
  49. elsif ($end eq "ent") {
  51. $html = get("http://dailynews.yahoo.com/h/en/nm/?u");
  52. main2();
  53. print "$top$html[0]";
  54. }
  56. #Yahoo Technology News
  57. elsif ($end eq "tec") {
  59. $html = get("http://dailynews.yahoo.com/h/tc/nm/?u");
  60. main2();
  61. print "$top$html[0]";
  62. }
  64. #Yahoo Political News
  65. elsif ($end eq "pol") {
  67. $html = get("http://dailynews.yahoo.com/h/pl/nm/?u");
  68. main2();
  69. print "$top$html[0]";
  70. }
  72. #Yahoo Sports News
  73. elsif ($end eq "spo") {
  75. $html = get("http://dailynews.yahoo.com/h/sp/ap/?u");
  76. main2();
  77. print "$top$html[0]";
  78. }
  80. #Yahoo World News
  81. elsif ($end eq "wor") {
  83. $html = get("http://dailynews.yahoo.com/h/wl/nm/?u");
  84. main2();
  85. print "$top$html[0]";
  86. }
  88. #Yahoo Science News
  89. elsif ($end eq "sci") {
  91. $html = get("http://dailynews.yahoo.com/h/sc/nm/?u");
  92. main2();
  93. print "$top$html[0]";
  94. }
  96. #Yahoo Health News
  97. elsif ($end eq "hea") {
  99. $html = get("http://dailynews.yahoo.com/h/hl/nm/?u");
  100. main2();
  101. print "$top$html[0]";
  102. }
  104. #Yahoo Oddly Enough
  105. elsif ($end eq "odd") {
  107. $html = get("http://dailynews.yahoo.com/h/od/nm/?u");
  108. main2();
  109. print "$top$html[0]";
  110. }
  112. #Yahoo Crime and Trials
  113. elsif ($end eq "cri") {
  115. $html = get("http://dailynews.yahoo.com/h/cr/ct/?u");
  116. main2();
  117. print "$top$html[0]";
  118. }
  120. #Yahoo Lifestyles
  121. elsif ($end eq "lif") {
  123. $html = get("http://dailynews.yahoo.com/h/lf/nm/?u");
  124. main2();
  125. print "$top$html[0]";
  126. }
  128. else {
  129. print "<font color=red><center><b><h2>Please Check Your SSI Path.<h2></b></center></font>";
  130. }
  132. sub main{
  133. @html = split(/<!-- _JC_ MIDDLE COLUMN -->/,$html);
  134. @html = split(/<!-- _JC_ END MIDDLE COLUMN -->/,$html[1]);
  135. $html[0] =~ s/\">/\" target=\_blank\">/ig;
  136. $html[0] =~ s/bgcolor=dcdcdc/bgcolor=$table_bg/ig;
  137. $html[0] =~ s/window\.location\.replace\(window\.location\)\;//ig;
  139. return $html[0]
  140. }
  142. sub business_snapshot{
  143. @html = split(/<!-- _JC_ MARKET SNAPSHOT -->/,$html);
  144. @html = split(/<!-- _JC_ END MARKET SNAPSHOT -->/,$html[2]);
  145. $html[0] =~ s/bgcolor=\"#ccccff\"/bgcolor=$table_bg/ig;
  146. $snap = $html[0];
  147. return $snap
  148. }
  150. sub main2{
  151. @html = split(/<!-- _JC_ STORIES -->/,$html);
  152. @html = split(/<!-- _JC_ END STORIES -->/,$html[1]);
  153. $html[0] =~ s/.html>/.html target=\_blank>/ig;
  154. $html[0] =~ s/<img src=..*>//ig;
  155. return $html[0]
  156. }
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Septiembre 14th, 2003, 8:06 am

  • b_heyer
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: Jun 15, 2003
  • Mensajes: 4583
  • Loc: Maryland
  • Status: Offline

Nota Septiembre 15th, 2003, 5:15 pm

y ¿Cuál es el problema?
Pixel Acres V2
  • WBO
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 14, 2003
  • Mensajes: 2
  • Status: Offline

Nota Septiembre 16th, 2003, 6:14 am

b_heyer escribió:
y ¿Cuál es el problema?


El guión trabajado mucho, pero ya no coge los titulares.

Devuelve sólo la cabeza y nada más (una pantalla en blanco).

Cualquier asesoramiento para conseguir este nuevo trabajo se aprecia.
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8926
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Septiembre 16th, 2003, 3:47 pm

Apuesto a que la razón no funciona es porque ya no su dailynews.yahoo.com, que URL redirecciona a algo como esto ahora:

http://story.news.yahoo.com/news?tmpl=index&cid=579

por lo que creo que necesita para ajustar la URL que va a lo que no es reorientar, y que podría resolver su problema. Si esto no funciona entonces el formato de las páginas podría haber cambiado lo suficiente en que su script no sabe cómo analizar la página más, es decir, gran parte de su script podría tener que ser reescrito. Su escritura no es tan grande aunque, por lo que si sé PERL no debería ser demasiado difícil. Si no sabe PERL recomiendo a encontrar el lugar que recibió el guión y ver si tienen una actualización.
Ozzu Hosting - Want your website on a fast server like Ozzu?

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 4 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 122 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC