https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| e4451f11 JH |
1 | @echo off |
| 2 | ||
| 3 | ::- This script must be executed on the PC with an ActiveSync | |
| 4 | ::- connection. If it does not work, create the entries with | |
| 5 | ::- a remote registry editor or get a registry editor for your | |
| 6 | ::- devices. | |
| 7 | ::- | |
| 8 | ::- You need my cereg.exe program. | |
| 9 | ||
| 10 | ::- My paths... | |
| 11 | set perlexe=\speicherkarte2\bin\perl.exe | |
| 12 | set perllib=\speicherkarte2\usr\lib\perl5 | |
| 13 | ||
| 14 | ::- PERL5LIB | |
| 15 | cereg -k "HKLM\Environment" -n "PERL5LIB" -v "%perllib%" | |
| 16 | ||
| 17 | ::- For ShellExecute | |
| 18 | cereg -k "HKCR\.pl" -n "" -v "perlfile" | |
| 19 | cereg -k "HKCR\perlfile" -n "" -v "Perl Script" | |
| 20 | cereg -k "HKCR\perlfile\DefaultIcon" -n "" -v "%perlexe%,-1" | |
| 21 | ||
| 22 | ::- You might need to fix the quotes if your paths contain spaces! | |
| 23 | cereg -k "HKCR\perlfile\Shell\open\command" -n "" -v "%perlexe% %%1" | |
| 24 | ||
| 25 | cereg -k "HKLM\Environment" -n "ROWS" -v "10" | |
| 26 | cereg -k "HKLM\Environment" -n "COLS" -v "75" | |
| 27 | cereg -k "HKLM\Environment" -n "PATH" -v "/Speicherkarte2/bin" | |
| 28 | cereg -k "HKLM\Environment" -n "UNIXROOTDIR" -v "/Speicherkarte2" |