X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=project%2Fcaptive%2FIndex.html.pl;h=a137b4dae78cb06c3d1a553755100a5ebaca1a58;hb=8b7102f457714ff880702a3d9e253dfed57b1f3b;hp=a9beb0447f3f498502a5d018e934b2ce0cd392d3;hpb=cbd114a688ac874a97703f78be2b9ea0b953d02c;p=www.jankratochvil.net.git diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl index a9beb04..a137b4d 100755 --- a/project/captive/Index.html.pl +++ b/project/captive/Index.html.pl @@ -31,13 +31,35 @@ Wuse 'My::Project'; Wuse 'project::captive::ListItem'; +# Redirect foreign visitors to our root with that disgusting introduction ad. +{ + my $r=Apache->request(); + if (my $referer=$r->header_in("Referer")) { + Wuse 'WebConfig'; + require URI; + my $refuri=URI->new_abs($referer,$r->uri()); + if (1 + && $refuri->host() ne "localhost" + && $refuri->host() ne &{$WebConfig::WebConfig{"web_hostname_sub"}}) { + use Apache::Constants qw(REDIRECT); + $r->status(REDIRECT); + $r->header_out("Location"=>"http://".&{$WebConfig::WebConfig{"web_hostname_sub"}}()); + exit 0; + } + } + } + + my $W=My::Project->init_project( "__PACKAGE__"=>__PACKAGE__, "ListItem"=>\@project::captive::ListItem::ListItem, + "no_project_data"=>1, "head_css"=>" .reqpkg { font-style: italic; } .stuff { font-style: italic; font-size: larger; margin-left: 20%; margin-right: 10%; } .re { font-style: italic; } +table.mailman > * /* FIXME: What is it? */ > tr > th, +table.mailman > * /* FIXME: What is it? */ > tr > td { padding: 1ex; text-align: center; } ", ); @@ -50,10 +72,10 @@ print <<"HERE"; HERE my @stuff=( - "A lot of people claim themselves as Windows Programmers.\n" - ." Now I can finally join them - I also wrote my own Microsoft Windows.", - "Why do they need ".a_href('http://www.winsupersite.com/reviews/winserver2k3_gold2.asp','5000 developers') - ." to write Microsoft Windows when it can be just One Man Show?", + "A lot of people claim to be Windows Programmers.\n" + ." Now, I can join them at last - I have also written my own Microsoft Windows.", + "Why do they need ".a_href('http://www.winsupersite.com/reviews/winserver2k3_gold2.asp','5,000 developers') + ." to write Microsoft Windows when it can be just a One Man Show?", @@ -61,27 +83,24 @@ my @stuff=( ." hal.dll.", ); +print rightimg((map("
$_
\n",($stuff[int rand @stuff])))[0], + 'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]', + "a_href_img"=>'captive-install-acquire'); print <<"HERE"; -
- @{[ map(" $_ \n",($stuff[int rand @stuff])) ]} - |
- @{[ - img 'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]', - "a_href_img"=>'captive-install-acquire' - ]} | -
+ Why did I install Microsoft Windows and write such a disgusting piece of code?
+ Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}!
+
Distribution | + +
---|
Distribution | Installation Case #1 Filesystem and installer (recommended) |
Installation Case #2 Manual installation (filesystem, expert user) |
Installation Case #3 Command-line client (no filesystem access) |
---|---|---|---|
Package Requirements | "; + for my $case (1,23) { + print ""; + print join(", ",map("$_",@{$reqpkg{$case}})); + print " | "; + } +print "
++ +@{[ vskip "3ex" ]} -print <<"HERE"; -Red Hat 8 Psyche upgrade of libxml2 package: + Upgrade only the packages already installed on your system to prevent + many dependency requirements - do not use "
+rpm -U
", + use "rpm -F
" instead:++
rpm -F @{[ join(" ",@libxml2_rh8_pkgs) ]}
+
You should first run captive-install-acquire command to check your available Microsoft Windows drivers versions. Now you can execute:
@@ -252,7 +291,7 @@ available Microsoft Windows drivers versions. Now you can execute:'captive' package creates 'captive' user and 'captive' group on your system.
-Original version >=200309071734 sufficient: -The package downloadable here has no code patches - you can freely use the -original version instead. Unfortunately the last public release is +The package which is downloadable from here, has no code patches - you can freely use the +original version instead. Unfortunately, the last public release is 1.7.1 while this project requires at least @{[ a_href 'http://linux-ntfs.sourceforge.net/snapshots/','snapshot' ]} version @{[ a_href 'http://linux-ntfs.sourceforge.net/snapshots/ntfsprogs-200309071734.tar.bz2','200309071734' ]} @@ -274,11 +313,11 @@ your convenience.
@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} (Linux Userland File System) needs Linux kernel module driver (lufs.o) compatible with your -running Linux kernel. Binary driver is supplied already precompiled for many +running Linux kernel. The binary driver is supplied already precompiled for many Linux kernel versions in the binary packages above (.i386.rpm and _i386.deb archives).
@@ -290,32 +329,72 @@ distribution vendor. You may need to install package Linux kernel version (rpm -q kernel) and re-run /usr/share/lufs/prepmod. +WARNING: This 'captive' package may modify your Linux kernel +sources matching your currently running kernel version. These minor +modifications may include a dependencies rebuild, compiling build tools, fixes of +several include files, etc. All the modifications are done at the mount(8) time +by the automatically executed /usr/share/lufs/prepmod script. +This behavior was not present in the original +@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} distribution +by @{[ a_href 'http://www.malinux.net/main/','Florin Malita' ]}.
+ + +HERE + + +print rightimg <<"HERE",'reactos','ReactOS',"a_href"=>'http://www.reactos.com/'; +Compatibility with the existing binary Microsoft Windows file system drivers has been + reached. Microsoft Windows kernel system components required by these drivers + were analyzed and successfully emulated in the GNU/Linux operating system. + The project brings the Microsoft Windows kernel emulation framework to support even + other types of Microsoft Windows drivers in the future. + The @{[ a_href 'http://www.reactos.com/','ReactOS' ]} + code base proved to be a big asset for this functionality.
+HERE -
- The First Open Source MS-Windows Kernel API for Free OS- -Compatibility with existing binary Microsoft Windows file system drivers was - reached. Microsoft Windows kernel system components required by these drivers - were analyzed and successfuly emulated in the GNU/Linux operating system. - Project brings Microsoft Windows kernel emulation framework to support even - other types Microsoft Windows drivers in the future. - @{[ a_href 'http://www.reactos.com/','ReactOS' ]} - code base made a big asset for this functionality. - |
- @{[ img 'reactos','ReactOS',"a_href"=>'http://www.reactos.com/' ]} | -
- Why did I install Microsoft Windows and wrote such disgusting piece of code?
- Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}, !
-