#!/usr/bin/perl

use CGI qw(:standard :cgi-lib);
use URI::Escape;
use File::Temp qw(mkstemp);
use File::Spec::Functions;

$path = '/mit/course-search/web_scripts/search/urls/save';

foreach $num (param()){
    $file = catfile($path, uri_escape(lc($num)));
    ($url) = param($num) =~ m/^Save (.*)$/;
    ($tmpfh, $tmpfile) = mkstemp("$file.XXXXXX");
    print $tmpfh $url;
    close($tmpfh);
    rename $tmpfile, $file;
    print redirect(-uri => $url, -status => 303);
}