equal
deleted
inserted
replaced
106 $DIR_URI .= "/$_"; |
106 $DIR_URI .= "/$_"; |
107 -d $DIR |
107 -d $DIR |
108 or mkdir $DIR => 0750 |
108 or mkdir $DIR => 0750 |
109 or die "Can't mkdir $DIR: $!\n"; |
109 or die "Can't mkdir $DIR: $!\n"; |
110 |
110 |
111 if (param("delete") =~ /([-a-z\d]+-\d+-.)/i) { |
111 my $delete = param("delete"); |
|
112 if (defined $delete and $delete =~ /([-a-z\d]+-\d+-.)/i) { |
112 deletedir $1; |
113 deletedir $1; |
113 print redirect(-uri => url(-path_info => 1)); |
114 print redirect(-uri => url(-path_info => 1)); |
114 exit 0; |
115 exit 0; |
115 } |
116 } |
116 |
117 |