From: short <> Date: Sun, 28 Aug 2005 06:34:56 +0000 (+0000) Subject: Simplified all s centering by using new css rule: class="margin-center" X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=466c84dedaa0dcb2032644204161ce8060c6cf55 Simplified all
s centering by using new css rule: class="margin-center" --- diff --git a/Contact.css b/Contact.css index 2a6409a..2e3e523 100644 --- a/Contact.css +++ b/Contact.css @@ -18,5 +18,7 @@ table.contact td { vertical-align: top; } -table.contact { border-collapse: collapse; border-style: solid; border-width: 1px; margin: 8px; } +table.contact { border-collapse: collapse; border-style: solid; border-width: 1px; } table.contact A[href] { text-decoration: inherit; /* revoke underline */ } +/* FIMXE: Reuse .margin-center of My/Web.css */ +.contact,table.contact>caption { margin-left: auto; margin-right: auto; } diff --git a/Contact.pm b/Contact.pm index 73e982f..93785be 100644 --- a/Contact.pm +++ b/Contact.pm @@ -41,7 +41,7 @@ My::Web->heading(); print <<"HERE"; -
+
HERE my @contact=resume::ResumeJanKratochvil->Contact(); my %keys=map(($_=>1),qw(Name eMail Projects OpenPGP)); @@ -59,7 +59,7 @@ HERE } cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys); print <<"HERE"; -
+ HERE diff --git a/WebConfig.pm b/WebConfig.pm index 9e4b4ea..67c2d9b 100644 --- a/WebConfig.pm +++ b/WebConfig.pm @@ -57,43 +57,41 @@ our %WebConfig=( "pipermail_url"=>sub { return "http://".$My::Web::W->{"web_hostname"}."/pipermail/"; }, "heading"=>sub () { my $r=""; - $r.=''."\n"; + $r.='
'."\n"; - $r.=''."\n"; - # Do not: - # as the constant are always bad. - $r.='\n"; + } + $r.='
'."\n"; - $r.='' - .'
'."\n"; - $r.='Jan Kratochvil'; + $r.=''."\n"; + # Do not: + # as the constant are always bad. + $r.=''."\n"; - $r.=''."\n"; + $r.=''."\n"; - $r.='
'."\n"; + $r.='' + .'
'."\n"; + $r.='Jan Kratochvil'; # $r.=My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil', # "attr"=>'style="text-decoration: inherit; /* revoke underline */;"'); - $r.='
'; - $r.='		'."\n"; - $r.='' - .''."\n"; - my @sections=( - "/project/"=>"Projects", - "http://cvs.jankratochvil.net/"=>"CVS", + $r.='
'; + $r.='		'."\n"; + $r.='' + .''."\n"; + my @sections=( + "/project/"=>"Projects", + "http://cvs.jankratochvil.net/"=>"CVS", # "/News.pm"=>"News", - $resume_url=>"Resume", - "/Contact.pm"=>"Contact", - ); - while (@sections) { - my $section_path=shift @sections; - my $section_name=shift @sections; - $r.='\n"; - } - $r.='
'; - $r.=(($My::Web::W->{"section"} || "") eq $section_name ? "$section_name" - : My::Web::a_href($section_path,$section_name, - "attr"=>'style="text-decoration: inherit; /* revoke underline */;"')); - $r.="
'."\n"; - $r.='
'."\n"; - $r.='
'."\n"; + $resume_url=>"Resume", + "/Contact.pm"=>"Contact", + ); + while (@sections) { + my $section_path=shift @sections; + my $section_name=shift @sections; + $r.='		'; + $r.=(($My::Web::W->{"section"} || "") eq $section_name ? "$section_name" + : My::Web::a_href($section_path,$section_name, + "attr"=>'style="text-decoration: inherit; /* revoke underline */;"')); + $r.="
'."\n"; + $r.='
'."\n"; if (!$My::Web::W->{"heading_novskip"}) { $r.="
\n"; $r.=My::Web::vskip("6ex"); diff --git a/project/Lib.pm b/project/Lib.pm index 86c900f..e48b92a 100644 --- a/project/Lib.pm +++ b/project/Lib.pm @@ -318,37 +318,35 @@ sub platforms ($;$%) my($class,$platform_selected,%args)=@_; my $r=""; - $r.='
'."\n"; - $r.=''."\n"; - $r.=''; - $r.=''."\n"; - $r.='
'; - $r.=''."\n"; - $r.=''."\n"; - $r.=''."\n"; - $r.=''."\n"; - $r.='
'."\n"; - $r.='Projects'; - $r.='
'; - $r.='		'; - $r.=''."\n"; - $r.=''."\n"; - my @platforms=@platforms; - while (@platforms) { - my $platform_sym =shift @platforms; - my $platform_name=shift @platforms; - my $chosen=($platform_selected && $platform_selected eq $platform_sym); - $r.='\n"; - } - $r.=''."\n"; - $r.='
'; - $r.=a_href((!$platform_selected ? "" : "/project/").'#'.$platform_sym,$platform_name, - "attr"=>($chosen - ? 'style="text-decoration: underline; font-weight: bold;"' - : 'style="text-decoration: inherit; /* revoke underline */"')); - $r.="
'."\n"; - $r.='
'."\n"; - $r.='
'."\n"; + $r.=''."\n"; + $r.=''; + $r.=''."\n"; + $r.='
'; + $r.=''."\n"; + $r.=''."\n"; + $r.=''."\n"; + $r.=''."\n"; + $r.='
'."\n"; + $r.='Projects'; + $r.='
'; + $r.='		'; + $r.=''."\n"; + $r.=''."\n"; + my @platforms=@platforms; + while (@platforms) { + my $platform_sym =shift @platforms; + my $platform_name=shift @platforms; + my $chosen=($platform_selected && $platform_selected eq $platform_sym); + $r.='\n"; + } + $r.=''."\n"; + $r.='
'; + $r.=a_href((!$platform_selected ? "" : "/project/").'#'.$platform_sym,$platform_name, + "attr"=>($chosen + ? 'style="text-decoration: underline; font-weight: bold;"' + : 'style="text-decoration: inherit; /* revoke underline */"')); + $r.="
'."\n"; + $r.='
'."\n"; if (!$args{"novskip"}) { $r.="
\n"; $r.=My::Web::vskip "6ex"; @@ -366,13 +364,11 @@ my($class,$name)=@_; print $class->platforms($item->{"platform"},"novskip"=>1); - $r.='
'."\n"; - $r.=''."\n"; - $r.=''."\n"; - $r.='
'."\n"; - $r.=a_href "/project/$name/",$title; - $r.='
'."\n"; - $r.='
'."\n"; + $r.=''."\n"; + $r.=''."\n"; + $r.='
'."\n"; + $r.=a_href "/project/$name/",$title; + $r.='
'."\n"; $r.=vskip "1ex"; return $r; } diff --git a/project/captive/CVS.pm b/project/captive/CVS.pm index e3c40af..8af7680 100755 --- a/project/captive/CVS.pm +++ b/project/captive/CVS.pm @@ -53,11 +53,10 @@ make

Download

-
- - - - +
DistributionInstallation Case #1
Filesystem and installer
(recommended)		Installation Case #2
Manual installation
(filesystem, expert user)		Installation Case #3
Command-line client
(no filesystem access)
+ + + HERE my %pkg=( 1=>[qw(captive captive-lufs captive-install lufs gnome-vfs-httpcaptive ntfsprogs ntfsprogs-gnomevfs)], @@ -94,11 +93,10 @@ my($file_base,$text,%args)=@_; my $ntfsprogs_after=sub ($) { my($format)=@_; return if $case!=1; - return '
DistributionInstallation Case #1
Filesystem and installer
(recommended)		Installation Case #2
Manual installation
(filesystem, expert user)		Installation Case #3
Command-line client
(no filesystem access)
'; - print ""; + print '"; for my $casel (1,2,3) { $case=$casel; - print " - -
' - .'
requirement: ' - .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs') - .' '.$format.' ≥ 1.8.0' - .'
' + return '
' + .'
requirement: ' + .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs') + .' '.$format.' ≥ 1.8.0' .'
'; }; @@ -119,10 +117,10 @@ my @dist=( for my $dist (@dist) { print '
".$dist->{"name"}."'.$dist->{"name"}.""; + print ''; print join("
",map({ my $pkg=$_; my($file,$text)=&{$dist->{"out"}}($pkg,@{$version{$pkg}}); (!defined $text ? ($file) || () : (&$a_href_arch("dist/$file",$text))); @@ -139,10 +137,9 @@ HERE my $build_static_basename=(map("$_-".$version{$_}.".tar.gz","build-captive-static"))[0]; print a_href "dist/$build_static_basename",$build_static_basename; print <<"HERE"; -
-
+ + + @{[ vskip "3ex" ]} diff --git a/project/captive/Index.css b/project/captive/Index.css index 70ae72c..834ca10 100644 --- a/project/captive/Index.css +++ b/project/captive/Index.css @@ -24,3 +24,7 @@ table.mailman > * /* FIXME: What is it? */ > tr > th, table.mailman > * /* FIXME: What is it? */ > tr > td { padding: 1ex; text-align: center; } table.download td { padding: 8px; } table.navigate td { padding-bottom: 1ex; padding-left: 15px; padding-right: 15px; } +/* FIMXE: Reuse .margin-center of My/Web.css */ +.navigate,table.navigate>caption { margin-left: auto; margin-right: auto; } +/* FIMXE: Reuse .margin-center of My/Web.css */ +.download,table.download>caption { margin-left: auto; margin-right: auto; } diff --git a/project/captive/Index.pm b/project/captive/Index.pm index b261d60..397582d 100755 --- a/project/captive/Index.pm +++ b/project/captive/Index.pm @@ -66,17 +66,15 @@ my $W=project::Lib->init( "no_project_data"=>1, "css_push"=>"./Index.css", "project_text_after_title"=>sub { return "" - .'
' - .'' - .'' - .'' - .'' - .'' - .'' - .'' - .'' - .'
• '.a_href('#download','Download').'• '.a_href('#news','NEWS').'• '.a_href('#testimonials','Testimonials').'• '.a_href('#press','Internet Press').'• '.a_href('#notes','Installation Notes').'• '.a_href('#lists','Mailing Lists').'• '.a_href('#seealso','See Also').'
' - .'
'; + .'' + .'' + .'' + .'' + .'' + .'' + .'' + .'' + .'
• '.a_href('#download','Download').'• '.a_href('#news','NEWS').'• '.a_href('#testimonials','Testimonials').'• '.a_href('#press','Internet Press').'• '.a_href('#notes','Installation Notes').'• '.a_href('#lists','Mailing Lists').'• '.a_href('#seealso','See Also').'
' }, ); @@ -84,12 +82,10 @@ my $W=project::Lib->init( print <<"HERE" if !$W->{"no_job"}; @{[ vskip "3ex" ]} -
- - -
- Looking for a challenging job: @{[ a_href $W->{"resume_url"},"My resume" ]} -
+ +
+ Looking for a challenging job: @{[ a_href $W->{"resume_url"},"My resume" ]} +
HERE @@ -103,7 +99,6 @@ print <<"HERE";

Choose the one preferred installation format:

-
@@ -130,7 +125,6 @@ print <<"HERE"; @{[ a_href 'CVS.pm#source','download link' ]}
-

Development Status

diff --git a/project/captive/Preview.pm b/project/captive/Preview.pm index 5b485a2..c780345 100755 --- a/project/captive/Preview.pm +++ b/project/captive/Preview.pm @@ -45,12 +45,10 @@ sub preview_img ($$;$) my($file_base,$text,$comment)=@_; return <<"HERE"; -
- - - -
@{[ img $file_base,$text ]}
$text@{[ map((!$_ ? "" : "
$_"),$comment) ]}
-
+ + + +
@{[ img $file_base,$text ]}
$text@{[ map((!$_ ? "" : "
$_"),$comment) ]}
@{[ vskip "3ex" ]} HERE } diff --git a/project/captive/doc/APITypes.pm b/project/captive/doc/APITypes.pm index 68ec154..e5a6658 100755 --- a/project/captive/doc/APITypes.pm +++ b/project/captive/doc/APITypes.pm @@ -48,14 +48,14 @@ print <<"HERE"; functionality. Currently implemented functionality statistics are provided below:

-
+
-
Function Implementation Types Statistics
Function type ItemsPortion
@{[ a_href 'APITypes.pm#functype_pass','pass' ]} 81 26%
@{[ a_href 'APITypes.pm#functype_wrap','wrap' ]} 2 0%
@{[ a_href 'APITypes.pm#functype_native_reactos','native-ReactOS' ]} 113 36%
@{[ a_href 'APITypes.pm#functype_native_libcaptive','native-own' ]} 116 38%
+
@{[ doc_img 'ratio','Functions Reusal Ratio' ]} @@ -233,7 +233,7 @@ print <<"HERE"; @{[ vskip() ]} -
+
@@ -241,7 +241,7 @@ print <<"HERE"; -
Function Type pass Characteristics
captivesym keywordpass
Native code function name (no implementation)
W32 traced code from W32 function name FUNCNAME_cdecl/_stdcall/_fastcall
Entry/exit debug tracing from UNIX code yes
Entry/exit debug tracing from W32 code yes
+

Wrap of the Original "ntoskrnl.exe" Function

@@ -297,7 +297,7 @@ print <<"HERE"; differ across different ntoskrnl.exe versions.

-
+
@@ -306,7 +306,7 @@ print <<"HERE"; -
Function Type wrap Characteristics
captivesym keywordwrap
Native UNIX wrapping code function name FUNCNAME_wrap
W32 traced original code function name FUNCNAME_orig
Entry/exit debug tracing from UNIX code yes
Entry/exit debug tracing from W32 code yes
+

Native Implementation

@@ -436,14 +436,14 @@ print <<"HERE"; @{[ vskip() ]} -
+
-
Function Type native Characteristics
captivesym keyword(none; just the symbol name)
Native code function name FUNCTIONNAME
Native traced code from W32 code func. name FUNCTIONNAME_cdecl/_std...
Entry/exit debug tracing from UNIX code no
Entry/exit debug tracing from W32 code yes
+

Undefined Function

@@ -464,14 +464,14 @@ print <<"HERE"; undef type to prevent unresolved symbol reference.

-
+
-
Function Type undef Characteristics
captivesym keywordundef
Native code function name (no implementation)
Native traced code function name FUNCTIONNAME_cdecl/_stdcall/_fastcall
Debug tracing message from UNIX code yes
Debug tracing message from W32 code yes
+ HERE diff --git a/project/captive/doc/Architecture.pm b/project/captive/doc/Architecture.pm index 0f66a9f..d89ad5a 100755 --- a/project/captive/doc/Architecture.pm +++ b/project/captive/doc/Architecture.pm @@ -58,7 +58,7 @@ print <<"HERE"; very well into any role in those two ones. Therefore this project went its own way of emulation:

-
+
@@ -85,7 +85,7 @@ print <<"HERE"; -
Emulation Projects Characteristics
@{[ a_href '#guestosnote','Guest-OS' ]}W32 kernel ntoskrnl.exe
+
Guest-OS
diff --git a/project/captive/doc/CallType.pm b/project/captive/doc/CallType.pm index e7f1b46..16e14f4 100755 --- a/project/captive/doc/CallType.pm +++ b/project/captive/doc/CallType.pm @@ -84,13 +84,13 @@ print <<"HERE"; @{[ doc_img 'fig/calltype_cdecl', 'W32 Calling Convention cdecl Scheme' ]} -
+
-
Calling Convention cdecl Characteristics
Arguments freed by caller
Arguments on the stack #0 ... #(n-1)
Arguments in the registers none
GCC attribute __attribute__((__cdecl__)) (default)
+

W32 Calling Convention "stdcall"

@@ -105,13 +105,13 @@ print <<"HERE"; passed by this convention – use @{[ a_href 'CallType.pm#calltype_cdecl','cdecl' ]} instead.

-
+
-
Calling Convention stdcall Characteristics
Arguments freed by callee
Arguments on the stack #0 ... #(n-1)
Arguments in the registers none
GCC attribute __attribute__((__stdcall__))
+

W32 Calling Convention "fastcall"

@@ -143,7 +143,7 @@ print <<"HERE"; @{[ doc_img 'fig/calltype_fastcall', 'W32 Calling Convention fastcall Scheme' ]} -
+
@@ -152,7 +152,7 @@ print <<"HERE"; -
Calling Convention fastcall Characteristics
Arguments freed by callee
Arguments on the stack #2 ... #(n-1)
GCC ≥3.4 attribute __attribute__((__fastcall__))
GCC <3.4 attr. emulation__attribute__((__stdcall__))
__attribute__((__regparm__(3) /* EAX,EDX,ECX */))
+ HERE diff --git a/project/winvnc/Index.pm b/project/winvnc/Index.pm index bfd5eec..c6acf1b 100644 --- a/project/winvnc/Index.pm +++ b/project/winvnc/Index.pm @@ -65,8 +65,7 @@ Otherwise error about missing omnithread_rt.dll will occur.

Here is the table for bytes to patch in WinVNC.exe from vnc-3.3.3r9_x86_win32.zip. You are not interested in this table if you download the already patched .EXE file referenced in the heading.

-
- +
@@ -78,11 +77,9 @@ You are not interested in this table if you download the
-
File offsetHex bytes
4.0 original 0000339000 6A 66 6A 69 6A 65 56 8D 8D F8 FE FF FF E8 2D
4.0 'SECRET' patched0000339000 6A 66 6A 69 6A 65 56 8D 8D F8 FE FF FF EB 03
3.3.3r7 original 0000C9F0 53 55 56 8B F1 57 8B 46 60 C7 46 68 58 00 00 00
3.3.3r7 'SECRET' patched0000C9F0C2 08 00 8B F1 57 8B 46 60 C7 46 68 58 00 00 00
-
+

Here you can check whether your patch was successful:

-
- +
@@ -90,8 +87,7 @@ You are not interested in this table if you download the
File from packageMD5 sum
WinVNC.exe-4.0 , original 7043ddf51d7135c1d1b83b4213dfed61
WinVNC.exe-4.0 , 'SECRET' patched916c82e99e1dc17bebdc31aebc895b52