28 		$value =~ s/\<n\>/\\n/g;

    28 		$value =~ s/\<n\>/\\n/g;

    29 		$field{$name} = $value;

    29 		$field{$name} = $value;

    30     }

    30     }

    31 }

    31 }

    32 

    32 

    35 $uid=$field{id};

    33 $uid=$field{id};

    36 chomp ($uid);

    34 chomp ($uid);

    37 open (OUT,">/var/www/tmp/$uid") or die "$!\n";

    35 open (OUT,">/var/www/tmp/$uid") or die "$!\n";

    38 print OUT "\@schluessel:\t=\t\@werte:\n";

    36 print OUT "\@schluessel:\t=\t\@werte:\n";

    39 print OUT "------------\t\t-------\n\n";

    37 print OUT "------------\t\t-------\n\n";

    42 }

    40 }

    43 print OUT $Daten;

    41 print OUT $Daten;

    44 close OUT;

    42 close OUT;

    45 

    43 

    46 my $scp=Net::SCP->new();

    44 my $scp=Net::SCP->new();

    48 #unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*");

    46 #unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*");

    49 __END__

    47 __END__

    50 

    48 

    51 #$uid=$Formular{ID};

    49 #$uid=$Formular{ID};

    52 #chomp$uid;

    50 #chomp$uid;