CGI x locking

[Petr Klimovic]

Hello Jindrich.

Streda Leden 16 2002 15:13, you wrote to all:

To souvisi s bufferem na stdout. V promenne $| se da nastavit velikost 
tohoto bufferu.

$| = 1;

 JK> print "Status: 302\nLocation: $loc\n\n";

 JK> if( open( REPORT, ">>/var/www/cgi-bin/redir.rep") )
 JK> {
 JK>         flock( REPORT, LOCK_EX );
 JK>         # and, in case someone appended
 JK>         # while we were waiting...
 JK>         seek( REPORT, 0, 2 );
 JK>     print REPORT "something\n";
 JK>         flock( REPORT, LOCK_UN );
 JK>     close REPORT;
 JK> }

 JK> exit;


Petr

... Mozek: aparat, kterym si myslime, ze myslime.