#!/usr/bin/perl

# cpanel - base/backend/webdisksetup.cgi          Copyright(c) 2008 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use Archive::Zip;

my ( $domain, $ssl, $ver, $port ) = split( /\|/, $ENV{'QUERY_STRING'} );
$ssl = int($ssl);
my $secure    = $ssl ? 'Secure ' : '';
my $securetxt = $ssl ? 'Secure ' : '';
$port = $port ? $port : $ssl ? '2078' : '2077';
my $webdav_uri = ( $ssl ? 'https://' : 'http://' ) . $domain . ':' . $port;

print <<EOM;
Content-Type: application/zip; name="${domain} ${secure}WebDisk.app.zip"; x-mac-auto-archive=yes
Content-Disposition: attachment; filename="${domain} ${secure}WebDisk.app.zip";

EOM

my $zip = Archive::Zip->new();

if ( $ver eq '10.5' ) {
    $zip->read('/usr/local/cpanel/obj/WebDisk_Setup_Leopard.app.zip');
    $zip->addString( $domain,                                    'WebDisk_Setup_Leopard.app/Contents/config/domain.txt' );
    $zip->addString( $ssl,                                       'WebDisk_Setup_Leopard.app/Contents/config/usessl.txt' );
    $zip->addString( $ssl . "\t" . $domain . "\t" . $webdav_uri, 'WebDisk_Setup_Leopard.app/Contents/config/webdav.txt' );
}
else {
    $zip->read('/usr/local/cpanel/obj/Web_Disk.app.zip');
    $zip->addString( $domain,                                    'Web_Disk_Setup_2.0.app/Contents/Resources/domain.txt' );
    $zip->addString( $ssl,                                       'Web_Disk_Setup_2.0.app/Contents/Resources/usessl.txt' );
    $zip->addString( $ssl . "\t" . $domain . "\t" . $webdav_uri, 'Web_Disk_Setup_2.0.app/Contents/Resources/webdav.txt' );
}

foreach my $member ( $zip->members() ) {
    my $memberName = $member->fileName();

    my $newname = $memberName;
    $newname =~ s/Web\_?Disk[^\/]+\//${domain} ${securetxt}WebDisk.app\//g;
    $member->fileName($newname);
}

my ( $fh, $name ) = Archive::Zip::tempFile();
$zip->writeToFileHandle($fh);
seek( $fh, 0, 0 );
local ($/);
print readline($fh);
close($fh);
if ( -e $name ) {
    unlink $name;
}