<Location /svn>
	DAV svn
	# SVNPath /var/lib/svn
	SVNParentPath /var/lib/svn
	AuthType Basic
	AuthName "Subversion Repository"
	AuthUserFile /etc/apache2/dav_svn.passwd
	Require valid-user
</Location>

### よかった探しリース
# usage: {{hyuki_wreath('id')}}
sub hyuki_wreath {
    my ($id) = @_;
    my $prefix = 'http://www.hyuki.com/ring/ring.cgi';
    my $left   = $prefix.'?mycmd=left&myid='.$id;
    my $right  = $prefix.'?mycmd=right&myid='.$id;
    return qq(
        <a href="$left">左手</a>
        <a href="$prefix">よかった探しリース</a>
        <a href="$right">右手</a>
    );
}

function joinwavs($wavs){
    $fields = join('/',array( 'H8ChunkID', 'VChunkSize', 'H8Format',
        'H8Subchunk1ID', 'VSubchunk1Size',
        'vAudioFormat', 'vNumChannels', 'VSampleRate',
        'VByteRate', 'vBlockAlign', 'vBitsPerSample' ));
    $data = '';
    foreach($wavs as $wav){
        $fp     = fopen($wav,'rb');
        $header = fread($fp,36);
        $info   = unpack($fields,$header);
        // read optional extra stuff
        if($info['Subchunk1Size'] > 16){
            $header .= fread($fp,($info['Subchunk1Size']-16));
        }
        // read SubChunk2ID
        $header .= fread($fp,4);
        // read Subchunk2Size
        $size  = unpack('vsize',fread($fp, 4));
        $size  = $size['size'];
        // read data
        $data .= fread($fp,$size);
    }
    return $header.pack('V',strlen($data)).$data;
}

joinwavs(array("1st.wav","2nd.wav","3rd.wav"));