home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Meeting_Pearls_II / html / sw / nbsd / FuzzyPendel / mkpages < prev    next >
Text File  |  1994-07-06  |  3KB  |  98 lines
  1. #!/usr/local/bin/perl -- # -*- perl -*-
  2.  
  3. %files = ("00_daneben.html",             "Unbenutzte Fläche",
  4.       "01_menu.html",                "Menüzeile",
  5.       "02_pushleft.html",            "Push-left-Button",
  6.       "03_pendel.html",              "Pendel-Fläche",
  7.       "04_pushright.html",           "Push-right-Button",
  8.       "05_winkel.html",              "Winkel-Anzeige",
  9.       "06_alpha_values.html",        "Winkel-Werte",
  10.       "07_alphaDot_values.html",     "Winkelgeschwindigkeits-Werte",
  11.       "08_a_values.html",            "Beschleunigungs-Werte",
  12.       "09_alpha_ranges.html",        "Winkel-Bereiche",
  13.       "10_alphaDot_ranges.html",     "Winkelgeschwindigkeits-Bereiche",
  14.       "11_a_ranges.html",            "Beschleunigungs-Bereiche",
  15.       "12_alpha_exact.html",         "Winkel (exakter Wert)",
  16.       "13_alphaDot_exact.html",      "Winkelgeschwindigkeit (exakter Wert)",
  17.       "14_a_exact.html",             "Beschleunigung (exakter Wert)",
  18.       "15_startstop.html",           "Start/Stop-Knopf",
  19.       "16_step.html",                "Single-Step-Button",
  20.       "17_quit.html",                "Quit-Button"
  21.       );
  22.  
  23. @otherfiles=("index.html",
  24.          "oberflaeche.html",
  25.          "implement.html",
  26.          "design.html",
  27.          "danke.html",
  28.          "demo.html");
  29.  
  30. ###########################################################################
  31.  
  32. if($#ARGV==-1){
  33.     die "Usage: $0 DOCUMENT_ROOT\n";
  34. }else{
  35.     $DOCUMENT_ROOT=$ARGV[0];
  36. }
  37.  
  38. foreach $i ( keys %files ){
  39.     open(OUT,">$i") || die;
  40.     $hdr=$files{$i};
  41.     ($gif=$i)=~s/.html$/.gif/;
  42.     ($txt=$i)=~s/.html$/.txt/; 
  43.     print OUT <<EOTXT;
  44. <!----------------------------------------------------------------->
  45. <!--- This text has been created automatically, DO NOT EDIT!!! ---->
  46. <!----------------------------------------------------------------->
  47. <HEAD>
  48. <TITLE>Erläuterung: $hdr</TITLE>
  49. </HEAD>
  50.  
  51. <BODY>
  52. <H1>Erläuterung: $hdr</H1>
  53.  
  54. EOTXT
  55.  
  56.     print OUT "<IMG SRC=\"$DOCUMENT_ROOT/$gif\"><P>\n" if -f "$gif";
  57.  
  58.     if(-f $txt){
  59.     open(IN,"<$txt") || die;
  60.     while(<IN>){
  61.         s|HREF="|HREF="$DOCUMENT_ROOT/|g;
  62.         print OUT;
  63.     }
  64.     close(IN);
  65.     }
  66.  
  67.     print OUT <<EOTXT;
  68. <HR><!----------------------------------------------------------------->
  69.  
  70. <A HREF="$DOCUMENT_ROOT/oberflaeche.html">Hier</A> geht's zurück zur Oberflächenbeschreibung, und
  71. <A HREF="$DOCUMENT_ROOT/index.html">hier</A> geht's zur Einführung zum Fuzzy-Pendel.
  72.     
  73. <HR><!----------------------------------------------------------------->
  74.  
  75. Hubert Feyrer, <A HREF="http://dusk.rz.uni-regensburg.de/Personal/hubert/hubert_feyrer.html">hubert.feyrer@rz.uni-regensburg.de</A>
  76. EOTXT
  77.     close(OUT);
  78. }
  79.  
  80.  
  81.  
  82.  
  83. foreach $i ( @otherfiles ){
  84.     ($txt=$i)=~s/.html$/.txt/; 
  85.     open(IN,"<$txt") || die;
  86.     open(OUT,">$i") || die;
  87.     while(<IN>){
  88.     s|SRC="|SRC=\"$DOCUMENT_ROOT/|g;
  89.         if(/HREF=\"([^"]+)\"/ && $1!~/[:#]/ && $1!~/cgi-bin/){
  90.             s|HREF="[^"]+"|HREF="$DOCUMENT_ROOT/$1"|g;
  91.         }
  92.         print OUT;
  93.  
  94.     }
  95.     close(IN);
  96.     close(OUT);
  97. }
  98.