petr999

warn:ntdll:NtCreateFile L"\\??\\C:\\windows" not found (c0000035)
warn:ntdll:NtCreateFile L"\\??\\C:\\windows\\system" not found (c0000035)
warn:module:alloc_module disabling no-exec because of L"QtWeb.exe"
warn:file:wine_nt_to_unix_file_name L"QtWeb.exe.manifest" not found in /home/me/.wine/dosdevices/c:/Program Files/QtWeb
warn:ntdll:NtCreateFile L"\\??\\C:\\Program Files\\QtWeb\\QtWeb.exe.manifest" not found (c0000034)
warn:file:wine_nt_to_unix_file_name L"ADVAPI32.dll" not found in /home/me/.wine/dosdevices/c:/Program Files/QtWeb
warn:ntdll:NtQueryFullAttributesFile L"\\??\\C:\\Program Files\\QtWeb\\ADVAPI32.dll" not found (c0000034)
warn:file:wine_nt_to_unix_file_name L"ADVAPI32.dll" not found in /home/me/.wine/dosdevices/c:/Program Files/QtWeb
warn:ntdll:NtQueryFullAttributesFile L"\\??\\C:\\Program Files\\QtWeb\\ADVAPI32.dll" not found (c0000034)
warn:file:wine_nt_to_unix_file_name L"\\??\\C:\\windows\\system\\ADVAPI32.dll" -> "/home/me/.wine/dosdevices/c:/windows/system/ADVAPI32.DLL" required a case-i

petr999

tcpdump: listening on lo0, link-type NULL (BSD loopback), capture size 96 bytes
13:25:33.982749 IP (tos 0x0, ttl 64, id 35656, offset 0, flags [DF], proto TCP (6), length 48) thehost.tld.50457 > thehost.tld.8888: S, cks
um 0xa9f6 (correct), 1687353586:1687353586(0) win 65535 <mss 16344,sackOK,eol>
        0x0000:  4500 0030 8b48 4000 4006 54d1 596c 53eb  E..0.H@.@.T.YlS.
        0x0010:  596c 53eb c519 22b8 6492 f8f2 0000 0000  YlS...".d.......
        0x0020:  7002 ffff a9f6 0000 0204 3fd8 0402 0000  p.........?.....
13:25:33.982784 IP (tos 0x0, ttl 64, id 35657, offset 0, flags [DF], proto TCP (6), length 48) thehost.tld.8888 > thehost.tld.50457: S, cks
um 0x1900 (correct), 3471688183:3471688183(0) ack 1687353587 win 65535 <mss 16344,sackOK,eol>
        0x0000:  4500 0030 8b49 4000 4006 54d0 596c 53eb  E..0.I@.@.T.YlS.
        0x0010:  596c 53eb 22b8 c519 ceed c1f7 6492 f8f3  YlS.".......d...

petr999

#!/usr/bin/perl


package main;
use strict;
use warnings;

use File::Find qw/find/; 

use Carp; $SIG{__DIE__} = sub{ print @_; print Carp::longmess };

petr999

#!/usr/local/bin/perl -wT

use strict;

use lib qw(. lib);

use Bugzilla;
use GD::SecurityImage;

my $dbh = Bugzilla->dbh;

petr999

--- bugzilla.orig/Bugzilla/CGI.pm       2010-01-09 20:39:11.000000000 +0400
+++ bugzilla/Bugzilla/CGI.pm    2010-01-12 00:02:14.811537343 +0400
@@ -35,7 +35,7 @@
 
 use CGI qw(-no_xhtml -oldstyle_urls :private_tempfiles :unique_headers SERVER_PUSH);
 
-use base qw(CGI);
+use base qw(CGI::Fast);
 
 use Bugzilla::Constants;

petr999

package TestApp;

use strict;
use warnings;

use Cwd qw/realpath getcwd/;
use HTML::Template;
use FCGI::Spawn;
  
my $tmpl_lib = realpath( $main::testAppRoot."/tmpl" );

petr999

perl -Mstrict -MFile::Find -MConvert::Cyrillic -MFile::Copy -MFile::Basename -we 'my @names = (); find sub{ push @names, $File::Find::name }, "Ноль"; map { my $newname = dirname( $_ ). "/". Convert::Cyrillic::cstocs( "WIN", "UTF8", basename $_ ); print $newname, "\n"; File::Copy::mv( $_, $newname ) or die $!; }  reverse @names; '

petr999

#!/usr/bin/perl

package main;

use strict;
use warnings;

use POSIX qw/setsid/;
use Readonly;

petr999

--- bugzilla.orig/createaccount.cgi     2010-01-09 20:41:47.727879656 +0400
+++ bugzilla/createaccount.cgi  2010-01-16 15:27:08.947848543 +0400
@@ -47,6 +47,10 @@
 
 $vars->{'doc_section'} = 'myaccount.html';
 
+my $captcha_cookie = $cgi->cookie( 'Captcha_cookie' );
+unless( length $captcha_cookie  ){ $captcha_cookie = generate_random_password; }
+$cgi->send_cookie( -name => 'Captcha_cookie', -value => $captcha_cookie, );
+

petr999

1..15
ok 1
ok 2
ok 3 - testing quoting of utf 8 string
ok 4 - testing quoting of blob
ok 5 - INSERT query INSERT INTO t1 (name, bincol, shape, binutf) 
#     VALUES (?,?, GeomFromText('Point(132865 501937)'), ?)
# 
# 
ok 6