home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Cdrom / Pavilions / IBM / Mongolia / Threads / 5 / reform.pl < prev    next >
Encoding:
Perl Script  |  2017-09-21  |  1.1 KB  |  31 lines
  1. #!/usr/local/bin/perl -p
  2. s/\/icons\/wed\//..\//;
  3. s/\/icons\//..\//g;
  4. s/\<\/title\>/<\/title>\n<META HTTP-EQUIV="Content-Type" CONTENT="text\/html; charset=shift_jis">\n<body bgcolor=#ffffff text=#000000>/; 
  5. s/\/Japan\/IBM\/Mongolrally\/INFOMATION\//..\/..\/data\/infomation\//;
  6. s/\/Japan\/IBM\/Mongolrally\/ENTRY\//..\/..\/data\/entry\//;
  7. s/\/Japan\/IBM\/Mongolrally\//..\/..\//;
  8. s/"\/cgi-bin\/net.Thread.pl\/message\//"/;
  9. s/\?user=&email=&depth=3&detail=description&lastread=1"/.html"/;
  10. s/<a href="\/Japan\/IBM\/planet\/home.html">/<a href="..\/..\/..\/index.html">/;
  11. s/\/Japan\/IBM\/misc\//..\/..\/..\//;
  12. s/japan.park.org/park.org/;
  13. s/^.*<A HREF="\/cgi-bin\/net.Thread.pl\/postform.*$//;
  14. s/^.*help.html.*help.gif.*$//;
  15. s/"5\//"5_/;
  16. s/\/1.html/_1.html/;
  17. s/\/2.html/_2.html/;
  18. s/\/3.html/_3.html/;
  19. s/\/4.html/_4.html/;
  20. s/\/5.html/_5.html/;
  21. s/\/6.html/_6.html/;
  22. s/\/7.html/_7.html/;
  23. s/\/1_1.html/_1_1.html/;
  24. s/\/2_1.html/_2_1.html/;
  25. s/\/1_2.html/_1_2.html/;
  26. s/\/1_3.html/_1_3.html/;
  27. s/\/1_4.html/_1_4.html/;
  28. s/\/1_5.html/_1_5.html/;
  29. s/\/2_2.html/_2_2.html/;
  30. s/\/4_1.html/_4_1.html/;
  31.