htdocs/fexitinstaller

   1 #!/usr/bin/perl -w
   2
   3 $user = $ENV{USER};
   4 $id = $ENV{ID};
   5 $url = "$ENV{PROTO}://$ENV{HTTP_HOST}";
   6 $fi = 'fexitinstaller.cmd';
   7 $fe = 'http://fex.belwue.de/download/fexit.exe';
   8 $ps = '%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe';
   9 $cmd = <<EOD;
  10 mkdir "%USERPROFILE%\\fex"
  11 cd "%USERPROFILE%\\fex"
  12 if not exist id (
  13   echo $url>id
  14   echo $user>>id
  15   echo $id>>id
  16 )
  17 cd "%USERPROFILE%\\Desktop"
  18 $ps -command "& { (New-Object Net.WebClient).DownloadFile('$fe','fexit.exe') }"
  19 \@explorer "%USERPROFILE%\\Desktop"
  20 \@set /p x="press [ENTER]"
  21 EOD
  22 $cmd =~ s/\n/\r\n/g;
  23
  24 if (chdir "$spooldir/$user" and open $fi,'>',$fi) {
  25   print {$fi} $cmd;
  26   close $fi;
  27   system "$FEXHOME/bin/fexsend ".
  28          "-oKq -C 'fexit for your Windows desktop' $fi $user >/dev/null";
  29   if ($? == 0) {
  30     print "<p>\n";
  31     print "<h3>A fexit installer has been sent to you. Check your email.</h3>\n";
  32   }
  33   unlink $fi;
  34 }