home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / bin / kEsetroot < prev    next >
Encoding:
Text File  |  2005-12-09  |  3.3 KB  |  108 lines
  1. #!/usr/bin/perl
  2. #=======================================================================
  3. # kEsetroot  - KDE Esetroot integration for Eterm
  4. #
  5. # Copyright (C) 1999 - 2000  Dax T. Games
  6. #                           (dgames@isoc.net)
  7. #
  8. # This program is free software; you can redistribute it and/or modify
  9. # it under the terms of the GNU General Public License as published by
  10. # the Free Software Foundation; either version 2 of the License, or
  11. # (at your option) any later version.
  12. #
  13. # This program is distributed in the hope that it will be useful,
  14. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. # GNU General Public License for more details.
  17. #
  18. # You should have received a copy of the GNU General Public License
  19. # along with this program; if not, write to the Free Software
  20. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21. #=======================================================================
  22. # Written by Dax Games <dgames@isoc.net>
  23. # Sets root pixmap for Eterm transparency.
  24.  
  25. $HOME = $ENV{'HOME'};
  26. $KDEDIR = $ENV{'KDEDIR'};
  27. open (in,"$HOME/.kde/share/config/desktop0rc");
  28.  
  29. while (<in>) {
  30.     if ($_ =~ /^Wallpaper=(.*)/i) {
  31.         if (-e $1) {
  32.             $PixMap = $1
  33.             #system("/usr/bin/Esetroot -display :0 $1");
  34.         }
  35.         elsif (-e "$KDEDIR/share/wallpapers/$1") {
  36.             $PixMap = "$KDEDIR/share/wallpapers/$1"
  37.             #system("/usr/bin/Esetroot -display :0 $KDEDIR/share/wallpapers/$1");        
  38.         }
  39.         else { 
  40.             exit(1);
  41.         }
  42.     }
  43.     elsif ($_ =~ /^WallpaperMode=(.*)/i) {
  44.         $WallpaperMode = uc($1);
  45.         if ($WallpaperMode eq "TILED") {
  46.             $PixMapMode = ""
  47.         }
  48.         elsif ($WallpaperMode eq "CENTRED") {
  49.             $PixMapMode = "-center ";
  50.         }
  51.         elsif ($WallpaperMode eq "SCALED") {
  52.             $PixMapMode = "-scale ";
  53.         }
  54.     }
  55.  
  56. }
  57. close (in);
  58.  
  59. system("/usr/bin/Esetroot $PixMapMode-display :0 $PixMap");
  60.  
  61. if (!-e "$HOME/Desktop/Autostart/kEsetroot.kdelnk") {
  62.     print "Do you want to start kEsetroot when KDE starts? y/n [y] ";
  63.     $AutostartYORN = (<>);
  64.     chomp $AutostartYORN;
  65.  
  66.     if ($AutostartYORN = "" or $AutostartYORN = "Y") {
  67.         open (out, ">$HOME/Desktop/Autostart/kEsetroot.kdelnk");
  68.         print out "\# KDE Config File\n";
  69.         print out "[KDE Desktop Entry]\n";
  70.         print out "Name[fi]=Sovellus\n";
  71.         print out "Comment[C]=Set root pixmap for Eterm transparency\n";
  72.         print out "SwallowTitle=\n";
  73.         print out "SwallowExec=\n";
  74.         print out "Name[ru]=≡╥╔╠╧╓┼╬╔┼\n";
  75.         print out "BinaryPattern=\n";
  76.         print out "Name[hr]=Program\n";
  77.         print out "Name[sl]=Uporabni╣ki program\n";
  78.         print out "Name[pl]=Aplikacja\n";
  79.         print out "Name=Application\n";
  80.         print out "Name[ca]=Aplicacions\n";
  81.         print out "Name[it]=Applicazione\n";
  82.         print out "Name[da]=Anvendelse\n";
  83.         print out "Name[C]=KDE Esetroot\n";
  84.         print out "MimeType=\n";
  85.         print out "Name[de]=Anwendung\n";
  86.         print out "Name[ja]=ÑóÑ╫ÑΩÑ▒í╝Ñ╖ÑτÑ≤\n";
  87.         print out "Exec=kEsetroot\n";
  88.         print out "Name[cs]=Aplikace\n";
  89.         print out "Name[sv]=Program\n";
  90.         print out "Icon=kwm.xpm\n";
  91.         print out "TerminalOptions=\n";
  92.         print out "Name[sk]=Aplikßcia\n";
  93.         print out "Path=\n";
  94.         print out "Name[pt_BR]=Aplicativo\n";
  95.         print out "Type=Application\n";
  96.         print out "Name[es]=Aplicaciones\n";
  97.         print out "Name[is]=Forrit\n";
  98.         print out "Name[pt]=Aplicaτπo\n";
  99.         print out "Terminal=0\n";
  100.         print out "Name[no]=Applikasjon\n";
  101.         print out "Name[hu]=Applikßci≤\n";
  102.         print out "Name[ro]=Aplica■ie\n";
  103.         close(out);
  104.     }
  105. }
  106.  
  107.  
  108.