version 1.7, 2004/04/08 09:19:39
|
version 1.8, 2004/05/11 09:57:52
|
Line 101 sub expand_zip {
|
Line 101 sub expand_zip {
|
my $zipfile = "$tempdir/$filename"; |
my $zipfile = "$tempdir/$filename"; |
if ($filename =~ m|\.zip$|i) { |
if ($filename =~ m|\.zip$|i) { |
open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null |"); |
open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null |"); |
while (<OUTPUT>) { |
|
print "$_<br />"; |
|
} |
|
close(OUTPUT); |
close(OUTPUT); |
} else { |
} else { |
return 'nozip'; |
return 'nozip'; |
Line 610 sub build_structure {
|
Line 607 sub build_structure {
|
$curr_id ++; |
$curr_id ++; |
$next_id ++; |
$next_id ++; |
$seqtext{$key} .= qq|></resource> |
$seqtext{$key} .= qq|></resource> |
<link from="$curr_id" to="$next_id index="$curr_id"></link>\n|; |
<link from="$curr_id" to="$next_id" index="$curr_id"></link>\n|; |
} |
} |
} |
} |
} |
} |