]> git.treefish.org Git - fex.git/blob - htdocs/fexitinstaller
3054e57cf0ef9fe00f8a1177d9352dc78d2a55f9
[fex.git] / 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 }