| … | |
… | |
| 1846 | |
1846 | |
| 1847 | $rmp->{random_seed} ||= $exit->random_seed; |
1847 | $rmp->{random_seed} ||= $exit->random_seed; |
| 1848 | |
1848 | |
| 1849 | my $data = cf::to_json $rmp; |
1849 | my $data = cf::to_json $rmp; |
| 1850 | my $md5 = Digest::MD5::md5_hex $data; |
1850 | my $md5 = Digest::MD5::md5_hex $data; |
|
|
1851 | my $meta = "$cf::RANDOM_MAPS/$md5.meta"; |
| 1851 | |
1852 | |
| 1852 | if (my $fh = aio_open "$cf::RANDOM_MAPS/$md5.meta", O_WRONLY | O_CREAT, 0666) { |
1853 | if (my $fh = aio_open "$meta~", O_WRONLY | O_CREAT, 0666) { |
| 1853 | aio_write $fh, 0, (length $data), $data, 0; |
1854 | aio_write $fh, 0, (length $data), $data, 0; |
|
|
1855 | undef $fh; |
|
|
1856 | aio_rename "$meta~", $meta; |
| 1854 | |
1857 | |
| 1855 | $exit->slaying ("?random/$md5"); |
1858 | $exit->slaying ("?random/$md5"); |
| 1856 | $exit->msg (undef); |
1859 | $exit->msg (undef); |
| 1857 | } |
1860 | } |
| 1858 | } |
1861 | } |
