View Source

#!/usr/bin/perl

use CGI; 
$query = new CGI;
$password = $query->param("password");
$username = $query->param("username");

if ($password eq "password") {

    if ($username eq "thing1" || $username eq "thing2") {
        $removeHoldings = qq[or <a href="removeOCLCholdings.pl">remove holdings from OCLC</a>];
    } else {
        $removeHoldings = "";
    }

$html = qq[
  <html>
  <head>
  <link rel="shortcut icon" type="image/png" href="https://folio.drew.edu/busybee.png">
  <style type="text/css">
  body {font-family: verdana, arial, sans-serif;}
  a:active {text-decoration: none; color: #f3654e;}
  a:link {text-decoration: none; color: #f3654e;}
  a:visited {text-decoration: none; color: #f3654e;}
  a:hover {text-decoration: none; color: #000000; background: #f3654e;}
  a.rusure:active {text-decoration: none; color: #cc1242;}
  a.rusure:link {text-decoration: none; color: #cc1242;}
  a.rusure:visited {text-decoration: none; color: #cc1242;}
  a.rusure:hover {text-decoration: none; color: #ffffff; background: #cc1242;}
  .v12 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif;color:#ffffff;}
  .v18 {font-size: 18px; font-family: Verdana, Arial, Helvetica, sans-serif;color:#ffffff;}
  .v24 {font-size: 24px; font-family: Verdana, Arial, Helvetica, sans-serif;color:#ffffff;}
  input[type=button], input[type=submit], input[type=reset] {
   background-color: #f3654e;
   border: none;
   color: white;
   padding: 2px 48px;
   text-decoration: none;
   margin: 4px 2px;
   cursor: pointer;
  }
  </style>
  <title>scan barcode</title>
  </head>

  <body bgcolor="#000000" onLoad="document.scanBarcode.barcode.focus()"><table border="0" width="100%" height="100%">
  <tr><th></th><th class="v24">folio.drew.edu | bibServices | discard items | scan barcode<br>you are logged in as $username</th><th></th></tr>
  <tr><th></th><th class="v24">&nbsp;</th><th></th></tr>
  <tr><th></th><th class="v18">
   <form action="yesORno.pl" method="post" name="scanBarcode">
    <input name="username" type="hidden" value="$username">
    <p align="center"><table border="0"><tr>
     <td class="v12"><input name="barcode" type="text"></td>
     <td><input type="submit" value="scan barcode"></td></tr>
    </table>
   </form>
  </th><th></th></tr>
  <tr>
   <th align="left" valign="bottom"><img border="0" src="https://folio.drew.edu/busybee.png">>
   <th class="v18" valign="top">$removeHoldings</th><th align="right" valign="bottom"><img width="200" src="https://folio.drew.edu/faith.jpg">>
  </tr>
  </table>
  </body>
  </html>
];
} else {
   $html = qq[<html><body onLoad="document.bounce.submit();"><form action="https://folio.drew.edu" name="bounce"></form></body></html>];
}

print qq[Content-Type: text/html \n\n $html ];