@_UI_STD_INIT_@ [set page_perm]backup[/set] [set ui_class]Admin[/set] [set page_title][L]Transfer Catalog[/L][/set] [set help_name]xfer.main[/set] [set icon_name]icon_config.gif[/set] [calc] my $old = $Scratch->{xfer_catname} = $Config->{CatalogName}; return if $CGI->{do_xfer}; my $new = $CGI->{rename}; return unless $old and $new; $new =~ s/[^-\w]+//g; for(qw/ SERVER_NAME SECURE_SERVER CGI_URL IMAGE_DIR SQLDSN SQLUSER SQLPASS DOCROOT ORDERS_TO SAMPLEHTML SAMPLEURL IC_DIR CGI_DIR CGIWRAP LINKMODE LINKHOST LINKPORT /) { my $val = $Variable->{$_}; $val =~ s/$old\b/$new/g; $CGI->{$_} = $val; } return; [/calc] [if cgi do_xfer] [tmp xfer_success][xfer-catalog][/tmp] [/if] @_UI_STD_HEAD_@
![]() |
|
![]() |