Revision f8138d17
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
| 331 | 331 |
|
| 332 | 332 |
$auth->assert('datev_export');
|
| 333 | 333 |
|
| 334 |
DATEV::clean_temporary_directories(); |
|
| 335 |
|
|
| 334 | 336 |
DATEV->save_datev_stamm(\%myconfig, \%$form); |
| 335 | 337 |
|
| 336 |
my $link = "datev.pl?action=download"; |
|
| 338 |
my $link = "datev.pl?action=download&download_token=";
|
|
| 337 | 339 |
|
| 338 | 340 |
if ($form->{kne}) {
|
| 339 |
my @filenames = DATEV->kne_export(\%myconfig, \%$form); |
|
| 340 |
if (@filenames) {
|
|
| 341 |
print(qq|<br><b>| . $locale->text('KNE-Export erfolgreich!') . qq|</b><br>|);
|
|
| 342 |
$link .= "&filenames=" . $form->escape(join(":", @filenames));
|
|
| 343 |
print(qq|<br><a href="$link">Download</a>|); |
|
| 341 |
my $result = DATEV->kne_export(\%myconfig, \%$form); |
|
| 342 |
if ($result && @{ $result->{filenames} }) {
|
|
| 343 |
$link .= Q($result->{download_token});
|
|
| 344 |
|
|
| 345 |
print(qq|<br><b>| . $locale->text('KNE-Export erfolgreich!') . qq|</b><br><br><a href="$link">Download</a>|);
|
|
| 346 |
|
|
| 344 | 347 |
} else {
|
| 345 | 348 |
$form->error("KNE-Export schlug fehl.");
|
| 346 | 349 |
} |
| 347 | 350 |
} else {
|
| 348 |
my @filenames = DATEV->obe_export(\%myconfig, \%$form); |
|
| 349 |
if (@filenames) {
|
|
| 350 |
print(qq|<br><b>| . $locale->text('OBE-Export erfolgreich!') . qq|</b><br>|);
|
|
| 351 |
$link .= "&filenames=" . $form->escape(join(":", @filenames));
|
|
| 352 |
print(qq|<br><a href="$link">Download</a>|); |
|
| 353 |
} else {
|
|
| 354 |
$form->error("OBE-Export schlug fehl.");
|
|
| 355 |
} |
|
| 351 |
# OBE-Export nicht implementiert. |
|
| 352 |
|
|
| 353 |
# my @filenames = DATEV->obe_export(\%myconfig, \%$form); |
|
| 354 |
# if (@filenames) {
|
|
| 355 |
# print(qq|<br><b>| . $locale->text('OBE-Export erfolgreich!') . qq|</b><br>|);
|
|
| 356 |
# $link .= "&filenames=" . $form->escape(join(":", @filenames));
|
|
| 357 |
# print(qq|<br><a href="$link">Download</a>|); |
|
| 358 |
# } else {
|
|
| 359 |
# $form->error("OBE-Export schlug fehl.");
|
|
| 360 |
# } |
|
| 356 | 361 |
} |
| 357 | 362 |
|
| 358 | 363 |
print("</body></html>");
|
| ... | ... | |
| 366 | 371 |
$auth->assert('datev_export');
|
| 367 | 372 |
|
| 368 | 373 |
my $tmp_name = Common->tmpname(); |
| 369 |
my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip",
|
|
| 370 |
localtime(time())); |
|
| 374 |
my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip", localtime(time()));
|
|
| 371 | 375 |
|
| 372 | 376 |
my $cwd = getcwd(); |
| 373 |
chdir("users") || die("chdir users");
|
|
| 374 | 377 |
|
| 375 |
my @filenames = split(/:/, $form->{"filenames"});
|
|
| 376 |
map({ s|.*/||; $form->error("Eine der KNE-Exportdateien wurde nicht " .
|
|
| 377 |
"gefunden. Wurde der Export bereits " . |
|
| 378 |
"durchgeführt?") unless (-f $_); } |
|
| 379 |
@filenames); |
|
| 378 |
my $path = DATEV::get_path_for_download_token($form->{download_token});
|
|
| 379 |
if (!$path) {
|
|
| 380 |
$form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
|
|
| 381 |
} |
|
| 382 |
|
|
| 383 |
chdir($path) || die("chdir $path");
|
|
| 384 |
|
|
| 385 |
my @filenames = glob "*"; |
|
| 386 |
|
|
| 387 |
if (!@filenames) {
|
|
| 388 |
chdir($cwd); |
|
| 389 |
DATEV::clean_temporary_directories(); |
|
| 390 |
$form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
|
|
| 391 |
} |
|
| 380 | 392 |
|
| 381 | 393 |
my $zip = Archive::Zip->new(); |
| 382 |
map({ $zip->addFile($_); } @filenames);
|
|
| 394 |
map { $zip->addFile($_); } @filenames;
|
|
| 383 | 395 |
$zip->writeToFileNamed($tmp_name); |
| 396 |
|
|
| 384 | 397 |
chdir($cwd); |
| 385 | 398 |
|
| 386 | 399 |
open(IN, $tmp_name) || die("open $tmp_name");
|
| ... | ... | |
| 393 | 406 |
|
| 394 | 407 |
unlink($tmp_name); |
| 395 | 408 |
|
| 409 |
DATEV::clean_temporary_directories(); |
|
| 410 |
|
|
| 396 | 411 |
$lxdebug->leave_sub(); |
| 397 | 412 |
} |
Auch abrufbar als: Unified diff
Jeden DATEV-Export in ein eigenes, eindeutig benanntes Verzeichnis schreiben, damit sich DATEV-Exporte nicht gegenseitig überschreiben.
Temporäre Verzeichnisse werden beim nächsten Aufruf gelöscht, sofern sie älter als acht Stunden sind.
Fix für Bug 924.