added on local at 2026-07-01 21:47:37
| 1 | #!/usr/bin/perl | |
| 2 | #====================================================================== | |
| 3 | # RePricer -- legacy redirect stub. | |
| 4 | # | |
| 5 | # This page was renamed to /upload_model.cgi (clearer mapping to the | |
| 6 | # DB tables it writes: models, model_files, model_images, model_tags). | |
| 7 | # Anyone landing here with an old bookmark or marketplace export link | |
| 8 | # gets bounced to the new URL with their query string preserved. | |
| 9 | #====================================================================== | |
| 10 | use strict; | |
| 11 | use warnings; | |
| 12 | ||
| 13 | my $qs = $ENV{QUERY_STRING} || ''; | |
| 14 | my $loc = '/upload_model.cgi'; | |
| 15 | $loc .= '?' . $qs if length $qs; | |
| 16 | print "Status: 301 Moved Permanently\nLocation: $loc\n\n"; | |
| 17 | exit; |