#!/usr/bin/perl
#
#          /* * * * * * * * * * * * * * * * * * * * *\
#          *      file:     ~/.torsmo_wetter         *
#          *      author:   Kannan Thambiah          *
#          *      date:     08.10.2004               *
#          *      kontakt:  pygospa@yahoo.de         *
#          *      url:      bytebreaker.funpic.de    *
#          *                                         *
#          *   notice:                               *
#          *   =======                               *
#          *   Bitte beim nutzen dieser Datei die    *
#          *   Kommentare unveraendert lassen. Zu-   *
#          *   saetze und Aenderungen koennen gern   *
#          *   gemacht werden, diese dann beim ver-  *
#          *   oeffentlichen aber bitte als solche   *
#          *   Kennzeichnen.                         *
#          *   Auch das Programm darf nach be-       *
#          *   lieben veraendert wird, solange es    *
#          *   nicht gegen die Lizensbedingungen     *
#          *   verstoeszt, mit denen dieses          *
#          *   Dokument versehen ist.                *
#          *   Ich bitte bei Aenderungen auch mir    *
#          *   eine Kopie zukommen zu lassen.        *
#          *                                Danke!   *
#          *                                         *
#          *   dependencies:                         *
#          *   =============                         *
#          *   Dieses Programm benoetigt die Pro-    *
#          *   gramme lofs und mp3info, welche auf   *
#          *   dem System installiert und ausfuehr-  *
#          *   bar sein muessen.                     *
#          *                                         * 
#          *   copyright:                            *
#          *   ==========                            *
#          *   Das copyright fuer dieses Skript      *
#          *   liegt bei mir, Kannan Thambiah.       *
#          *                                         *
#          *   license:                              *
#          *   ========                              *
#          *   Dieses Dokument unterliegt der        *
#          *   Attribution-NonCommercial-Share-      *
#          *                    Alike 2.0 Germany    *
#          *   http://creativecommons.org/           *
#          *            licenses/by-nc-sa/2.0/de/    *
#          *                                         *
#          \* * * * * * * * * * * * * * * * * * * * */
#


#   Argumente die beim Aufruf mirgegeben wurden,     #
#   werden gespeichert und ueberprueft.              #
$numArgs = $#ARGV+1;

if($numArgs != 1)
{
   print "Usage error: .torsmo_wetter ARGUMENT, where ARGUMENT may be:\n\thhim, htemp, htempg, windr, windg, luft, uv, nhim, ntemp, mhim, mtemp, uhim, utemp.\nExiting!\n";
   exit;
}


#   Wenn alles ok ist, gehts zum Hauptteil           #
else
{

   # Mitgegebene Arugument wird in $key gespeicher.  #
   $key = $ARGV[0];

   # Status #
   if($key eq "time")
   {
      $time = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<lsup>/ {print \$2}' | awk -F \\< '/lsup/ {print \$1}'`;
      print $time;
   }

   elsif($key eq "loc")
   {
      $loc = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<obst>/ {print \$2}' | awk -F \\< '/obst/ {print \$1}'`;
      print $loc;
   }


   # Momentanes Wetter #
   elsif($key eq "ccond")
   {
      $ccond = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 1`;
      print $ccond;
   }

   elsif($key eq "ctemp")
   {
      $ctemp = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<tmp>/ {print \$2}' | awk -F \\< '/tmp/ {print \$1}'`;
      print $ctemp;
   }

   elsif($key eq "flike")
   {
      $flike = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<flik>/ {print \$2}' | awk -F \\< '/flik/ {print \$1}'`;
      print $flike;
   }

   elsif($key eq "cwindd")
   {
      $cwindd = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 2 | tail -n 1`;
      print $cwindd;
   }
   elsif($key eq "cwinds")
   {
      $cwinds = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<gust>/ {print \$2}' | awk -F \\< '/gust/ {print \$1}'`;
      print $cwinds;
   }

   elsif($key eq "hmid")
   {
      $hmid = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<hmid>/ {print \$2}' | awk -F \\< '/hmid/ {print \$1}'`;
      print $hmid;
   }

   elsif($key eq "cuvi")
   {
      $cuvi = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<i>/ {print \$2}' | awk -F \\< '/i/ {print \$1}'`;
      print $cuvi;
   }

   elsif($key eq "cuv")
   {
      $cuv = `cat /home/kannan/.wetter/wetter00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 3 | tail -n 1`;
      print $cuv;
   }


   # Vorhersage Heute #
   elsif($key eq "dcond")
   {
      $dcond = `cat /home/kannan/.wetter/heute00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 1`;
      print $dcond;
   }

   elsif($key eq "dcond2")
   {
      $dcond2 = `cat /home/kannan/.wetter/heute00 | awk -F \\> '/<bt>/ {print \$2}' | awk -F \\< '/bt/ {print \$1}'`;
      print $dcond2;
   }

   elsif($key eq "dtemp")
   {
      $dtemp = `cat /home/kannan/.wetter/heute00 | awk -F \\> '/<hi>/ {print \$2}' | awk -F \\< '/hi/ {print \$1}'`;
      print $dtemp;
   }


   # Vorhersage Nachts #
   elsif($key eq "ncond")
   {
      $ncond = `cat /home/kannan/.wetter/heute01 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 1`;
      print $ncond;
   }

   elsif($key eq "ncond2")
   {
      $ncond2 = `cat /home/kannan/.wetter/heute01 | awk -F \\> '/<bt>/ {print \$2}' | awk -F \\< '/bt/ {print \$1}'`;
      print $ncond2;
   }

   elsif($key eq "ntemp")
   {
      $ntemp = `cat /home/kannan/.wetter/heute00 | awk -F \\> '/<low>/ {print \$2}' | awk -F \\< '/low/ {print \$1}'`;
      print $ntemp;
   }



   # Vorhersage Morgen #
   elsif($key eq "tcond")
   {
      $tcond = `cat /home/kannan/.wetter/morgen00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 1`;
      print $tcond;
   }

   elsif($key eq "tcond2")
   {
      $tcond2 = `cat /home/kannan/.wetter/morgen00 | awk -F \\> '/<bt>/ {print \$2}' | awk -F \\< '/bt/ {print \$1}'`;
      print $tcond2;
   }

   elsif($key eq "ttemp")
   {
      $ttemp = `cat /home/kannan/.wetter/morgen00 | awk -F \\> '/<hi>/ {print \$2}' | awk -F \\< '/hi/ {print \$1}'`;
      print $ttemp;
   }



   # Vorhersage Uebermorgen #
   elsif($key eq "acond")
   {
      $acond = `cat /home/kannan/.wetter/uebermorgen00 | awk -F \\> '/<t>/ {print \$2}' | awk -F \\< '/t/ {print \$1}' | head -n 1`;
      print $acond;
   }

   elsif($key eq "acond2")
   {
      $tcond2 = `cat /home/kannan/.wetter/uebermorgen00 | awk -F \\> '/<bt>/ {print \$2}' | awk -F \\< '/bt/ {print \$1}'`;
      print $tcond2;
   }

   elsif($key eq "atemp")
   {
      $atemp = `cat /home/kannan/.wetter/uebermorgen00 | awk -F \\> '/<hi>/ {print \$2}' | awk -F \\< '/hi/ {print \$1}'`;
      print $atemp;
   }

}



   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
   #                                                                 #
   #   Copyleft by Kannan Thambiah.                                  #
   #   Use it on your own risk. I will not be held responsible       #
   #   for any problems or datalosses due to executing this          #
   #   script.                                                       #
   #   Licensed under:                                               #
   #   Attribution-NonCommercial-ShareAlike 2.0 Creative Commons     #
   #   http://creativecommons.org/licenses/by-nc-sa/2.0/de/          #
   #   http://creativecommons.org/licenses/by-nc-sa/2.0 [english]    #
   #                                                                 #
   #   Contact me: pygospa@yahoo.de                                  #
   #   Jabber me:  pygospa@jabber.ccc.de                             #
   #   Visite me:  http://bytebreaker.funpic.de                      #
   #                                                                 #
   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #